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Ignorance  is  a  precious  thing. 
Once  lost,  it  can  never  be  regained. 


CHAPTER  1 


IWTRODUCTIOW 

This  manual  is  intended  to  supplement  the  documentation  provided  in  the  15U1  User's 
Manual.  Although  this  manual  is  primarily  designed  to  meet  the  needs  of  the  in- 
termediate to  advanced  programmer,  it  will  also  be  of  interest  to  the  novice  Commodore 
user  who  wants  to  know  more  about  how  his  1541  disk  drive  works.  This  manual  is  not 
intended  to  replace  the  documentation  provided  by  Commodore  Business  Machines,  Inc. 
and  the  reader  is  assumed  to  be  relatively  familiar  with  the  contents  of  the  15U1  User's 
Manual.  For  the  sake  of  continuity  and  clarity,  some  of  the  information  covered  in  the 
15Jtl  User's  Manual  is  also  presented  here.  However,  the  majority  of  the  information 
presented  in  this  manual  is  original  and  is  the  result  of  intensive  disassembly  and  an- 
notation of  the  1541's  DOS  by  the  authors.  Some  information  is  based  on  articles  and 
notes  published  in  a  variety  of  publications  as  well  as  discussions  with  other 
knowledgeable  disk  experts. 

This  manual  was  not  prepared  with  the  assistance  of  Commodore  Business  Machines, 
Inc.  Although  we  cannot  guarantee  the  accuracy  of  all  the  information  presented  in  this 
manual,  the  material  has  been  thoroughly  researched  and  tested. 

There  were  several  reasons  for  writing  Inside  Commodore  DOS: 

1.  lb  correct  errors  and  omissions  in  the  15J^1  User's  Manual. 

2.  lb  help  you  make  more  effective  use  of  your  disk  drive. 

3.  lb  provide  complete  information  on  diskette  formatting. 

4.  lb  provide  complete  information  on  the  storage  of  files. 

5.  lb  allow  you  to  read  and  write  data  in  non-standard  ways. 

6.  lb  help  you  make  a  backup  copy  of  your  "protected"  diskettes. 

7.  lb  help  you  recover  damaged  diskettes. 

8.  lb  help  you  understand  the  operation  of  your  disk  drive. 

Although  this  manual  focuses  primarily  on  the  1541  disk  drive,  much  of  the  information 
also  applies  to  other  Commodore  disk  drives. 

1 .1  A  Brief  Word  About  the  Programs 

This  book  contains  listings  for  46  ready-to-use  programs  written  in  BASIC.  These  pro- 
grams are  copyrighted.  They  may  NOT  be  used  commercially,  in  whole  or  in  part,  period. 
Since  many  of  the  programs  are  long,  typing  them  all  in  would  be  a  time  consuming, 
tedious  task.  Feel  free  to  share  your  typing  efforts  with  a  friend  who  has  also  purchased 
a  copy  of  this  book.  In  return,  we  simply  ask  that  you  do  not  share  a  program  with  some- 
one who  does  not  own  a  legitimate  copy  of  this  book. 
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The  programs  in  this  book  are  disk  utiUties.  They  do  not  use  flashy  graphics  or  sound. 
Rather,  they  are  extremely  powerful  tools.  Remember,  any  tool  can  be  dangerous  if  it 
is  used  improperly.  Be  sure  that  you  know  what  you  are  doing  before  you  use  a  given 
program.  Always  experiment  with  a  program  on  a  test  diskette  before  you  actually  use 
it  on  one  that  contains  valuable  programs  or  data.  Practice  makes  perfect. 

Each  program  was  individually  tested  on  a  variety  of  1541  disk  drives  having  a  wide 
range  of  serial  numbers.  Moreover,  each  program  always  worked  perfectly.  Unfortunately, 
it  is  impossible  to  guarantee  that  a  particular  program  will  work  with  your  model.  If 
a  given  program  does  not  seem  to  work  properly,  check  your  typing  carefully.  Any  er- 
rors, especially  in  the  DATA  statements  which  contain  a  machine  language  program,  will 
produce  problems. 

As  a  courtesy  to  the  more  advanced  programmer,  we  have  also  included  the  source  listings 
for  each  machine  language  routine.  A  source  listing  immediately  follows  a  related  BASIC 
program  listing  and  has  a  file  name  ending  in  ".PAL".  It  is  for  use  with  the  PAL  assembler. 
Note:  If  you  are  using  a  different  assembler,  you  may  have  to  make  some  minor  changes. 

The  programs  in  this  book  were  designed  to  be  not  only  useful  and  beneficial,  but  in- 
structive as  well.  Many  of  them  illustrate  the  "state  of  the  art"  in  the  use  of  Commodore's 
direct-access  disk  commands.  Enjoy! 


1.2  How  to  Type  in  the  Programs 

Program  listings  in  books  and  magazines  often  suffer  from  two  problems:  typographical 
errors  that  occur  when  the  program  is  retyped  into  a  word  processor  and  the  readabili- 
ty of  Commodore's  control  characters  (e.g.,  the  reverse  field  heart  that  means  Clear 
Screen),  lb  overcome  these  problems,  the  program  hstings  for  this  book  were  created 
using  a  special  "lister"  program.  This  lister  program  took  a  working  BASIC  program 
and  converted  it  into  a  WordPro™  file.  At  the  same  time,  control  characters  were  spell- 
ed out  in  words  and  surrounded  by  curly  brackets.  For  example,  a  reverse  field  heart 
was  converted  to  {CLR}.  The  table  below  summarizes  the  hsting  conventions,  the  cor- 
responding control  characters,  and  the  proper  key/keys  to  press  on  your  C64  or  VIC-20. 


When  You  See        What  It  Represents        What  You  Type 


{CLR} 

Clear  Screen 

Hold  dovm  SHIFT  and  press 

CLR/HOME 

{HOME} 

Home  Cursor 

Press  CLR/HOME 

{DOWN} 

Cursor  Down 

Press  CRSR/DOWN 

{UP} 

Cursor  Up 

Hold  down  SHIFT  and  press 

CRSR/UP 

{RIGHT} 

Cursor  Right 

Press  CRSR/RIGHT 

{LEFT} 

Cursor  Left 

Hold  dovm  SHIFT  and  press 

CRSR/LEFT 

{RVS} 

Reverse  Field  ON 

Hold  down  CTRL  and  press  9 

{ROFF} 

Reverse  Field  OFF 

Hold  down  CTRL  and  press  0 
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NOTE  1:  When  a  number  appears  inside  the  curly  brackets,  it  means  you  repeat  the 
control  character  immediately  to  the  left  of  the  number  that  many  times.  For 
example: 


{DOWN  5}  means  to  press  CRSR/DOWN  five  (5)  times. 

NOTE  2:  All  programs  have  been  listed  in  a  column  40  characters  wide.  Except  where 
special  characters  have  been  spelled  out  between  curly  brackets,  the  lines  are 
listed  exactly  as  they  appear  on  a  Commodore  64  display.  Spaces  must  be  typed 
in  as  listed.  Where  necessary,  count  the  character  columns  to  determine  the 
appropriate  number  of  spaces. 

Happy  hunting  and  pecking! 
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CHAPTER  2 


USING  THE  154rS  DOS 


2.1  The  Purpose  of  a  DOS 

A  disk  operating  system  (DOS)  is  a  machine  language  program  that  controls  a  disk  drive. 
It  does  several  different  tasks: 

1.  Handling  communications  between  a  disk  drive  and  a  computer. 

2.  Carrying  out  housekeeping  chores  such  as  formatting  a  diskette. 

3.  Managing  the  storage  of  information  on  a  diskette. 

4.  Reading  and  writing  information  onto  a  diskette's  surface. 

In  many  computer  systems,  a  DOS  is  loaded  into  the  main  computer's  memory  from 
diskette  when  the  computer  is  first  switched  on.  In  this  type  of  system  many  of  the 
tasks  are  carried  out  using  the  computer's  microprocessor  and  RAM.  Commodore  uses 
a  different  approach.  All  of  Commodore's  disk  drives  are  intelligent  peripherals.  They 
do  not  have  to  use  the  computer's  resources;  they  have  their  own.  For  example,  the 
1541  disk  drive  contains  its  own  6502  microprocessor,  2K  of  RAM,  two  6522  I/O  chips, 
and  a  DOS  program  permanently  stored  in  15.8K  of  ROM. 

The  advantages  of  having  an  intelligent  disk  drive  are: 

1.  The  DOS  does  not  use  any  of  the  computer's  memory. 

2.  Some  disk  operations  can  be  carried  out  independently  from  the  CPU. 

3.  Disk  operations  do  not  slow  down  processing. 

4.  One  disk  drive  can  be  shared  among  several  computers. 

The  disadvantages  of  having  an  intelligent  disk  drive  are: 

1.  It  is  very  difficult  to  customize  DOS  routines. 

2.  You  must  replace  the  ROMs  to  convert  to  a  new  version  of  DOS . 

2.2  Communicating  witli  tlie  1541 

Your  Commodore  64  or  VIC-20  can  communicate  with  your  1541  disk  drive  in  several 
ways: 

1.  Through  the  LOAD,  SAVE,  and  VERIFY  commands. 

2.  Through  I/O  using  the  command  channel. 

3.  Through  I/O  using  data  communication  channels. 
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Let's  examine  each  of  these  in  greater  detail. 

1.  LOAD,  SAVE,  and  VERIFY  commands: 

These  BASIC  commands  are  used  to  store  and  retrieve  programs  on  the  Commodore 
tape  and  disk  drives.  They  are  designed  for  ease  of  use,  even  by  the  novice.  The  BASIC 
interpreter  in  the  computer  interprets  these  commands  and  sends  the  disk  drive  the 
necessary  information  over  the  serial  bus. 

2.  I/O  using  the  command  channel: 

The  command  channel  is  used  to  send  messages  to  the  disk  drive  to  carry  out  disk  opera- 
tions like:  formatting  a  blank  diskette,  erasing  an  unwanted  file,  renaming  a  file,  etc. 
These  operations  are  often  referred  to  as  disk  housekeeping.  The  command  channel  is 
also  used  to  input  messages,  such  as  the  current  error  status  of  the  drive,  generated 
by  the  DOS.  For  more  details  on  how  to  use  the  command  channel,  see  Section  2.4. 

3.  I/O  using  data  communication  channels: 

The  1541  DOS  supports  a  variety  of  kinds  of  files:  program  files,  sequential  files,  relative 
files,  user  files,  and  direct-access  files.  The  storage  and  retrieval  of  information  in  files 
is  carried  out  using  a  data  communication  channel.  Although  this  manual  provides  detailed 
information  regarding  how  files  are  stored  and  organized,  no  attempt  is  made  to  teach 
you  how  to  develop  programs  that  make  extensive  use  of  file  handling.  We  would  en- 
courage readers  who  are  interested  in  file  handling  techniques  to  refer  to  Jim  Butter- 
field's  series  of  articles  in  COMPUTE!.  The  only  I/O  applications  discussed  in  this  manual 
are  those  relating  to  direct-access  programming  (see  Chapter  5). 

Since  the  rest  of  this  manual  makes  extensive  use  of  the  command  channel,  let's  ex- 
amine it  in  some  detail. 

2.3  The  Command  Channel 

The  command  channel  (channel  number  15)  is  an  important  communication  link  between 
your  computer  and  the  1541  disk  drive.  It  has  several  important  functions.  You  can  use 
it  to: 


1.  Monitor  the  error  status  of  the  drive  to  ensure  that  everything  is  operating  properly. 

2.  Send  commands  that  direct  the  DOS  to  perform  various  housekeeping  chores 
associated  with  disk  handling. 

3.  Send  commands  that  direct  the  DOS  to  read  or  write  information  to  specific  areas 
on  a  diskette. 


This  chapter  focuses  on  the  first  two  of  these  uses.  Chapter  5  provides  more  detail  on 
reading  or  writing  to  a  diskette. 
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2.4  Using  the  Command  Channel 


Using  the  command  channel  is  easy.  Just  follow  these  steps: 

1.  Establish  communications  using  an  OPEN  statement. 

2.  Send  commands  to  the  DOS  using  a  PR1NT#  statement. 

3.  Read  DOS  messages  using  a  GET#  or  INPUT#  statement. 

4.  Close  the  channel  using  a  CLOSE  statement  when  you  are  finished. 

Let's  go  over  each  step  to  ensure  that  you  know  exactly  what  to  do. 

1.  Establishing  communications  using  an  OPEN  statement. 

In  order  to  establish  a  communication  channel  between  your  computer  and  your  1541 
disk  drive,  you  use  an  OPEN  statement.  An  OPEN  statement  is  a  BASIC  command 
which  looks  like  this: 

SYNTAX:     OPEN  -file#,   device*,   channel # 
EXAMPLE:    OPEN   15,    8,  15 

where 

file#        =  the  logical  file  number  (1-127) 

device*    =  the  device  number  (8  for  a  stock  1541) 

channel*  =  the  channel  number  or  secondary  address  (2-15) 

NOTE:  Channel  numbers  0  &  1  are  reserved  for  use  by  the  DOS. 
Channel  numbers  2-14  are  data  communications  channels. 
Channel  number  15  is  the  command  channel. 

The  OPEN  statement  can  be  used  either  in  immediate  mode  (typed  and  executed  directly 
from  the  keyboard)  or  under  program  control  (embedded  in  a  program). 

In  the  example  above  (OPEN  15,  8,  15)  we  opened  logical  file  number  15  on  the  C64 
to  device  number  8  (the  disk  drive)  through  channel  15  (the  command  channel). 

2.  Sending  commands  to  the  DOS  using  a  PRINT#  statement. 

In  order  to  send  commands  from  your  computer  to  the  1541,  you  use  a  PRINT#  state- 
ment. A  PRINT#  statement  is  a  BASIC  command  which  looks  like  this: 


SYNTAX:      PRINT#  file#,  "command" 
EXAMPLE:    PRINT#15,    "NO: MY  DISKETTE, MD" 
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where 


file#  =  the  logical  file  number  you  used  when  you  opened  the  command  channel 
command  =  the  disk  command  to  be  sent  to  the  DOS 

NOTE:  The  statement  is  PRINT#  not  PRINT  #.  You  must  not  put  a  space  before  the 
#  sign.  Spaces  following  the  #  sign  are  always  optional.  DO  NOT  use  ?#  as  an  abbrevia- 
tion either.  The  correct  abbreviation  is  pR(p  then  SHIFTED  R). 

In  this  example,  the  disk  command  is  "NO:MY  DISKETTE,MD".  This  command  causes 
the  DOS  to  prepare  the  blank  diskette  in  the  drive  for  first-time  use. 

Although  there  are  many  different  disk  commands,  they  fall  into  two  groups: 

1.  Commands  related  to  disk  housekeeping. 

2.  Commands  to  read  or  write  data  to  a  diskette  or  the  disk  drive's  RAM. 

The  disk  housekeeping  commands  are  discussed  in  the  next  part  of  this  chapter.  The 
commands  relating  to  reading  or  writing  data  are  discussed  in  Chapter  5  on  Direct- Access 
Programming. 

3.  Reading  DOS  messages  using  a  GET#  or  an  INPUT*  statement. 

You  may  use  either  an  INPUT#  or  a  GET*  statement  to  read  the  command  channel 
and  access  any  messages  or  data  prepared  for  the  computer  by  the  DOS.  Both  INPUT* 
and  GET*  statements  are  BASIC  commands.  They  look  like  this: 

SYNTAX:      INPUT*  file#,    variable  list 
GET#  file#,   variable  list 

EXAMPLE:    INPUT#   15,    EN,    EM*,    ET,  ES 
GET#   15,  A* 

where 

file*  =  the  logical  file  number  you  used  when  you  opened  the  command  channel 

variable  list  =  one  or  more  variable  names  separated  by  commas 


NOTE:  As  was  noted  for  PRINT*  above,  the  BASIC  statements  are  INPUT*  and  GET*, 
not  INPUT  *  and  GET  *.  You  must  not  put  a  space  before  the  *  sign.  Spaces  following 
the  *  sign  are  always  optional.  Neither  the  INPUT*  statement  nor  the  GET*  state- 
ment can  be  used  in  immediate  mode  (typed  and  executed  directly  from  the  keyboard). 
They  must  be  included  within  a  program. 

The  INPUT*  command  and  the  GET*  command  operate  in  much  the  same  way  as  the 
more  familiar  INPUT  and  GET  commands.  INPUT*  always  reads  as  far  as  the  next 
carriage  return  character  while  GET*  reads  a  single  byte  of  information.  Generally,  GET* 
is  used  in  direct-access  programming  and  INPUT*  is  used  only  for  monitoring  the  drive's 
error  status  as  indicated  immediately  below. 
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You  can  check  the  error  status  of  your  disk  drive  using  the  command  channel.  The  DOS 
monitors  every  disk  operation  as  it  is  carried  out  and  prepares  a  status  report  indicating 
whether  or  not  the  operation  was  completed  successfully.  The  report  consists  of  an  er- 
ror code  number,  an  English  language  message,  and  the  track  and  sector  where  the 
problem,  if  any,  was  encountered.  Here  is  a  subroutine  that  checks  the  error  status. 

lOO  OPEN   15,8,15   :  REM 

THE  OPEN  COMMAND  CHANNEL 

500   INPUT#15,EN,EM*,ET,ES   :  REM 

INPUT  THE  ERROR  STATUS 
510   IF  EN  <   20  THEN  RETURN   :  REM 

NO  ERROR  ENCOUNTERED 
520  PRINT  EN;EM«;ET;ES   :  REM 

PRINT  THE  ERROR  STATUS  ON  SCREEN 
530  CLOSE   15   :    END   :  REM 

ABORT  ON  BAD  STATUS 

Line  100  opens  the  command  channel.  It  is  a  good  idea  to  open  the  command  channel 
at  the  beginning  of  your  program  and  leave  it  open  until  the  end.  Line  500  inputs  the 
status  report.  The  error  code  number  is  stored  in  EN,  the  message  in  EM$,  the  track 
in  ET,  and  the  sector  in  ES.  Error  codes  less  than  20  may  be  ignored  Gine  510).  A  com- 
plete list  of  the  error  codes  and  messages  is  contained  in  the  back  of  your  15U1  User's 
Manual.  A  detailed  explanation  of  the  nature  and  cause  of  many  of  these  errors  is  pro- 
vided in  Chapter  7  on  Disk  Protection. 

4.  CLOSE  the  command  channel  when  you  are  done. 

After  you  have  finished  using  the  command  channel,  it  should  be  closed.  Recall  that 
the  open  command  has  three  parameters:  the  logical  file  number,  the  device  number, 
and  the  channel  number.  The  close  command  has  only  one,  the  logical  file  number.  It 
looks  like  this: 

SYNTAX:      CLOSE  file* 
EXAMPLE:    CLOSE  15 

where 

file#  =  the  logical  file  number  you  used  when  you  opened  the  command  channel 

NOTE:  Loading,  running,  or  editing  a  program  closes  down  all  communication  channels 
automatically.  The  command  channel  is  closed  properly  in  each  instance.  However,  data 
channels  are  aborted  rather  than  closed.  When  a  data  channel  is  aborted,  the  file  is  NOT 
CLOSED  properly  on  the  disk  drive.  You  do  not  have  to  close  the  command  channel 
after  the  issuance  of  every  command.  If  you  forget  to  close  it,  the  worst  that  can  hap- 
pen is  a  ?FILE  OPEN  ERROR  when  you  attempt  to  open  it  again.  However,  you  should 
get  into  the  habit  of  always  closing  a  file  when  you  are  finished  using  it.  You  won't  get 
into  trouble  leaving  the  command  channel  open,  but  you  may  lose  an  important  data 
file  if  you  leave  a  data  communication  channel  open. 
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2.5  Disk  Housekeeping 


As  your  collection  of  programs  grows,  you  will  have  to  do  some  housekeeping  to  keep 
things  in  shape.  Disk  housekeeping  chores  include  the  following: 

1.  Preparing  a  blank  diskette  for  first-time  use. 

2.  Erasing  the  contents  of  a  diskette  currently  in  use. 

3.  Initializing  a  diskette. 

4.  Renaming  a  file. 

5.  Scratching  or  erasing  a  file. 

6.  Copying  a  file. 

These  operations  are  carried  out  by  the  DOS  in  response  to  commands  sent  to  the  drive 
using  the  command  channel  as  indicated  above.  Once  a  disk  housekeeping  command  is 
issued,  the  disk  drive  will  carry  out  the  task  without  further  intervention  by  the  com- 
puter. This  means  that  you  could  edit  or  even  RUN  a  program  in  RAM  while  the  disk 
drive  busily  formats  or  validates  a  diskette.  This  is  not  really  spooling.  It  occurs  because 
the  1541  is  an  intelligent  peripheral.  The  only  thing  that  will  cause  your  computer  to 
wait  for  the  disk  drive  to  complete  its  task  is  your  attempting  to  perform  another  disk 
operation.  This  includes  closing  the  command  channel. 

Let's  take  a  look  at  the  disk  commands  used  for  housekeeping.  NOTE:  If  you  are  using 
the  DOS  SUPPORT  program  that  came  on  your  1541TEST/DEMO,  the  syntax  for  these 
disk  commands  is  remarkably  shorter.  The  >  or  @  keys  are  used  to  send  a  command 
to  the  disk  drive.  They  take  the  place  of  the  PRINT#  statement.  In  addition,  you  do 
not  have  to  open  or  close  the  command  channel  or  embed  the  disk  command  in  quota- 
tion marks.  The  DOS  SUPPORT  program  will  do  this  automatically  for  you.  The  DOS 
5.1  syntax  can  be  used  only  in  immediate  mode,  however.  It  cannot  be  used  in  a  pro- 
gram or  a  7SYNTAX  ERROR  will  result. 


The  New  Command 

When  a  fresh  diskette  is  taken  from  its  storage  envelope,  the  1541  cannot  recognize 
it.  The  diskette  must  be  formatted  or  newed  prior  to  first-time  use.  Formatting  or  new- 
ing  a  diskette  is  performed  by  the  DOS.  The  DOS  proceeds  to  write  concentric  tracks 
made  up  of  blocks/sectors  to  the  diskette.  In  addition,  a  directory  is  set  up,  wherein 
the  drive  records  information  about  all  the  files  stored  on  the  diskette.  Chapter  3  pro- 
vides a  much  more  detailed  account  of  this  operation.  The  syntax  for  formatting  a  diskette 
is  really  quite  simple: 

SYNTAX:  OPEN   15,    8,  15 

PRINT#15,    "NO: DISK  NAME, ID" 
CLOSE  15 


ALTERNATE:  PRINT#15, 

EXAMPLE:        OPEN  15, 
PRINT#15, 
CLOSE  15 


"N:DISK  NAME, ID" 
,  15 

"NO: MY  DISKETTE, MD 


DOS  5.1:        >NO:DISK  NAME, ID 
>N:DISK  NAME, ID 
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The  disk  command,  "NO:MY  DISKETTE,MD",  is  sent  to  the  drive  by  the  PRINT#15 
statement.  The  command  has  three  parameters.  The  first  parameter  within  quotes  is 
NO:.  The  N  stands  for  NEW.  The  0  is  a  holdover  from  the  dual  drive  system  and  in- 
dicates which  drive.  The  0  is  optional  on  the  1541  and  may  be  omitted.  The  colon  ter- 
minates the  DOS  command.  The  second  parameter  is  the  disk  name.  It  is  limited  to  16 
characters  in  length.  Generally  these  are  alphanumeric  characters.  In  the  example  above, 
we  named  the  diskette:  MY  DISKETTE.  The  disk  name  is  cosmetic  and  appears  in  the 
directory  for  reference  purposes  only.  It  is  not  written  anywhere  else  on  the  diskette. 
The  disk  name  is  followed  by  a  comma.  The  DOS  looks  or  parses  for  this.  After  the 
comma  are  two  alphanumeric  characters  for  the  disk  ID.  In  the  above  example  we 
selected  MD  as  our  disk  identifier.  The  ID  is  written  to  every  block  or  sector  on  the 
diskette.  It  is  impossible  to  alter.  The  DOS  repeatedly  looks  at  the  ID  of  a  sector  to 
be  sure  that  you  have  not  switched  diskettes  on  it.  Each  diskette  should  be  formatted 
with  a  unique  ID.  This  will  prevent  the  DOS  from  inadvertently  overwriting  programs 
on  what  appears  to  be  an  identical  diskette. 

A  "full"  new  on  a  diskette  takes  roughly  2-3  minutes.  There  is  a  quicker  way  to  erase 
a  diskette  that  has  already  been  used.  This  is  accomplished  by  leaving  off  the  disk  ID. 
For  example: 

SYNTAX:  OPEN   15,    8,  15 

PRINT#15,    "NO: DISK  NAME" 
CLOSE  15 


ALTERNATE:    PRINT#15,    "N:DISK  NAME" 

EXAMPLE:        OPEN  15,   8,  15 

PRINT#15,  "NO: TEST  DISKETTE" 
CLOSE  15 


DOS  5.1:        >NO:DISK  NAME 
.>N:DISK  NAME 


Notice  that  no  comma  or  ID  follows  the  disk  name.  This  command  will  work  only  on 
a  diskette  that  has  previously  been  formatted.  It  is  referred  to  as  a  "short"  new.  A 
"short"  new  simply  erases  the  first  sector  in  the  directory  and  writes  an  empty  BAM 
(block  availability  map)  to  tell  the  DOS  that  we  have  a  fresh  diskette  in  use. 

NOTE:  A  diskette  that  is  plagued  by  read  or  write  errors  does  not  have  to  be  pitched. 
Copy  the  files  to  another  diskette  first.  Then  do  a  "full"  new  on  the  offending  diskette. 
This  will  erase  and  reformat  the  entire  diskette.  A  "short"  new  rewrites  only  sectors 
0  and  1  of  track  18  and  will  not  eliminate  any  read  or  write  errors.  See  Chapter  8  about 
how  to  recover  from  both  a  "short"  new  and  a  "full"  new. 


The  Initialize  Command 


Initialization  has  nothing  to  do  with  formatting.  APPLE™  owners  format  a  diskette  by 
"initializing"  it.  This  is  NOT  TRUE  with  Commodore.  Initializing  a  diskette  forces  the 
DOS  to  read  the  disk  ID  and  the  contents  of  the  BAM  and  store  them  in  the  drive's 
internal  memory.  The  BAM  establishes  where  the  next  available  sector  is  for  writing. 
Without  it  files  would  be  overwritten.  To  initialize  a  diskette  perform  the  following: 
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syntax:  open  15,  8,  15 
PRINT#15,  "10" 
CLOSE  15 

ALTERNATE :    PR I NT# 1 5 ,    " I " 

DOS  5. 1 :  >I0 

>I 

The  I  is  short  for  INITIALIZE.  The  drive  number  can  be  ignored  if  you  are  using  only 
one  1541.  The  drive  motor  purrs  for  a  few  seconds  and  then  settles  down.  It's  that  sim- 
ple. It  is  a  good  habit  to  initialize  a  diskette  each  time  you  insert  it  into  your  1541  drive. 
This  point  cannot  be  overemphasized.  Do  it  yourself.  Do  not  rely  upon  the  "autoinit" 
feature  of  the  drive.  Initialization  prevents  the  DOS  from  overwriting  files  in  the  event 
that  two  diskettes  with  identical  IDs  are  swapped.  The  drive  cannot  tell  the  difference 
between  two  diskettes  with  identical  IDs  since  it  is  the  ID  that  the  DOS  uses  to  iden- 
tify a  diskette.  Initialization  also  assures  you  that  a  diskette  is  properly  seated  in  the 
drive  before  use. 

The  1541  drive  has  a  built  in  autoinitialization  feature.  Once  it  encounters  an  error  it 
will  retry  a  disk  operation  several  times.  Often  it  can  recover  from  an  error  on  its  own. 
If  it  fails,  it  gives  up.  Before  doing  so,  though,  it  will  do  a  "bump."  On  a  bump  the 
read/write  head  is  stepped  outwards  45  tracks  (slight  overkill)  to  assure  that  it  is  on 
track  1.  The  drive  clatters  when  a  protrusion  on  the  stepper  motor's  drive  pulley  bumps 
up  against  a  mechanical  stop.  (It  really  isn't  a  melt  down.)  The  head  then  steps  inwards 
to  track  18  and  the  DOS  awaits  further  instructions.  Self  initialization  avoids  this  scenario. 
Initialize  every  time  you  insert  a  diskette  into  the  drive. 

Initialization  clears  the  error  channel  and  turns  off  the  flashing  red  LED.  Unless,  of 
course,  you  are  trying  to  initialize  an  unformatted  diskette  or  forgot  to  put  one  in  the 
drive  to  begin  with.  Clearing  the  error  channel  destroys  the  error  status  the  DOS 
prepared  for  you.  If  error  checking  is  important,  retrieve  the  error  message  first;  then 
initialize  the  drive. 

The  Rename  Command 

Occasionally  you  will  want  to  change  the  name  of  a  file  stored  on  a  diskette.  To  rename 
a  file  you  first  open  the  command  channel  and  then  send  the  rename  command  like  this: 

SYNTAX:  OPEN   15,    8,  15 

PRINT#15,    "R0:NEW  NAME=0LD  NAME" 
CLOSE  15 

ALTERNATE:    PRINT#15,    "R:NEW  NAME=OLD  NAME" 

EXAMPLE:        OPEN  15,    8,  15 

PRINT#15,    "RO:  DISPLAY  T«{S=DTS" 
CLOSE  15 

dos  5.1:      >ro:new  name=old  name 
>r:new  name=old  name 


22 


Again  the  syntax  is  exacting  but  simple  to  follow.  The  RO:  means  to  rename  on  drive 
0.  It  is  short  for  RENAMEO:.  As  before,  the  0  is  optional  on  the  1541.  The  next  parameter 
is  the  new  file  name.  A  file  name  is  generally  alphanumeric  in  nature  and  16  characters 
are  allowed  at  the  maximum.  (Commas,  colons,  semicolons,  and  wild  cards  are  not  per- 
mitted. Cursor  control  and  reverse  video  characters  should  be  avoided.)  The  new  file 
name  is  followed  by  an  "  =  "  sign.  The  last  parameter  is  the  existing  or  old  file  name. 
It  must  be  spelled  out  exactly  as  it  appears  in  the  directory.  Wild  cards  (*,?)  are  not 
allowed.  If  you  make  a  typo  on  this  parameter  or  the  file  does  not  appear  in  the  direc- 
tory, the  rename  command  fails.  No  damage  is  done,  so  relax.  In  the  above  example 
our  new  file  name  is  DISPLAY  T&S.  It  replaces  the  old  file  name  DTS.  One  final  point. 
You  cannot  rename  a  file  that  is  currently  open  for  a  read  or  write. 

The  Copy  Command 

The  copy  command  allows  you  to  easily  backup  an  existing  file  on  your  diskette.  There 
are  three  restrictions  attached.  First,  the  new  file  must  have  a  different  name.  Second, 
the  copy  command  will  not  work  on  a  relative  file.  Third,  you  must  have  enough  room 
on  the  diskette.  The  copy  command  looks  like  this: 

SYNTAX : 

OPEN   15,    8,  15 

PRINT#15,    "CO: B ACKUP=0 : OR I G I N AL " 
CLOSE  15 

ALTERNATE: 

PR I NT# 1 5 ,    " C : B ACKUP=OR I G I N AL " 

EXAMPLE: 

OPEN   15,    8,  15 

PRINT#15,    "CO: MY  PROGRAM  B/U=0:MY  PROGRAM" 
CLOSE  15 

DOS  5. l: 

>CO : BACKUP=0 : OR I G I NAL 
>C : BACKUP=OR I G I NAL 

The  C  is  short  for  COPY.  The  new  file  above  is  called  MY  PROGRAM  B/U.  It  is  a  backup 
copy  of  a  previous  program  called  MY  PROGRAM.  Note  that  we  must  specify  the  drive 
number  twice.  Again  this  is  a  holdover  from  a  dual  drive  configuration.  The  C  does  not 
appear  twice,  however.  The  same  restrictions  that  apply  to  the  rename  command  are 
also  in  effect  here,  i.e.,  16  character  file  name  limit,  use  of  restricted  characters,  etc. 
The  drive  number  is  optional.  See  the  alternate  syntax  to  save  a  few  keystrokes. 

It  is  also  possible  to  merge  two  or  more  sequential  data  files  using  the  copy  command. 
The  syntax  for  this  is  as  follows: 

SYNTAX: 

OPEN   15,    8,  15 

PRINT#15,    "CO: COMBINED=0: FILEl , O: FILE2, 

0:FILE3" 
CLOSE  15 
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alternate: 

PRINT#15,  "C: C0MBINED=FILE1 , FILE2, FILES- 
EXAMPLE: 

OPEN   15,    8,  15 

PR I NT# 1 5 ,    " CO :  M A I LF I LE=0 : NAME , O : ADDRESS , 

O: CITY" 
CLOSE  15 


DOS  5. 1 : 

CO : COMB I NED=0 : F I LE 1 , 0 : F I LE2 , O : F I LE3 
>C : COMB I NED=F I LE 1 , F I LE2 , F I LE3 

Our  large  file  now  consists  of  several  files  appended  together.  While  this  feature  of  the 
copy  command  is  available,  it  is  rarely  used.  Few  programming  techniques  would  re- 
quire or  ever  utilize  this  feature.  Note  that  this  technique  cannot  be  used  to  append 
a  subroutine  onto  a  BASIC  program;  the  subroutine  cannot  be  merged  into  the  main 
program  by  the  disk  drive.  You  will  need  to  use  a  programmer's  aid  like  POWER™, 
SYSRES™,  or  BASIC  AID™  for  the  C64  to  do  this. 


The  Scratch  Command 

To  get  rid  of  an  unwanted  file,  we  scratch  it.  The  only  exception  is  an  unclosed  file. 
An  unclosed  file  is  one  that  appears  in  the  directory  as  having  zero  blocks  and  whose 
file  type  is  preceded  by  an  asterisk  (*SEQ,  *PRG,  etc.).  This  will  be  explained  below. 
To  scratch  a  file,  first  remove  the  write  protect  tab  and  key  in: 

SYNTAX:  OPEN   15,    8,  15 

PRINT#15,    "SO: FILE  NAME" 
CLOSE  15 


ALTERNATE:    PRINT* 15,    "S:FILE  NAME" 

EXAMPLE:        OPEN   15,    8,  15 

PRINT#15,  "SO: TESTING  123" 
CLOSE  15 


dos  5.1:      >so:file  name 
>s:file  name 

The  scratch  command  requires  a  single  parameter,  the  file  name,  preceded  by  S  or 
SCRATCH.  As  before,  the  drive  number  is  optional. 

There  are  some  variations  that  incorporate  wild  cards.  Wild  cards  in  a  file  name  are 
asterisks  (*)  or  question  marks  (?).  They  should  be  used  with  utmost  caution  since  more 
than  one  file  can  be  scratched  at  a  time. 

EXAMPLE:    OPEN    15,    8,  15 

PRINT#15,  "SO:T»" 
CLOSE  15 


DOS  5.1:    >S0 : T* 
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In  the  above  example  all  files  beginning  with  the  letter  T,  regardless  of  file  type,  will 
be  scratched.  In  the  event  that  no  file  starts  with  the  letter  T,  none  will  be  affected. 
Careless  use  of  a  wild  card  can  have  catastrophic  results.  For  example: 

EXAMPLE:    OPEN   15,    B,  15 

PRINT#15,  "SO:*" 
CLOSE  15 

DOS  5.1:    >SO: * 


The  above  command  will  scratch  every  file  on  the  diskette.  It  is  the  equivalent  of  per- 
forming a  short  new  on  a  diskette.  Be  careful! 

The  second  wild  card  is  the  question  mark.  It  is  used  to  mask  out  characters  that  are 
not  of  importance.  Suppose  we  want  to  scratch  a  number  of  files  whose  names  are  all 
eight  characters  long  and  end  in  .C64.  We  could  not  use  .C64*  to  scratch  them  since 
the  match  falls  at  the  end  of  the  file  name.  However,  we  could  use: 

EXAMPLE:    OPEN   15,    8,  15 

PRINT#15,    "SO: ????.C64" 
CLOSE  15 

DOS  5.1:    >S0 :????. C64 

Note  that  we  used  four  question  marks  in  the  above  example.  An  exact  match  of  .C64 
must  occur  on  characters  5  through  8  of  the  file  name.  No  match  —  no  scratch.  If  we 
had  154LC64  and  C100.C64  on  the  disk,  both  would  be  scratched  by  the  previous  com- 
mand. However,  BACKUP.C64  would  not  be  affected. 

More  than  one  wild  card  can  be  used  within  the  same  command.  For  example: 

EXAMPLE:    OPEN   15,    8,  15 

PRINT#15,  "SO:T?ST*" 
CLOSE  15 

DOS  5. l:  >SO:T?ST* 

This  command  would  scratch  files  with  these  names:  TEST,  TASTY,  TESTING123.  The 
file  TOAST  would  not  be  affected.  Note  that  it  makes  no  sense  to  send  a  command  like 
this:  "SO:T*ST???".  The  asterisk  has  priority  over  the  question  mark.  All  characters 
that  appear  after  the  asterisk  are  ignored. 

A  file  type  that  begins  with  a  *  is  unclosed:  *SEQ,  *PRG,  etc.  It  was  never  closed  proper- 
ly. This  can  happen  for  a  variety  of  reasons: 

1.  The  diskette  may  have  been  at  its  physical  capacity  and  a  disk-full  situation  occurred 
during  a  save  or  write  to  a  diskette. 

2.  A  bad  sector  may  have  been  encountered  during  a  write  to  a  diskette. 


25 


3.  The  file  may  have  been  left  open  following  a  write  operation  because  you  forgot  to 
CLOSE  the  file,  or  you  aborted  the  program  by  hitting  either  the  RUN/STOP  key 
or  the  RUN/STOP  and  the  RESTORE  keys. 

4.  Your  program  had  a  syntax  error  in  it  and  the  BASIC  interpreter  returned  you  to 
immediate  mode. 

(See  Chapter  8  about  how  to  recover  an  unclosed  file.) 

Whatever  the  cause,  an  unclosed  file  should  never  be  scratched!  Since  the  write  opera- 
tion was  aborted,  the  internal  organization  of  the  diskette  (i.e.,  the  BAM),  has  been  left 
in  disarray.  It  does  not  match  the  actual  file  contents  of  the  diskette.  Any  further  at- 
tempt to  write  to  that  diskette  will  probably  cause  a  loss  of  one  or  more  files.  Files  can 
actually  overlap  one  another  now  and  you  will  be  left  vdth  a  poisoned  diskette.  The  DOS 
does  have  a  command  to  decorrupt  itself.  This  is  the  validate  command.  When  in  doubt, 
validate  your  diskette! 

The  scratch  command  does  not  actually  erase  the  file  on  your  diskette.  Rather  it  traces 
the  file  across  the  surface  of  the  diskette  and  frees  any  sectors  the  file  occupied.  The 
file-type  byte  is  also  changed  to  a  zero  in  the  directory  which  indicates  to  the  DOS  that 
it  is  no  longer  active.  // you  inadvertently  scratch  a  file  that  you  didn't  mean  to,  stop 
right  then  and  there!  You  can  recover  it.  Do  not  attempt  to  write  to  the  diskette.  The 
sectors  just  freed  will  be  used  on  subsequent  writes  to  the  diskette.  Once  you  write 
to  the  diskette,  recovery  is  impossible.  Chapter  8  on  Getting  Out  of  Trouble  shows  you 
how  to  recover  a  scratched  file. 


The  Validate  Command 

This  command  tells  the  DOS  to  reconstruct  its  map  which  shows  where  information  is 
stored  on  the  diskette,  so  it  conforms  to  the  files  listed  in  the  directory.  This  is  a  simple 
way  to  decorrupt  a  damaged  diskette.  However,  it  is  not  a  failsafe  command  as  will  be 
explained  shortly.  A  validate  command  looks  like  this: 


SYNTAX: 


OPEN  15,  8,  15 
PRINT#15,  "VO" 
CLOSE  15 


ALTERNATE:    PRINT#15,  "V" 


DOS  5. 1 


>V0 


The  V  is  an  abbreviation  for  VALIDATE.  As  before,  the  0  is  optional  for  the  1541  drive. 


What  does  a  validate  do?  The  DOS  keeps  a  map  that  indicates  which  sectors  on  a  diskette 
are  currently  in  use.  This  map  is  stored  on  track  18,  sector  0.  It  is  referred  to  as  the 
Block  Availability  Map  or  just  the  BAM  for  short.  When  the  validate  command  is  issued, 
all  blocks  are  freed  in  the  BAM  on  the  diskette  simulating  a  newly  formatted  blank 
diskette.  The  drive  then  picks  up  the  first  file  in  the  directory  and  chains  through  the 
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entire  file.  As  sectors  are  picked  up  along  the  way,  they  are  allocated  in  the  BAM  as 
currently  in  use.  If  the  file  is  traced  successfully,  all  blocks  associated  with  it  are  put 
back  into  the  BAM  as  in  use.  The  next  file  is  then  picked  up  out  of  the  directory  and 
the  process  continues.  When  all  files  have  been  traced,  the  new  BAM  is  written  to  the 
diskette  and  the  internal  count  now  matches  the  directory  contents. 

So  far  so  good.  Now  let's  see  what  happens  to  an  unclosed  file.  When  the  DOS  encounters 
an  unclosed  file  in  the  directory  during  a  validate  command,  all  it  does  is  change  the 
file  type  byte  in  the  directory  entry  to  a  0  (scratched  file).  No  attempt  is  made  to  trace 
the  file.  When  the  validate  operation  is  complete,  the  unclosed  file  will  no  longer  appear 
in  a  directory  listing  and  any  blocks  associated  with  it  will  be  free.  This  is  what  you 
want  to  happen.  Now  let's  see  what  happens  if  you  attempt  to  SCRATCH  an  unclosed 
file. 

When  you  scratch  a  file,  two  things  happen:  the  file-type  byte  in  the  directory  for  this 
file  is  set  to  0  (scratched  file)  and  the  DOS  traces  through  the  chain  of  sectors  that  make 
up  the  file  and  marks  each  sector  it  encounters  as  available  for  use  (free)  in  the  BAM. 
This  is  just  what  you  want  to  have  happen  for  a  normal  file,  but  it  can  poison  the  diskette 
when  you  try  it  on  an  unclosed  file.  Here's  why.  The  last  sector  of  an  unclosed  file  was 
never  written  out  to  the  diskette.  As  a  result,  the  second  to  the  last  sector  points  to 
a  sector  that  is  not  really  part  of  the  file.  The  DOS  doesn't  realize  this  and  continues 
to  follow  the  "chain."  If  you  are  lucky,  the  "unwritten  sector"  will  be  a  empty  sector 
(never  used  since  the  disk  was  formatted).  If  this  happens,  the  DOS  will  stop  because 
pointers  point  to  a  non-existent  track  and  sector  (75,1).  If  you  are  unlucky,  the  "unwrit- 
ten sector"  will  be  part  of  a  file  that  you  scratched  last  week  and  the  pointer  will  just 
happen  to  point  into  the  middle  of  that  very  important  file  you  just  saved  yesterday. 
When  this  happens,  the  DOS  will  merrily  deallocate  the  remaining  sectors  in  your  file. 
The  next  write  operation  to  the  diskette  will  see  this  nice  big  open  space  and  the  new 
information  will  be  saved  right  on  top  of  your  active  file.  Now  the  situation  has  gone 
from  bad  to  worse  and  is  in  fact  pathological  —  hence  a  poisoned  disk.  The  only  solution 
is  to  inspect  each  file  first  to  ensure  that  it  is  not  tainted  and  then  copy  it  onto  another 
diskette. 

The  validate  routine  is  aborted  if  an  error  (an  unreadable  sector)  is  encountered.  When 
it  aborts,  nothing  radical  occurs.  The  new  BAM  is  not  written  to  the  disk  until  the  vahda- 
tion  process  has  been  completed.  Don't  worry  about  the  blank  BAM  getting  you  in  trou- 
ble; the  DOS  will  read  the  old  one  back  in  before  it  allows  you  to  write  to  the  disk. 
However,  the  diskette  still  remains  corrupted  with  no  quick  remedy  in  sight.  Chapter 
8  on  recovery  deals  with  this  and  other  disasters. 
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CHAPTER  3 


DISKETTE  FORMATTING 


When  you  take  a  new  floppy  diskette  out  of  the  package,  it  is  blank.  Before  the  drive 
can  store  data  onto  it,  it  must  be  formatted.  This  is  done  by  inserting  the  diskette  into 
the  drive  and  sending  a  NEW  command  to  the  DOS  (see  Section  2.5).  During  "format- 
ting" or  "newing,"  35  concentric  tracks  are  written  to  the  diskette.  Each  track  is  made 
up  of  varying  numbers  of  sectors/blocks  where  programs  and  data  will  eventually  be 
stored.  In  addition  to  laying  down  empty  blocks/sectors,  the  DOS  creates  a  directory 
and  a  block  availability  map  (BAM)  and  records  them  on  track  18. 

This  chapter  describes  the  formatting  process  and  the  tracks  and  sectors  of  a  diskette. 
Chapter  4  describes  the  directory  and  the  block  availability  map  (BAM). 

3.1  Layout  of  Tracks  and  Sectors 

During  the  formatting  (newing)  process,  the  DOS  divides  the  diskette  into  tracks  and 
sectors.  A  track  is  a  circular  path  on  the  diskette  along  which  information  is  stored. 
Each  track  is  concentric  with  the  hole  in  the  center  of  the  diskette.  There  are  a  total 
of  35  tracks  numbered  from  1  to  35.  Track  1  is  the  outermost  track  and  track  35  is  the 
innermost  track.  The  read/write  head  may  be  positioned  to  any  given  track.  The  posi- 
tion of  track  1  is  determined  by  a  mechanical  stop  that  limits  the  outward  movement 
of  the  read/write  head.  The  other  tracks  are  identified  by  their  distance  from  track  1. 
The  diagram  below  indicates  the  layout  of  the  tracks  on  a  formatted  diskette. 
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Although  there  are  only  35  tracks,  the  stepper  motor  can  position  the  read/write  head 
to  more  than  70  different  positions.  This  might  seem  to  imply  that  additional  tracks  could 
be  recorded  on  the  surface  of  the  diskette  to  increase  its  storage  capacity.  Unfortunate- 
ly, the  accuracy  of  the  head  positioning  mechanism  and  the  width  of  the  path  of  magnetiza- 
tion produced  by  the  read/write  head  makes  the  use  of  these  "phantom"  tracks  unreliable. 
If  you  would  like  to  experiment  with  this,  the  programs  described  in  Chapter  9  allow 
you  to  experiment  with  stepping  the  head  around. 

Each  track  is  divided  into  seventeen  or  more  sectors  (blocks).  Each  sector  holds  256 
bytes  of  data.  (Some  manufacturer's  record  data  in  512  or  1024  byte  sectors.)  Whenever 
data  is  read  from  or  written  to  a  diskette,  it  is  done  one  complete  sector  at  a  time. 

On  Commodore  disk  drives,  the  tracks  are  not  divided  into  a  fixed  number  of  sectors. 
The  number  of  sectors  depends  on  the  track  number.  The  outer  tracks  Qower  numbers) 
are  longer  and  are  divided  into  more  sectors  than  the  inner  (higher  numbered)  tracks. 
The  table  below  summarizes  how  the  diskette  is  organized. 

Organization  of  Tracks  and  Sectors  on  a  1541  Formatted  Diskette 


Track  Range  of  Sector    Total  Sectors        Total  Bytes 

Zone  Numbers  Numbers  Per  Track  Per  Track 


1  1  to  17  0  to  20  21  5376 

2  18  to  24  0  to  18  19  4864 

3  25  to  30  0  to  17  18  4608 

4  31  to  35  0  to  16  17  4352 


A  total  of  683  sectors  are  written  at  the  time  of  initial  formatting.  Since  the  disk  rotates 
at  a  constant  speed  of  300  rpm,  you  may  wonder  how  Commodore  manages  to  vary  the 
number  of  sectors  from  zone  to  zone.  This  is  accomplished  by  varying  the  rate  at  which 
data  is  read  or  written  (changing  the  clock  rate).  Each  of  the  four  zones  uses  a  different 
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clock  rate.  This  is  accomplished  by  using  a  high  speed  clock  and  dividing  the  clock  by 
N,  where  the  value  of  N  is  determined  by  the  zone.  The  table  below  summarizes  the 
clock  rates  for  each  zone. 


Zone 

Tracks 

Divisor 

Clock  Rate 

Bits/Rotation 

1 

1  to  17 

13 

307,692  bits/sec 

61,538.4 

2 

18  to  24 

14 

285,714  bits/sec 

57,142.8 

3 

25  to  30 

15 

266,667  bits/sec 

53,333.4 

4 

31  to  35 

16 

250,000  bits/sec 

50,000.0 

This  scheme  provides  a  recording  density  that  varies  from  about  4000  bits/inch  on  the 
outer  tracks  to  almost  6000  bits/inch  on  the  inner  tracks. 

If  all  of  the  possible  bits  could  be  used  for  data  alone,  we  would  be  able  to  store  a  total 
of  2,027,676  bits  or  253,459  bytes  on  a  diskette.  Unfortunately,  not  all  of  these  bytes 
can  be  used  for  data.  The  total  storage  capacity  of  a  diskette  formatted  on  the  1541  is 
174,848  bytes.  The  need  for  space  to  store  a  directory  to  keep  track  of  the  location  of 
the  files  on  a  diskette  (see  Chapter  4)  further  reduces  us  to  an  effective  storage  capacity 
of  169,984  bytes  (256  bytes  *  664  sectors). 


3.2  Layout  of  a  Sector 


During  the  formatting  (newing)  process,  the  DOS  creates  and  records  onto  the  diskette 
all  683  sectors/blocks  that  will  eventually  be  used  for  storing  information.  Each  sector 
is  comprised  of  two  parts: 

1.  A  header  block  that  identifies  the  sector. 

2.  A  data  block  that  holds  the  256  bytes  of  data. 

The  diagram  below  illustrates  how  these  parts  are  arranged. 


SECTOR  #0 


SECTOR  #1 


SECTOR  #2 


I 


I 


HEADER  BLOCK 


DATA  BLOCK 


HEADER  BLOCK 


DATA  BLOCK 


HEADER  BLOCK 


=  sync  mark 


inter-sec  gap 


The  sectors  are  recorded  in  numerical  sequence  along  the  circular  track.  Each  sector 
consists  of  an  identifying  header  block  followed  by  a  data  block.  The  sectors  are  separated 
from  each  other  by  an  inter-record  gap.  A  special  character  called  a  SYNC  MARK  is 
used  to  mark  the  beginning  of  each  header  or  data  block. 
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A  SYNC  MARK  is  a  very  special  character.  It  consists  of  10  or  more  1  bits  in  a  row 
(normally  40  of  them).  This  particular  pattern  of  bits  only  occurs  at  the  start  of  a  header 
or  data  block.  The  hardware  in  the  1541  drive  can  detect  this  character  and  signal  the 
DOS  that  a  new  data  or  header  block  is  coming. 

If  you  are  puzzled  about  why  several  $FF  characters  in  a  row  in  the  data  block  are 
not  interpreted  as  a  sync  character,  you  may  want  to  skip  ahead  to  the  section  on  Com- 
modore's GCR  encoding  scheme  in  Chapter  7. 


3.3  The  Header  Block 

The  header  block  of  a  sector  allows  the  DOS  to  identify  which  track  and  sector  is  being 
read.  It  is  composed  of  a  sync  mark,  eight  bytes  of  identifying  information,  and  a  header 
gap.  The  diagram  below  shows  the  layout  of  a  header  block. 


SYNC 

HEADER 

HEADER 

SECTOR 

TRACK 

ID 

ID 

SOF 

SOF 

HEADER 

MARK 

RLDCK 

BLOCK 

NDMBER 

NDMBER 

CHARACTER 

CHARACTER 

BYTE 

BYTE 

GAP 

ID 

CHECKSDM 

NUMBER  2 

NUMRER  1 

NOTE:  The  header  is  recorded  on  disk  exactly  as  indicated  above.  The  diagram  on  page 
54  of  the  ISJfl  User's  Manual  is  incorrect. 

Let's  examine  the  bytes  that  make  up  the  header  block: 

Sync  Mark:  This  consists  of  10  or  more  1  bits  as  described  above.  It  warns  the  DOS 
that  either  a  data  block  or  a  header  block  is  coming. 

Header  Block  ID:  This  is  normally  a  $08  byte.  It  serves  to  indicate  to  the  DOS  that 
this  is  a  header  block  and  not  a  data  block. 

Header  Block  Checksum:  This  is  a  checksum  character  used  by  the  DOS  to  ensure 
that  the  header  block  was  read  correctly.  It  is  found  by  EORing  the  track  number,  the 
sector  number,  and  the  two  ID  characters.  If  you  are  not  sure  what  an  EOR  is,  you 
may  want  to  read  through  Section  7.1. 

Sector  Number:  This  byte  is  the  number  of  this  particular  sector.  The  sectors  are 
numbered  consecutively  around  a  track. 

Track  Number:  This  byte  is  the  number  of  this  particular  track.  The  DOS  uses  this 
byte  to  check  to  be  sure  that  the  record/play  head  is  positioned  to  the  correct  track. 

ID  Character  #  2:This  is  the  second  ID  character  that  you  specified  in  the  NEW  com- 
mand when  the  diskette  was  formatted  (e.g.,  the  1  in  "N0:GAMES,V1").  It  is  sometimes 
referred  to  as  the  ID  HI.  The  DOS  checks  this  byte  against  a  master  disk  ID  to  ensure 
that  you  have  not  swapped  diskettes. 
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ID  Character  #1:  This  is  the  first  ID  character  that  you  specified  in  the  NEW  com- 
mand when  the  diskette  was  formatted  (e.g.,  the  V  in  "N0:GAMES,V1")-  It  is  sometimes 
referred  to  as  the  ID  LO.  The  DOS  checks  this  byte  against  a  master  disk  ID  to  ensure 
that  you  have  not  swapped  diskettes. 

$0F  Bytes:  These  bytes  are  used  as  padding  (spacing)  by  the  DOS  during  initial  format- 
ting. They  are  called  "OFF"  bytes.  Once  formatting  is  complete  OFF  bytes  are  never 
referenced  again. 

Header  Gap:  The  header  gap  consists  of  eight  $55  bytes.  These  eight  bytes  are  used 
to  provide  breathing  room  between  the  header  block  and  the  data  block.  The  DOS  never 
reads  these  bytes.  They  allow  the  DOS  time  to  set-up  for  reading  the  data  block  that 
follows.  NOTE:  The  4040  drive  uses  a  nine  byte  header  gap.  This  is  one  of  the  reasons 
why  1541  drives  and  4040  drives  are  NOT  WRITE  COMPATIBLE!  See  Chapter  9  for 
more  information. 

NOTE:  A  header  block  is  written  only  during  the  formatting  process.  It  is  never  rewrit- 
ten again,  period. 


3.4  The  Data  Block 

The  data  block  of  a  sector  stores  the  256  data  bytes  for  this  sector.  It  is  composed  of 
a  sync  mark,  a  data  block  ID  character,  the  256  bytes  of  data,  a  data  block  checksum 
byte,  two  off  bytes,  and  an  inter-sector  gap.  The  diagram  below  depicts  the  layout  of 
a  data  block. 
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Let's  examine  the  bytes  that  make  up  the  data  block: 

Sync  mark:  This  consists  of  10  or  more  1  bits  as  previously  described.  It  warns  the 
DOS  that  either  a  data  block  or  a  header  block  is  coming. 

Data  Block  ID:  This  byte  is  normally  a  $07.  It  serves  to  indicate  to  the  DOS  that  this 
is  a  data  block  and  not  a  header  block  ($08). 

256  Data  Bytes:  This  is  the  actual  data  stored  in  the  sector.  See  Chapter  4  about  how 
Commodore  uses  the  first  two  bytes  as  a  forward  track  and  sector  pointer  instead  of 
actual  data. 

Data  Block  Checksum:  This  is  a  checksum  character  used  by  the  DOS  to  ensure  that 
the  data  block  was  read  correctly.  It  is  found  by  EORing  all  256  data  bytes  together. 

$00  Bytes:  These  two  bytes  are  also  called  OFF  bytes.  They  are  used  to  pad  a  data 
block  before  it  is  written.  They  are  not  referenced  again  by  the  DOS. 
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Inter-sector  Gap:  This  is  also  known  as  the  "tail  gap."  Its  purpose  is  to  provide  breathing 
room  between  the  end  of  the  data  block  and  the  start  of  the  next  sector.  The  length 
of  the  gap  varies  from  zone  to  zone  and  from  one  drive  to  another  (see  the  chart  in  Sec- 
tion 7.1).  Between  consectutive  sectors  the  gap  is  normally  4  to  12  bytes  long.  The  gap 
between  the  last  sector  on  a  track  and  sector  zero  is  often  longer  —  up  to  100  bytes 
in  length.  The  gap  is  designed  to  be  long  enough  so  that  if  you  write  a  data  block  on 
a  day  when  your  drive  is  turning  slightly  faster  than  300  rpm,  you  won't  overwrite  the 
start  of  the  next  sector.  (Your  drive  may  not  be  turning  at  exactly  300  rpm  all  the  time 
because  of  fluctuations  in  the  power  supplied  to  your  home  or  office,  mechanical  wear, 
belt  slippage,  changes  in  temperature,  etc.)  Note  that  the  DOS  never  reads  these  bytes. 

The  entire  data  block  (including  the  preceding  sync  mark)  is  rewritten  each  time  data 
is  recorded  on  a  diskette. 

This  concludes  our  overview  on  how  a  diskette  is  formatted.  Additional  details  about 
how  bytes  are  encoded  on  the  surface  of  a  diskette  are  provided  in  Section  7.1.  The  ac- 
tual recording  process  is  described  in  Section  9.7. 
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CHAPTER  4 


DISKETTE  ORGAWIZATIOW 


4.1  Information  Management 

The  information  that  is  stored  on  a  floppy  disk  is  virtually  useless  unless  it  can  be  retriev- 
ed quickly.  As  a  result,  the  organization  and  management  of  information  is  one  of  the 
most  important  tasks  of  the  DOS.  To  do  an  efficient  job  of  management,  the  DOS  must 
be  able  to: 

1.  Keep  track  of  which  sectors  contain  data  and  which  are  still  empty  (available  for  use). 

2.  Assign  names  and  storage  locations  to  large  blocks  of  related  information  (files). 

3.  Keep  track  of  the  sequence  of  sectors  that  were  used  to  store  a  file. 

The  DOS  stores  most  of  this  information  in  the  directory  on  track  18,  halfway  between 
the  outermost  track  (1)  and  the  innermost  track  (35).  Centering  the  directory  serves 
to  minimize  head  movement  across  the  diskette  and  extends  the  life  of  both  the  drive 
and  the  media.  The  directory  is  subdivided  into  two  areas— the  map  showing  which  sec- 
tors are  in  use  and  which  are  free  (the  Block  Availability  Map  or  BAM)  and  directory 
entries.  The  BAM  resides  solely  on  sector  0  of  track  18.  It  informs  the  drive  as  to  what 
sectors  are  currently  in  use  and  where  subsequent  writing  to  the  diskette  can  safely 
take  place.  The  remaining  sectors  (1-18)  of  track  18  contain  directory  entries  (file  names, 
file  types,  and  pointers  to  where  files  are  stored  on  the  diskette). 


4.2  The  Directory  You  See 

Let's  examine  the  directory  of  the  1541TEST/DEMO  diskette  that  came  with  your  drive. 
Insert  it  in  your  drive  and  type  on  your  keyboard: 

LOAD  "*0",8 

then  type 
LIST 
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After  a  brief  pause  you  should  see  the  following  on  your  screen: 


0  " 

1541 TEST /DEMO        "  ZX 

2A 

13 

"HOW  TO  USE" 

PRG 

5 

"HOW  PART  TWO" 

PRG 

4 

"VIC-20  WEDGE" 

PRG 

1 

"C-64  WEDGE" 

PRG 

4 

"DOS  5. 1 " 

PRG 

11 

"COPY /ALL" 

PRG 

9 

"PRINTER  TEST" 

PRG 

4 

"DISK  ADDR  CHANGE" 

PRG 

4 

"DIR" 

PRG 

6 

"VIEW  BAM" 

PRG 

4 

"CHECK  DISK" 

PRG 

14 

"DISPLAY  T8<S" 

PRG 

9 

"PERFORMANCE  TEST" 

PRG 

5 

"SEQUENTIAL  FILE" 

PRG 

13 

"RANDOM  FILE" 

PRG 

558 

BLOCKS  FREE. 

The  0  refers  to  which  drive  was  accessed.  This  is  a  holdover  from  the  4040  dual  drive 
system.  Next  you  see  the  diskette  name  —  1541TEST/DEMO.  In  the  event  that  the 
diskette  name  is  less  than  16  characters  in  length,  blank  spaces  are  appended  to  the 
end  of  the  name.  This  forced  spacing  is  known  as  padding.  Following  the  name  of  the 
diskette  is  the  disk  ID  —  ZX  in  this  instance.  These  two  characters  are  generally  (but 
not  always)  the  unique  alphanumeric  characters  under  which  the  diskette  in  question 
was  formatted  originally.  The  diskette  name  and  ID  are  cosmetic  in  nature  and  appear 
in  the  directory  for  your  reference  purposes  only.  The  2A  indicates  the  DOS  version 
and  format,  4040  in  this  instance  —  again  a  holdover.  Next  we  see  the  active  file  entries 
on  the  diskette  itself.  Each  directory  entry  has  three  fields: 

1.  The  number  of  blocks/sectors  the  given  file  occupies. 

2.  The  file  name. 

3.  The  file  type. 

Your  demo  diskette  came  with  15  active  files  on  it.  Moreover,  they  are  all  program  files 
denoted  by  PRG.  The  last  entry  in  the  directory  is  the  remaining  number  of  available 
blocks/sectors  left  on  the  diskette  for  storage.  It  is  the  difference  between  664  blocks 
available  at  the  time  of  original  formatting  and  the  sum  of  the  blocks  of  the  active  files 
(664  -  106  =  558). 

What  you  see  on  your  screen  is  not  necessarily  how  the  directory  is  stored  on  your 
diskette,  however.  Let's  begin  our  look  at  the  directory  with  the  Block  Availability  Map 
(BAM). 

4.3  The  Block  Availability  JVIap  (BAJVI) 

The  BAM  is  where  the  DOS  keeps  track  of  which  sectors  (blocks)  on  the  diskette  con- 
tain information  (are  in  use)  and  which  ones  can  be  used  for  storing  new  information 
(are  free).  This  map  is  stored  on  track  18,  sector  0.  Here  is  a  hex  dump  of  that  sector 
on  the  1541TEST/DEMO  disk  so  we  can  examine  it  in  detail. 
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1541TEST/DEM0 


TRACK  18  -  SECTOR  O 

oo:  12  01   41  00   15  FF  FF  IF  ..A   BAM  TRACK  1 

OS:  15  FF  FF  IF   15  FF  FF  IF   BAM  TRACKS  2-3 

10:  15  FF  FF  IF   15  FF  FF  IF   BAM  TRACKS  4-5 

is:  15  FF  FF  IF  15  FF  FF  IF   BAM  TRACKS  6-7 

20:  15  FF  FF  IF   15  FF  FF  IF   BAM  TRACKS  S-9 

28:  15  FF  FF  IF   15  FF  FF  IF   BAM  TRACKS  10-11 

30:  15  FF  FF  IF   15  FF  FF  IF   BAM  TRACKS  12-13 

38:  11   D7  5F  IF  00  00  OO  OO  .W   BAM  TRACKS  14-15 

40:  OO  OO  OO  OO  oo  OO  OO  OO   BAM  TRACKS  16-17 

48:  10  EC  FF  07  00  00  00  OO   BAM  TRACKS  18-19 

50:  00  OO  00  00  12  BF  FF  07   ?. .  BAM  TRACKS  20-21 

58:  13  FF  FF  07   13  FF  FF  07   BAM  TRACKS  22-23 

60:  13  FF  FF  07   12  FF  FF  03   BAM  TRACKS  24-25 

68:  12  FF  FF  03  12  FF  FF  03   BAM  TRACKS  26-27 

70:  12  FF  FF  03   12  FF  FF  03   BAM  TRACKS  28-29 

78:  12  FF  FF  03   11   FF  FF  Ol    BAM  TRACKS  30-31 

so:  11   FF  FF  Ol    11   FF  FF  01    BAM  TRACKS  32-33 

88:  11   FF  FF  01    11   FF  FF  Ol    BAM  TRACKS  34-35 

90:  31   35  34  31   54  45  53  54  1541TEST  DISK  NAME 

98:  2f   44  45  4D  4F  AO  AO  AO  /DEMO 

AO:  AO  AO  5A  58  AO  32  41  AO       ZX  2A  DOS  TYPE  St  DISK  I 

AS:  AO  AO  AO  00  00  OO  OO  OO    UNUSED 

BO:  OO  OO  OO  00  OO  OO  OO  oo   

B8:  00  oo  OO  00  OO  OO  OO  OO   

CO:  oo  OO  00  00  oo  oo  00  OO   

C8:  00  oo  00  00  oo  oo  00  oo   

DO:  00  oo  oo  00  oo  oo  oo  oo   

D8:  00  oo  oo  00  oo  oo  oo  00   

EO:  00  oo  00  00  oo  oo  oo  00   

E8:  oo  oo  oo  oo  oo  00  oo  oo   

Fo:  00  oo  oo  00  00  00  00  oo   

F8:  oo  oo  oo  oo  oo  OO  OO  OO   

As  indicated  above,  the  BAM  does  not  take  up  all  256  bytes  on  this  sector.  There  are 
several  other  things  stored  here  as  well.  The  table  below  identifies  the  various  parts. 
Note  that  the  sector  dump  above  uses  hexadecimal  notation  while  the  table  below  gives 
the  decimal  equivalents. 


0/1  18/1  Pointer  to  first  sector  of  directory  entries 

2  65  ASCII  character  A  indicating  1541/4040  format 


Bytes  Contents  Purpose  

0/1  18/1  Pointer  to  firsi 

2  65  ASCII  charact 

3  0  Unused 
4-143  Block  Availabi 

144-159  Diskette  name 

160-161  160  Shifted  spaces 
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162-163  Diskette  ID 

164  160  Shifted  space 

165-166  50/65  DOS  version  and  format  type  (2A) 

167-170  160  Shifted  spaces 

170-255  ?  Unused 


In  the  BAM  four  bytes  are  used  to  describe  the  status  of  each  track.  As  a  result,  the 
BAM  takes  up  a  total  of  4  x  35  =  140  bytes  (bytes  4-143  or  $04-$8F).  Let's  examine 
the  entry  for  track  14  to  see  what  these  four  bytes  mean.  The  entry  for  track  14  begins 
at  byte  14  x  4  =  56  ($38).  It  looks  like  this: 

.    3G:    11   D7  5F   IF  00  00  00  00   .W  BAM  TRACKS  14-15 


The  first  byte  for  track  14  (location  $38  =  56)  indicates  the  number  of  blocks  free  on 
this  track. 

.    38:    11   D7  5F   IF  00  00  00  00   .W  BAM  TRACKS  14-15 


In  this  case  there  are  $11  or  17  (1  *  16  -i-  1)  blocks  free. 

When  the  DOS  calculates  the  number  of  blocks  free  on  a  diskette,  it  sums  this  byte 
from  each  track's  entry  in  the  BAM.  Let's  do  our  own  blocks  free  calculation  to  see 
how  it  is  done.  All  we  have  to  do  is  sum  up  the  decimal  values  of  every  fourth  byte 
starting  with  byte  4  like  this: 


HEX  DECIMAL 
ZONE         BYTE        TRACK       VALUE  VALUE 


4 

1 

$1F 

21 

8 

2 

$1F 

21 

12 

3 

$1F 

21 

16 

4 

$1F 

21 

20 

5 

$1F 

21 

24 

6 

$1F 

21 

28 

7 

$1F 

21 

32 

8 

$1F 

21 

36 

9 

$1F 

21 

40 

10 

$1F 

21 

44 

11 

$1F 

21 

48 

12 

$1F 

21 

52 

13 

$1F 

21 

56 

14 

$11 

17 

60 

15 

$00 

0 

64 

16 

$00 

0 

68 

17 

$00 

0 
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72 

18 

$10 

16 

76 

19 

$13 

19 

80 

20 

$13 

19 

O  A 

84 

Zl 

$13 

19 

88 

22 

$13 

19 

92 

23 

$13 

19 

96 

24 

$13 

19 

100 

25 

$12 

18 

104 

26 

$12 

18 

108 

27 

!|)1Z 

lo 

112 

28 

$12 

18 

116 

29 

$12 

18 

120 

30 

$12 

18 

124 

31 

$11 

17 

128 

32 

$11 

17 

132 

33 

$11 

17 

136 

34 

$11 

17 

140 

35 

$11 

+  17 

574  BLOCKS  FREE 

Wait  a  minute!  We  calculated  574  blocks  free  hut  the  directory  shows  558.  How  do  we 
explain  this  discrepancy?  Easy.  Remember  that  the  DOS  reserves  track  18  for  its  own 
use.  Therefore  the  blocks  free  on  that  particular  track  are  not  returned  to  us  (574  - 
16  =  558).  Sixteen  sectors  on  track  18  are  still  free,  but  available  only  to  the  DOS. 

Now  that  you  have  seen  how  to  calculate  the  number  of  blocks  free  on  a  diskette,  let's 
get  back  to  our  analysis  of  track  14.  The  BAM  entry  looked  like  this: 

.    38:    11   D7  5F   IF  00  OO  00  OO   .W  BAM  TRACKS  14-15 

** 

The  first  byte  was  easy  to  interpret.  The  remaining  three  bytes  are  a  bit  trickier  (no 
pun  intended).  They  are  a  bit  map  showing  the  status  of  the  sectors  on  a  given  track. 
Bit  mapping  is  used  to  save  space.  If  one  byte  were  used  for  each  of  the  683  sectors, 
the  BAM  would  take  up  three  sectors  (683  /  256).  This  would  be  inefficient.  By  using 
bit  mapping,  each  byte  describes  the  status  of  eight  sectors.  This  way  only  three  bytes 
are  needed  for  each  track.  Let's  examine  the  bit  map  for  track  14  of  our  1541 
TEST/DEMO. 

.    38:    11   D7  5F   IF  00  OO  OO  OO   -W  BAM  TRACKS  14-15 

*♦  ♦* 


LOCATION  *39=57  *3A=58  *3B=59 

BYTE  VALUE  *D7                *5F  *1F 

BINARY  llOlOlll  OlOlllll  OOOlllll  ♦ 

SECTOR  mill  21111 

NUMBER  76543210  5432 1098  xxx09876 


♦   1   =  FREE 

O  =  ALLOCATED 
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Sectors  0  to  7  are  represented  by  the  byte  at  location  57.  Sectors  8  through  15  are  stored 
in  the  byte  at  location  58.  Finally,  sectors  16  through  20  are  depicted  by  the  byte  at 
location  59.  When  decoded,  a  bit  that  is  high  or  a  1  indicates  that  a  sector  is  not  current- 
ly in  use  (free)  and  can  be  written  to.  A  bit  that  is  low  or  a  0  is  currently  in  use  (allocated) 
and  will  be  overlooked  by  the  DOS  when  writing  subsequently  takes  place  to  the  diskette. 
The  third  byte  is  always  incomplete  since  a  maximum  of  21  sectors  are  written  to  any 
track.  This  particular  byte  is  automatically  adjusted  by  the  DOS  during  initial  format- 
ting to  indicate  the  proper  number  of  sectors  for  this  track.  Three  bytes  are  still  used 
irregardless  of  the  zone,  however.  If  you  count  up  the  Is  in  the  bit  map  for  track  14, 
you  will  find  that  there  are  17  free  sectors  on  track  14.  This  agrees  with  the  blocks  free 
count  for  the  track  stored  at  byte  location  $38  (56)  in  the  BAM,  i.e.,  $11  or  17  decimal. 

To  ensure  that  you  understand  how  the  bit  mapping  works,  let's  take  a  look  at  track 
18.  Since  track  18  is  used  for  storing  the  directory  we  would  expect  some  allocation  of 
sectors  here.  Byte  72  shows  $10  or  16  sectors  available  here.  They  are  bit  mapped  in 
bytes  73,  74,  and  75  as  follows: 


48:    lO  EC  FF  07  OO  OO  OO  OO 
**  **  **  ** 


BAM  TRACKS  18- 


LOCATION 
BYTE  VALUE 
BINARY 


*49=73 
*EC 


*4A=74 
*FF 


*4B=75 
*07 


11101100     11111111     OOOOOlll  * 


SECTOR 
NUMBER 


mill  21111 
765432 lO     54321098     xxx 09876 


*   1   =  FREE 

O  =  ALLOCATED 


If  you  are  still  unsure  of  yourself,  don't  be  too  concerned.  The  DOS  looks  after  the  BAM. 
Let's  move  on  and  explore  the  actual  directory  entries  themselves.  Sectors  1  through 
18  on  track  18  are  reserved  specifically  for  them. 


4.4  The  Directory  Entries 

Recall  that  bytes  0  and  1  of  track  18,  sector  0  point  to  the  next  track  and  sector  of  the 
directory.  In  this  particular  instance,  the  BAM  points  to  track  18,  sector  1.  Let's  ex- 
amine this  sector  in  detail. 


1541 TEST /DEMO 

TRACK   18  -  SECTOR  Ol 

.    OO:    12  04  82   11   OO  48  4F  57  HOW      FILE  ENTRY  #1 

.    08:    20  54  4F  20  55  53  45  AO     TO  USE 
.    lO:    AO  AO  AO  AO  AO  OO  OO  OO   
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18 

:  00 

oo 

00 

OO 

OO 

00 

OD 

OO 

20: 

:  00 

00 

82 

11 

03 

48 

4F 

57 

 HOW 

FILE 

ENTRY 

#2 

28 

:  20 

50 

41 

52 

54 

20 

54 

57 

PART  TW 

30 

:  4F 

AO 

AO 

AO 

AO 

OO 

OO 

00 

O 

38 

:  oo 

oo 

OO 

00 

00 

00 

05 

OO 

4o: 

■  00 

oo 

82 

11 

09 

56 

49 

43 

 VIC 

FILE 

ENTRY 

#3 

48: 

:  2D 

32 

30 

20 

57 

45 

44 

47 

-20  WEDG 

50: 

45 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

E   

58 

:  00 

oo 

00 

00 

00 

OO 

04 

OO 

60: 

oo 

oo 

82 

13 

OO 

46 

2D 

36 

 C-6 

FILE 

ENTRY 

#4 

68. 

■  34 

20 

57 

45 

44 

47 

45 

AO 

4  WEDGE. 

70; 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

78: 

:  00 

oo 

OO 

OO 

OO 

00 

Ol 

OO 

80: 

OO 

oo 

82 

13 

Ol 

44 

4F 

53 

 DOS 

FILE 

ENTRY 

#5 

88- 

.  20 

35 

2E 

31 

AO 

AO 

AO 

AO 

5.  1 

90: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

98- 

.  00 

oo 

00 

00 

OO 

OO 

04 

OO 

AO: 

:  oo 

OO 

82 

13 

03 

43 

4F 

50 

 CDF 

FILE 

ENTRY 

#6 

A8: 

:  59 

2F 

41 

4C 

4C 

AO 

AO 

AO 

Y/ALL 

BO. 

:  AO 

AO 

AO 

AO 

AO 

00 

OO 

00 

B8: 

oo 

OO 

OO 

OO 

00 

OO 

OB 

OO 

CO: 

:  00 

00 

82 

13 

09 

50 

52 

49 

 PRI 

FILE 

ENTRY 

#7 

C8: 

4E 

54 

45 

52 

20 

54 

45 

53 

NTER  TES 

DO. 

:  54 

AO 

AO 

AO 

AO 

00 

00 

00 

T 

D8: 

oo 

OO 

OO 

00 

OO 

OO 

09 

OO 

EO. 

:  oo 

OO 

82 

10 

OO 

44 

49 

53 

 DIS 

FILE 

ENTRY 

#8 

E8: 

4B 

20 

41 

44 

44 

52 

20 

43 

K  ADDR  C 

FO: 

:  48 

41 

4E 

47 

45 

OO 

00 

00 

HANGE. . . 

F8: 

.  oo 

OO 

OO 

00 

00 

00 

04 

OO 

The  contents  of  any  directory  sector  can  be  tabled  as  follows: 


Byte  Contents  Purpose 


0  Track  of  the  next  directory  block 

1  Sector  of  the  next  directory  block 

2-31  File  entry  #1  in  the  directory  block 

32-33  0  Unused 

34-63  File  entry  #2  in  the  directory  block 

64-65  0  Unused 

66-95  File  entry  #3  in  the  directory  block 

96-97  0  Unused 

98-127  File  entry  #4  in  the  directory  block 

128-129  0  Unused 

130-159  File  entry  #5  in  the  directory  block 
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160-161 

0 

Unused 

162-191 

File  entry  #6  in  the  directory  block 

192-193 

0 

Unused 

194-223 

File  entry  #7  in  the  directory  block 

224-225 

0 

Unused 

226-255 

File  entry  #8  in  the  directory  block 

Eight  file  entries  are  recorded  per  sector.  Let's  examine  the  contents  of  a  single  direc- 
tory file  entry. 

.    00:    12  04  82   11   00  48  4F  57  HOW 

.   08:   20  54  4F  20  55  53  45  AO     TO  USE 

.    10:    AO  AO  AO  AO  AO  00  00  OO   

.    18:    00  00  00  OO  OO  OO  OD  00   

Because  this  is  the  first  entry  in  the  directory,  bytes  0  and  1  are  significant.  They  point 
to  track  18,  sector  4  (converts  to  18).  This  indicates  that  there  are  further  directory  en- 
tries. You  will  note  that  the  sectors  are  not  sequential  in  nature,  i.e.,  sector  1  does  not 
point  to  sector  2,  etc.  Remember  that  the  diskette  itself  is  rotating  at  300  rpm.  Stagger- 
ing the  use  of  the  sectors  allows  quicker  access  and  fewer  rotations  of  the  drive 
mechanism  and  the  media.  Typically  sectors  are  staggered  in  increments  of  10.  The  direc- 
tory track  is  staggered  in  increments  of  3,  however.  The  table  below  indicates  the  se- 
quence in  which  a  full  directory  containing  144  files  is  stored: 

SECTOR  FILLING  SEQUENCE 
FOR  THE  DIRECTORY 

0  (BAM) 

1,  4,  7,  10,  13,  16 

2,  5,  8,  11,  14,  17 

3,  6,  9,  12,  15,  18 

When  a  diskette  is  initially  formatted,  sector  1  is  set  up  with  8  null  entries.  As  you  store 
files  on  the  diskette  the  directory  grows.  It  soon  becomes  a  long  chain  of  directory  sec- 
tors. The  first  two  bytes  in  a  sector  point  to  the  next  directory  sector  in  the  chain  (this 
is  known  as  a  forward  pointer).  But,  what  about  the  last  sector  in  the  chain?  It  has  nothing 
to  point  to!  In  the  last  sector  in  the  chain,  there  is  no  forward  pointer;  byte  0  contains 
a  0  ($00)  and  byte  1  contains  a  255  ($FF)  as  indicated  below.  This  indicates  to  the  DOS 
that  there  are  no  more  sectors  in  the  directory. 

.   00:   00  FF  XX  XX  XX  xx  xx  xx   

One  final  note  about  chaining.  Commodore  uses  only  forward  pointers.  A  sector  does 
not  show  where  it  came  from,  only  where  it  is  going.  This  makes  recovery  of  corrupted 
files  much  more  difficult,  but  more  about  that  later. 
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Back  to  our  example: 


.  OO:  12  04  82   11   OO  48  4F  57  HOW 

.  08:  20  54  4F  20  55  53  45  AO  TO  USE 

.  10:  AO  AO  AO  AO  AO  OO  OO  OO   

.  18:  00  00  00  00  00  OO  OD  00   


The  first  byte  in  the  file  entry  is  the  file-type  byte.  In  this  instance  we  see  an  $82.  This 
is  interpreted  by  the  DOS  to  mean  that  the  file  entry  is  a  program.  The  following  table 
outlines  Commodores  file  types. 


HEX 

ASCII 

FILE  TYPE 

DIRECTORY  SHOWS 

$00 

0 

Scratched 

Does  not  appear 

$80 

128 

Deleted 

DEL 

$81 

129 

Sequential 

SEQ 

$82 

130 

Program 

PRG 

$83 

131 

User 

USR 

$84 

132 

Relative 

REL 

$00 

0 

Unclosed  deleted 

Same  as  scratched 

$01 

1 

Unclosed  sequential 

*SEQ 

$02 

2 

Unclosed  program 

*PRG 

$03 

3 

Unclosed  user 

*USR 

$04 

4 

Unclosed  relative 

Cannot  occur 

$A0 

160 

Deleted  @  replacement 

DEL 

$A1 

161 

Sequential  @  replacement 

SEQ 

$A2 

162 

Program  @  replacement 

PRG 

$A3 

163 

User  @  replacement 

USR 

$A4 

164 

Relative  @  replacement 

Cannot  occur 

$C0 

192 

Locked  deleted 

DEL  < 

$C1 

193 

Locked  sequential 

SEQ  < 

$C2 

194 

Locked  program 

PRG  < 

$C3 

195 

Locked  user 

USR  < 

$C4 

196 

Locked  relative 

REL  < 

Note:  It  is  possible  to  edit  the  file-type  byte  and  get  very  unusual  file  types  appearing 
in  the  directory  (SR?<  is  one  possibility).  However,  these  file  types  have  no  practical  use. 

Enough  esoterica  for  now.  Let's  get  back  to  our  example: 

The  next  two  bytes  in  the  file  entry  are  a  pointer  to  where  the  first  sector  of  that  par- 
ticular file  is  stored  on  the  diskette. 
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.  00:  12  04  82  11  OO 

.  08:  20  54  4F  20  55 

.  lO:  AO  AO  AO  AO  AO 

.  18:  OO  00  00  00  OO 


48  4F  57  HOW 

53  45  AO     TO  USE 
OO  OO  OO   

OO  OD  OO  . ;  


This  file  starts  on  track  17  ($11),  sector  0  ($00). 


Next  we  have  the  file  name. 


OO:    12  04  82   11   OO  48  4F  57  HOW 

**  **  ** 

OB:    20  54  4F  20  55  53  45  AO     TO  USE 

♦»  »♦ 

10:    AO  AO  AO  AO  AO  OO  OO  OO   

18:    OO  OO  OO  OO  OO  OO  OD  OO   


In  this  case  our  file  is  named  "HOW  TO  USE".  Note  that  file  names  are  padded  out 
to  16  characters  with  shifted  spaces  ($A0)  just  like  the  diskette  name.  The  shifted  spaces 
do  not  show  as  part  of  the  file  name,  however,  when  the  directory  is  displayed. 


.   00:    12  04  82  11  00  48  4F  57  HOW 

.    08:    20  54  4F  20  55  53  45  AO     TO  USE 

.    10:    AO  AO  AO  AO  AO  OO  OO  OO   

**  ♦* 

.    18:    OO  OO  OO  OO  OO  OO  OD  OO   


The  next  three  bytes  are  unused  except  for  relative  file  entries.  For  a  relative  file  bytes 
$15  (21)  and  $16  (22)  point  to  the  first  set  of  side  sectors.  Byte  $17  (23)  gives  the  record 
size  with  which  the  relative  file  was  created.  This  special  file  type  will  be  examined  in 
detail  later. 


The  next  four  bytes  are  always  unused  and  therefore  null  ($00). 


.   00:    12  04  82  11   00  48  4F  57  HOW 

.    OS:    20  54  4F  20  55  53  45  AO     TO  USE 

.    10:    AO  AO  AO  AO  AO  OO  00  OO   

.    18:    OO  OO  OO  OO  OO  OO  OD  OO   

♦*         *♦  ♦* 


The  following  two  bytes  are  reserved  for  use  by  the  DOS  during  the  save  and  replace 
operation  (@  replacement).  Their  function  can  only  be  viewed  by  interrupting  the  drive 
during  a  SAVE  "@0:file  name",8  routine.  This  is  not  recommended  for  obvious  reasons. 
(During  an  @  replacement  the  file-type  byte  is  ORed  with  $20  first.  A  new  copy  of  the 
file  is  then  written  to  the  disk.  Bytes  28  ($1C)  and  29  ($1D)  contain  the  track  and  sector 
pointer  to  the  start  of  the  new  replacement  file.  At  the  end  of  the  @  operation  the  sec- 
tors that  held  the  old  file  are  marked  as  free  in  the  BAM.  The  new  track  and  sector 
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pointer  is  then  moved  from  bytes  28  and  29  to  bytes  3  ($03)  and  4  ($04)  respectively 
and  bytes  28  and  29  are  zeroed  again.  The  proper  file  type  is  then  restored  at  byte  2. 
See  Chapter  9  about  the  bug  in  the  @  replacement  command.) 


.  oo:  12  04  82   11   00  48  4F  57  HOW 

.  08:  20  54  4F  20  55  53  45  AO     TO  USE 

.  10:  AO  AO  AO  AO  AO  OO  OO  00   

.  18:  OO  00  00  OO  oo  oo  od  oo   


The  final  two  bytes  in  a  file  entry  are  the  number  of  blocks  it  occupies  on  the  diskette. 
It  is  the  sum  of  the  leftmost  byte  Qo-byte)  +  the  rightmost  byte  (hi-byte)  *  256. 


.  00:  12  04  82 

.  08:  20  54  4F 

-  lO:  AO  AO  AO 

.  18:  OO  oo  oo 


11  00  48  4F  57  HOW 

20  55  53  45  AO  TO  USE 

AO  AO  00  OO  OO   

OO  OO  OO  OD  OO   

*«  «« 

LO  HI 


In  our  example,  the  file  is  (13  +  0  *  256)  =  13  blocks  long. 

To  be  sure  you  understand  the  file  entries  work  let's  break  out  the  first  sector  of  the 
test/demo  directory  to  show  each  file  entry.  Remember  that  bytes  0  and  1  of  each  entry 
are  unused  with  the  exception  of  the  first  entry.  Here  they  represent  a  forward  track 
and  sector  chain  and  have  nothing  to  do  with  that  file  in  particular. 


1541 TEST /DEMO 


TRACK   18  -  SECTOR  Ol 


DIRECTORY  ENTRY  1 


.  00:  12  04  82  11 

.  08:  20  54  4F  20 

.  10:  AO  AO  AO  AO 

.  18:  OO  OO  OO  OO 


OO  48  4F  57  HOW 

55  53  45  AO  TO  USE 

AO  00  00  00 

OO  00  OD  OO   


File  type  =  $82  =  PRG 
Starts  on  17/1  ($ll/$00) 
Name:  HOW  TO  USE 
File  length:  13  BLOCKS 


DIRECTORY  ENTRY  2 


.  20:  OO  OO  82  11 

.  28:  20  50  41  52 

.  30:  4F  AO  AO  AO 

.  38:  OO  OO  OO  OO 


03  48  4F  57  HOW 

54  20  54  57     PART  TW 

AO  00  00  00  O  ... 

OO  00  05  OO   


File  type  =  $82  =  PRG 
Starts  on  17/3  ($ll/$03) 
Name:  HOW  PART  TWO 
File  length:  5  BLOCKS 


45 


DIRECTORY  ENTRY  3 


40:  00  00  82  11  09  56  49  43   VIC  File  type  =  $82  =  PRG 

48:  2D  32  30  20  57  45  44  47  -20  WEDG  Starts  on  17/9  ($11/09) 

50:  45  AO  AO  AO  AO  00  OO  OO  E         ...  Name:  VIC-20  WEDGE 

58:  OO  OO  OO  OO  OO  OO  04  00    File  length:  4  BLOCKS 

DIRECTORY  ENTRY  4 

60:  OO  OO  82  13  OO  46  2D  36  C-6  File  type  =  $82  =  PRG 

68:  34  20  57  45  44  47  45  AO  4  WEDGE  Starts  on  19/0  ($13/$00) 

70:  AO  AO  AO  AO  AO  OO  OO  OO    Name  C-64  WEDGE 

78:  OO  OO  OO  OO  OO  OO  01  OO   File  length:  1  BLOCK 


DIRECTORY  ENTRY  5 

80:   OO  00  82  13  01  44  4F  53  DOS   File  type  =  $82  =  PRG 

88:   20  35  2E  31  AO  AO  AO  AO  5.1            Starts  on  19/1  ($13/$01) 

90:    AO  AO  AO  AO  AO  OO  OO  OO    Name:  DOS  5.1 

98:   OO  OO  OO  00  OO  OO  04  OO   File  length:  4  BLOCKS 


DIRECTORY  ENTRY  6 

AO:    OO  OO  82   13  03  43  4F  50  COP 

AS:    59  2F  41   4C  4C  AO  AO  AO  Y/ALL 

BO:    AO  AO  AO  AO  AO  OO  OO  OO   

B8:   00  OO  OO  OO  OO  OO  OB  OO   File  length:  11  BLOCKS 


File  type  =  $82  =  PRG 
Starts  on  19/3  ($13/03) 
Name:  COPY/ALL 


DIRECTORY  ENTRY  7 


CO:  OO  OO  82  13  09  50  52  49   PR  I  File  type  =  $82  =  PRG 

C8:  4E  54  45  52  20  54  45  53  NTER  TES  Starts  on  19/9  ($13/09) 

DO:  54  AO  AO  AO  AO  OO  OO  OO  T         ...  Name:  PRINTER  TEST 

D8:  OO  00  OO  00  OO  OO  09  OO   File  length:  9  BLOCKS 

DIRECTORY  ENTRY  8 

EO:  OO  OO  82  10  OO  44  49  53   DIB  File  type  =  $82  =  PRG 

E8:  4B  20  41  44  44  52  20  43  K  ADDR  C  Starts  on  16/0  ($10/00) 

FO:  48  41   4E  47  45  OO  OO  OO  HANGE.  .  .  Name:DISK  ADDR  CHANGE 

F8:  OO  OO  OO  OO  OO  OO  04  OO   File  length:  4  BLOCKS 
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We  will  end  our  tour  of  the  directory  by  displaying  the  next  sector  (track  18,  sector 
4)  which  happens  to  end  the  directory  chain  ($00,  $FF  in  bytes  0  and  1,  respectively). 
Notice  that  only  seven  directory  entries  are  present  in  this  block.  The  last  directory 
entry  is  a  null  entry.  It  will  be  converted  into  a  valid  entry  when  the  directory  is 
expanded. 


1541TEST/DEM0 


TRACK   18  -  SECTOR  04 


00: 

00 

FF 

82 

lO 

Ol 

44 

49 

52 

 DIR 

File  type  =  $82  =  PRG 

08: 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

Starts  on  16/1  ($10/01) 

10: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

00 

Name:  DIR 

18: 

OO 

OO 

OO 

OO 

OO 

00 

04 

OO 

File  length:  4  BLOCKS 

20: 

OO 

OO 

82 

lO 

03 

56 

49 

45 

 VIE 

File  type  =  $82  =  PRG 

28: 

57 

20 

42 

41 

4D 

AO 

AO 

AO 

W  BAM 

Starts  on  16/3  ($10/03) 

30: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

Name:  VIEW  BAM 

38: 

00 

OO 

00 

00 

OO 

OO 

06 

OO 

File  length:  6  BLOCKS 

40: 

OO 

00 

82 

10 

07 

43 

48 

45 

File  type  =  $82  =  PRG 

48: 

43 

4B 

20 

44 

49 

53 

4B 

AO 

CK  DISK 

Starts  on  16/7  ($10/07) 

50: 

AO 

AO 

AO 

AO 

AO 

OO 

00 

OO 

Name:  CHECK  DISK 

58: 

OO 

OO 

OO 

00 

OO 

OO 

04 

OO 

File  length:  4  BLOCKS 

60: 

OO 

OO 

82 

10 

OF 

44 

49 

53 

 DIS 

File  type  =  $82  =  PRG 

68: 

50 

4C 

41 

59 

20 

54 

26 

53 

PLAY  T«cS 

Starts  on  16/15  ($10/$0F) 

70: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

Name:  DISPLAY  T&S 

78: 

00 

OO 

OO 

00 

OO 

00 

OE 

OO 

File  length:  14  BLOCKS 

80: 

OO 

OO 

82 

14 

02 

50 

45 

52 

 PER 

File  type  =  $82  =  PRG 

88: 

46 

4F 

52 

40 

41 

4E 

43 

45 

FORMANCE 

Starts  on  20/2  ($14/$02) 

90: 

20 

54 

45 

53 

54 

OO 

00 

OO 

TEST. . . 

Name:  PERFORMANCE  TE! 

98: 

OO 

OO 

OO 

00 

OO 

OO 

09 

OO 

File  length:  9  BLOCKS 

AO: 

OO 

OO 

82 

14 

07 

50 

45 

52 

 SEQ 

File  type  =  $82  =  PRG 

A8: 

55 

45 

4E 

54 

49 

41 

4C 

20 

UENTIAL 

Starts  on  20/7  ($14/$07) 

BO: 

46 

49 

4C 

45 

AO 

OO 

OO 

OO 

FILE  

Name:  SEQUENTIAL  FILE 

B8: 

00 

OO 

OO 

OO 

OO 

OO 

05 

OO 

File  length:  5  BLOCKS 

CO: 

OO 

00 

82 

OF 

Ol 

52 

41 

4E 

 RAN 

File  type  =  $82  =  PRG 

C8: 

44 

4F 

40 

20 

46 

49 

4C 

45 

DOM  FILE 

Starts  on  15/1  ($0F/$01) 

DO: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

Name:  RANDOM  FILE 

08: 

OO 

OO 

OO 

00 

00 

00 

OD 

OO 

File  length:  13  BLOCKS 

EO: 

OO 

OO 

OO 

00 

OO 

OO 

OO 

OO 

NULL  ENTRY 

E8: 

OO 

OO 

OO 

OO 

OO 

OO 

00 

OO 

FO: 

OO 

00 

OO 

OO 

00 

OO 

00 

OO 

F8: 

OO 

OO 

OO 

00 

00 

OO 

OO 

00 
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You  will  find  four  of  the  utilities  listed  in  Appendix  C  particularly  helpful  in  furthering 
your  understanding  of  the  organization  of  a  diskette.  The  first  program  is  DISPLAY 
TRACK  &  SECTOR.  The  hex  dumps  in  this  section  were  generated  using  this  utility. 
A  hex  dump  can  be  sent  either  to  the  screen  or  printer.  When  sent  to  the  screen  only 
half  a  page  of  the  specified  track  and  sector  is  displayed  at  one  time  to  prevent  scroll- 
ing. Bytes  0  -  127  ($00  -  $7F)  are  displayed  first  followed  by  bytes  128  -  255  ($80 
-  $FF).  Use  this  program  for  your  own  experimentation.  The  second  program  is 
DISPLAY  A  BLOCK  AVAILABILITY  MAP.  It  portrays  the  BAM  in  a  two-dimensional 
representation.  The  diskette  name,  ID,  DOS  version,  and  blocks  free  are  also  displayed. 
The  third  program  is  VIRTUAL  DIRECTORY.  It  displays  a  directory  in  its  entirety 
including  scratched  files.  Output  can  be  directed  to  a  printer  by  changing  the  OPEN 
4,  3  statement  in  line  440  to  OPEN  4,4.  The  last  program,  DISPLAY  A  CHAIN,  traces 
a  file  chain.  The  chain  of  sectors  may  be  viewed  on  the  screen  or  sent  to  the  printer. 

The  programming  techniques  that  are  used  in  these  sample  programs  will  be  partially 
explained  in  later  sections. 

Now  that  we've  seen  how  the  directory  is  kept,  let's  look  at  how  the  different  types 
of  files  are  actually  stored  on  a  diskette.  We'll  start  by  looking  at  a  program  file. 

4.5  Program  File  Storage 

The  most  common  type  of  file  is  a  program  file,  PRG.  It  is  designated  by  an  $82  in  the 
directory.  Program  file  structure  is  quite  simple.  Diagrammatically,  the  first  sector  (block) 
in  a  program  file  looks  like  this. 


TRACK 

SECTOR 

LOAD 

LOAD 

THE  FIRST  252  RYTES 

LINK 

LINK 

LO 

HI 

OF  YODR  PROGRAM 

Byte  Purpose 


0  Track  of  the  next  block  in  this  file 

1  Sector  of  the  next  block  in  this  file 

2  Lo-byte  of  the  load  address 

3  Hi-byte  of  the  load  address 

4-255      The  first  252  bytes  of  the  program 

The  first  pair  of  bytes  are  the  pointer  to  the  track  and  sector  of  the  next  block  in  the 
file.  Technically,  this  is  known  as  a  "forward  pointer."  It  points  ahead  to  the  next  sec- 
tor in  the  file.  All  Commodore  files  use  this  type  of  pointer. 

The  second  pair  of  bytes  is  the  "load  address"  of  the  file  in  lo-byte/hi-byte  form.  They 
indicate  where  the  program  is  to  be  loaded  into  memory.  A  BASIC  program  that  was 
saved  from  a  C64  will  have  a  $01  and  a  $08  in  these  two  locations.  This  indicates  that 
the  program  is  to  be  loaded  into  memory  starting  at  memory  location  $0801  (remember 
it  is  in  lo-byte/hi-byte  form).  In  decimal  notation  this  is  memory  location  2049  —  the  start 
of  BASIC  on  a  C64. 
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Have  you  ever  wondered  about  the  significance  of  the  in  the  command  LOAD 
"name",8,l?  It  determines  whether  or  not  a  program  is  "relocated"  when  it  is  loaded 
into  memory.  If  you  do  not  specify  the  the  C64  will  ignore  the  load  address  at 
the  start  of  the  file  and  load  the  program  starting  at  memory  location  $0801  (2049).  When 
the  is  present,  the  C64  (or  VIC-20)  will  pay  attention  to  the  load  address  and  load 
the  program  into  memory  starting  at  the  location  specified  by  bytes  $02  and  $03. 

The  remaining  sectors,  except  the  last  one,  look  like  this: 


TRACK 

SECTOR 

THE  NEXT  254  BYTES 

LINK 

LINK 

OF  YOUR  PROGRAM 

Byte  Purpose 


0  Track  of  the  next  block  in  this  file 

1  Sector  of  the  next  block  in  this  file 

2-255      The  next  254  bytes  of  the  program 
The  last  block  in  a  program  file  is  special  because: 

1.  It  is  the  last  sector. 

2.  It  is  usually  only  partially  full. 

To  signal  the  DOS  that  this  is  the  last  block,  the  first  byte  is  set  to  $00.  The  first  byte 
is  normally  the  track  link.  Since  there  is  no  track  0,  the  DOS  knows  that  this  is  the 
last  sector  in  the  file.  The  second  byte  indicates  the  position  of  the  last  byte  that  is  part 
of  the  program  file.  Any  bytes  beyond  this  position  are  garbage. 

Diagrammatically,  the  last  sector  in  a  program  file  looks  like  this: 


NULL 

LAST 

THE  FINAL  BYTES 

GARBAGE 

SOO 

BYTE 

OF  YOUR  PROGRAM 

Byte  Purpose 


0  Null  byte  to  indicate  that  this  is  the  last  sector 

1  Number  of  bytes  to  read  from  this  sector  (N) 

2-N      The  last  (N-2)  bytes  of  the  program 
(N  +  l)-255  Garbage 

Let's  examine  the  program  file  "DIR"  on  your  1541TEST/DEMO  disk.  DIR  appears 
in  the  directory  on  track  18,  sector  04.  The  directory  entry  looks  like  this: 
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TRACK   18  -  SECTOR  04 

.    00:    00  FF  82   10  01   44  49  52   DIR 

.    08:    AO  AO  AO  AO  AO  AO  AO  AO   

.    10:    AO  AO  AO  AO  AO  00  OO  00   

.    18:    00  00  00  00  00  00  04  OO   


From  the  entry  we  see  that  "DIR"  starts  at  track  16  ($10),  sector  01  ($01)  and  that 
the  file  is  four  blocks  long  (4  +  0  *  256). 


.  00:  00  FF  82   lO  01  44  49  52   DIR 

.  08:  AO  AO  AO  AO  AO  AO  AO  AO   

.  10:  AO  AO  AO  AO  AO  00  00  00   

.  18:  00  OO  00  00  00  OO  04  00   


Let's  look  at  the  first  block  in  this  file. 


TRACK   16  -  SECTOR  01 


00 

:  10 

OB 

Ol 

04 

OD 

04 

04 

00 

08. 

.  9F 

32 

2C 

38 

2C 

31 

35 

00 

,2,8, 15. 

lO 

:  IE 

04 

05 

00 

99 

93 

22 

I>  II 

18. 

■  3A 

89 

20 

31 

30 

30 

30 

30 

: .  10000 

20 

:  00 

2E 

04 

OA 

00 

9F 

31 

2C 

 - 1, 

28 

38 

2C 

30 

2C 

22 

24 

30 

22 

8,0, "*0" 

30: 

:  00 

3C 

04 

14 

OO 

Al 

23 

31 

.<  #1 

38: 

2C 

41 

24 

2C 

42 

24 

OO 

4A 

, A*,B*. J 

40 

:  04 

IE 

00 

Al 

23 

31 

2C 

41 

 #1,  A 

48: 

24 

2C 

42 

24 

00 

58 

04 

28 

*,B*. X.  ( 

50 

:  00 

Al 

23 

31 

2C 

41 

24 

2C 

. ,#1, A*, 

58: 

.  42 

24 

00 

60 

04 

00 

43 

B*. . .2.C 

60 

:  B2 

30 

00 

77 

04 

3C 

00 

8B 

.0  <.  . 

68 

:  20 

41 

24 

B3 

Bl 

22 

22 

20 

A*. . " " 

70 

:  A7 

20 

43 

B2 

C6 

28 

41 

24 

.    C. . (A* 

78. 

:  29 

OO 

94 

04 

46 

00 

8B 

20 

80 

:  42 

24 

B3 

Bl 

22 

22 

20 

A7 

B*..""  . 

88' 

■  20 

43 

B2 

43 

AA 

C6 

28 

42 

C.C. . (B 

90 

:  24 

29 

AC 

32 

35 

36 

00 

AF 

*) .256. . 

98: 

04 

50 

00 

99 

22 

12 

22 

CA 

.P. . ". ". 

AO: 

:  28 

C4 

28 

43 

29 

2C 

32 

29 

(. (C) ,2) 

A8: 

3B 

A3 

33 

29 

3B 

22 

92 

22 

;  .3) ;  ".  '• 

BO: 

:  3B 

OO 

C9 

04 

5A 

00 

Al 

23 

;  z.  .# 

B8: 

31 

2C 

42 

24 

3A 

8B 

20 

53 

l,B*:.  s 

CO: 

:  54 

B3 

Bl 

30 

20 

A7 

20 

31 

T..0   .  1 

C8: 

30 

30 

30 

00 

DE 

04 

64 

00 

ooo  
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.    do:    8B  20  42  24  B3  Bl   C7  28   .    B*  ( 

.    D8:    33  34  29  20  A7  20  39  30  34)    .  90 

.    EO:    00  00  05  6E  00  Al   23  31   #1 

.    E8:    2C  42  24  3A  8B  20  42  24   ,B*:.  B* 

.    FO:    B3  Bl   C7  28  33  34  29  A7  (34)  . 

.    F8:    20  99  42  24  3B  3A  89  31  .B*;:.l 

Not  very  recognizable  is  it?  Remember  this  is  C64  internal  BASIC  not  a  BASIC  listing. 
Bytes  0  and  1  are  of  interest.  They  are  the  track  and  sector  link  that  point  to  the  next 
block  in  the  program  file.  In  this  case,  they  point  to  track  16  ($10),  sector  11  ($0B).  Since 
this  is  the  first  data  block  of  the  file,  bytes  2  and  3  are  also  important.  They  are  the 
load  address.  We  can  see  that  the  load  address  is  $0401  or  1025  decimal.  This  file  was 
written  on  a  PET.  (The  start  of  BASIC  memory  on  the  C64  is  at  $0801.  The  VIC-20 
begins  at  $1001,  $1201,  or  $0401  depending  ont  he  amount  of  external  memory.)  DIR 
will  require  a  straight  relocating  load,  i.e.,  LOAD  "DIR",8.  If  you  used  a  LOAD  "DIR", 
8,1  command,  the  program  would  be  loaded  into  the  screen  RAM  of  the  C64.  NOTE:  If 
you  load  this  program  properly,  you  will  NOT  be  able  to  get  it  to  VERIFY  correctly. 
The  reason  is  that  the  internal  BASIC  links  were  changed  when  the  program  was 
relocated. 


.    00:    10  OB  01   04  OD  04  04  OO 
**  **  »»  ** 


Let's  follow  the  forward  chain  to  track  16,  sector  11  and  take  a  look  at  the  start  of  the 
second  block  in  our  file. 


TRACK  16  -  SECTOR  11 

.    00:    10  02  31  30  00  IC  05  78  . . 10  

.    OS:    00  Al   23  31   2C  42  24  3A  ..#1,B*: 

.    10:    8B  20  42  24  B2  C7  2S  33  .    B*. . (3 


Nothing  much  of  interest  here.  Let's  chain  to  track  16  ($10),  sector  02  ($02)  and  take 
a  look  at  the  start  of  the  next  block. 


TRACK   16  -  SECTOR  02 

.    00:    10  OC  B2  22  22  3A  99  22   " " : . " 

.    OS:    3E  22  3B  OO   lA  06  AB  OF  >";  

.    10:    Al   42  24  3A  SB  42  24  B2  .B»:.B*. 
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Again,  nothing  much  of  interest.  Chain  to  track  16  ($10),  sector  12  ($0C). 


TRACK  16  -  SECTOR  12 


00: 

OO 

68 

8B 

20 

41 

24 

B2 

22 

 A*.  " 

08: 

44 

22 

20 

A7 

20 

31 

30 

00 

D"    .  lO. 

10: 

2D 

07 

3C 

28 

8B 

20 

41 

24 

-.<(.  A* 

18: 

B2 

22 

2E 

22 

20 

BO 

20 

41 

.  " .  "    .  A 

20: 

24 

B2 

22 

3E 

22 

20 

BO 

20 

*.">"  . 

28: 

41 

24 

B2 

22 

3E 

22 

20 

A7 

A*. ">"  . 

30: 

20 

34 

30 

30 

30 

00 

3E 

07 

4000. >. 

38: 

46 

28 

8B 

20 

41 

24 

B2 

22 

F(.  A*." 

40: 

51 

22 

20 

A7 

20 

80 

OO 

52 

Q"    .  ..R 

48: 

07 

50 

28 

8B 

20 

41 

24 

B2 

.P(.  A*. 

50: 

22 

53 

22 

20 

A7 

20 

35 

30 

"S"    .  50 

58: 

30 

30 

OO 

5E 

07 

F7 

2A 

89 

OO. 

60: 

20 

31 

30 

31 

30 

30 

OO 

OO 

lOlOO. . 

68: 

00 

AO 

OO 

Al 

20 

54 

24 

3A 

 T*: 

70: 

8B 

20 

54 

24 

B3 

Bl 

22 

22 

.  T*.."" 

78: 

20 

A7 

20 

8D 

20 

32 

30 

30 

.    .  200 

Now  we're  cooking.  This  is  the  last  sector  of  the  file.  How  can  we  tell?  The  track  of 
the  next  block  in  the  file  is  0  ($00).  But  what  about  the  sector  link?  It's  a  misnomer. 
The  sector  link  in  the  last  block  is  actually  a  byte  count.  It  informs  the  DOS  that  only 
bytes  2  through  104  ($68)  are  important  in  this  example.  Recall  that  an  end  of  file  in 
BASIC  is  designated  by  three  zeros  in  a  row.  An  End-or-Identify  (EOI)  signal  will  be 
sent  once  byte  104  has  been  transferred  across  the  serial  bus.  When  the  C64  receives 
this  EOI  signal,  the  status  variable,  ST,  will  be  set  to  a  value  of  64.  (Any  further  at- 
tempt to  read  a  byte  will  cause  the  drive  to  time  out.)  Here's  the  tail  end  of  our  pro- 
gram. The  three  null  bytes,  ($00),  at  $66/7/8  are  the  last  three  bytes  in  our  program  file. 


.  00: 

00 

68 

8B 

20 

41 

24 

B2 

22 

. . .   A*. " 

.  08: 

44 

22 

20 

A7 

20 

31 

30 

OO 

D"   .  10. 

.  10: 

2D 

07 

3C 

28 

8B 

20 

41 

24 

-.<(.  A* 

.  18: 

B2 

22 

2E 

22 

20 

BO 

20 

41 

.  ■■ .  "   .  A 

.  20: 

24 

B2 

22 

3E 

22 

20 

BO 

20 

*.">"  . 

.  28: 

41 

24 

B2 

22 

3E 

22 

20 

A7 

A*. ">"  . 

.  30: 

20 

34 

30 

30 

30 

OO 

3E 

07 

4000. >. 

.  38: 

46 

28 

8B 

20 

41 

24 

B2 

22 

F(.  A*." 

.  40: 

51 

22 

20 

A7 

20 

80 

OO 

52 

Q"    .  ..R 

.  48: 

07 

50 

28 

8B 

20 

41 

24 

B2 

.P(.  A*. 

.  50: 

22 

53 

22 

20 

A7 

20 

35 

30 

"S"    .  50 

.  58: 

30 

30 

00 

5E 

07 

F7 

2A 

89 

OO. 

.  60: 

20 

31 

30 

31 

30 

30 

OO 

OO 

lOlOO. . 

.  68: 

00 

XX 

XX 

XX 

XX 

XX 

XX 

XX 

52 


What  about  the  rest  of  the  block?  Ignore  it.  It  is  garbage.  The  DOS  does  not  zero  out 
a  buffer  before  it  begins  filling  it  with  new  information  sent  from  the  computer.  As  a 
result,  the  last  block  in  a  file,  which  is  almost  never  filled  with  new  information,  is  padded 
with  whatever  happened  to  be  left  in  the  buffer  from  a  previous  read  or  write  opera- 
tion. There  are  two  exceptions  to  the  rule,  namely,  the  directory  and  relative  files.  A 
partial  directory  block  is  always  padded  with  nulls  ($00).  Moreover,  it  always  appears 
as  a  full  block.  Bytes  0  and  1  of  the  last  directory  block  will  contain  a  $00  and  a  $FF, 
respectively.  Relative  file  structure  will  be  explained  shortly. 

4.6  Sequential  File  Storage 

The  format  of  a  sequential  file  is  very  straightforward.  All  the  sectors,  except  the  last 
one,  look  like  this: 


TRACK 

SECTOR 

254  BYTES  OF  OATA 

UNK 

LINK 

Byte  Purpose 


0  Track  of  the  next  block  in  this  file 

1  Sector  of  the  next  block  in  this  file 

2-255  254  bytes  of  data 

The  last  block  in  a  sequential  file  is  special  for  two  reasons: 

1.  It  is  the  last  sector. 

2.  It  is  usually  only  partially  full. 

To  signal  the  DOS  that  this  is  the  last  block,  the  first  byte  is  set  to  $00.  The  first  byte 
is  normally  the  track  link.  Since  there  is  no  track  0,  the  DOS  knows  that  this  is  the 
last  sector  in  the  file.  The  second  byte  indicates  the  position  of  the  last  byte  in  the  file. 
Any  bytes  beyond  this  position  are  garbage. 

Diagrammatically,  the  last  sector  in  the  file  looks  like  this: 


NULL 

LAST 

THE  FINAL  OATA  BYTES  IN 

GARBAGE 

SOO 

BYTE 

YOUR  SEQUENTIAL  FILE 

Byte  Purpose 


0  Null  byte  to  indicate  this  is  the  last  sector 

1  Position  of  the  last  byte  in  the  file  (N) 

2-N  The  last  N-2  bytes  of  the  sequential  file 

(N+l)-255  Garbage 
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No  sequential  files  appear  on  the  1541TEST/DEMO.  (The  file  named  SEQUENTIAL 
FILE  is  a  program  file  demonstrating  the  sequential  access  method.)  The  C-64  DISK 
BONUS  PACK  does  come  with  one  sequential  file  on  it.  The  file  named  "  DIREC- 
TORY "  appears  as  a  SEQ  when  displaying  the  directory.  "  DIRECTORY  " 
can  be  found  at  track  18,  sector  01  on  the  C-64  DISK  BONUS  PACK.  Let's  take  a  peek 
at  the  directory  entry  for  this  file: 

TRACK   18  -  SECTOR  01 

.  20:  GO  OO  81    11   Ol   20  20  20   

.  28:  44  49  52  45  43  54  4F  52  DIRECTOR 

.  30:  59  20  20  20  AO  OO  00  OO  Y  ... 

.  38:  OO  OO  OO  OO  OO  OO  02  00   


DIRECTORY     "  is  the  second  file  entry  in  the  directory. 

.    20:    OO  00  81  11   01   20  20  20   

**  ** 

.    28:    44  49  52  45  43  54  4F  52  DIRECTOR 

.    30:    59  20  20  20  AO  00  OO  OO  Y   

.    38:    OO  OO  OO  OO  OO  OO  02  OO   


A  sequential  file  is  designated  by  an  $81  in  the  directory.  The  first  block  of  this  file 
is  stored  on  track  17  ($11),  sector  1  ($01).  We  also  see  that  "  DIRECTORY  "  is 
two  blocks  long  (2  +  0*  256).  Let's  take  a  look  at  the  first  half  of  the  starting  data  block. 


TRACK   17  -  SECTOR  01 


OO: 

11 

OB 

43 

36 

34 

20 

53 

54 

-.C64  ST 

OS: 

41 

52 

54 

45 

52 

20 

4B 

49 

ARTER  KI 

lo: 

54 

20 

20 

20 

36 

34 

20 

20 

T  64 

is: 

32 

41 

OD 

31 

35 

34 

31 

20 

2A. 1541 

20: 

42 

41 

43 

4B 

55 

50 

OD 

41 

BACKUP. A 

28: 

4D 

4F 

52 

54 

20 

54 

41 

42 

MORT  TAB 

30: 

4C 

45 

OD 

41 

52 

52 

4F 

57 

LE. ARROW 

38: 

OD 

42 

49 

54 

53 

20 

41 

4E 

.BITS  AN 

40: 

44 

20 

42 

59 

54 

45 

53 

OD 

D  BYTES. 

48: 

43 

41 

4C 

45 

4E 

44 

41 

52 

CALENDAR 

50: 

OD 

43 

48 

41 

4E 

47 

45 

20 

. CHANGE 

58: 

44 

49 

53 

4B 

OD 

43 

48 

41 

DISK.CHA 

60: 

52 

20 

42 

4F 

4F 

54 

OD 

43 

R  BGGT.C 

68 : 

4F 

4C 

4F 

52 

20 

54 

45 

53 

OLOR  TES 

70: 

54 

OD 

43 

4F 

50 

59 

2D 

41 

T.COPY-A 

78: 

4C 

4C 

36 

34 

OD 

44 

45 

4D 

LL64.DEM 

54 


Bytes  0  and  1  are  the  track  and  sector  link  (forward  pointer).  They  inform  us  that  the 
next  data  block  can  be  found  at  track  17,  sector  11.  The  remaining  254  bytes  are  data. 
The  sequential  data  that  appear  here  are  in  fact  the  disk  name  (C64  STARTER  KIT), 
the  cosmetic  disk  ID  (64),  and  the  file  names  found  on  the  C-64  DISK  BONUS  PACK. 
It  is  interesting  to  note  that  a  carriage  return  character  ($0D)  was  used  as  a  delimiter 
to  separate  record  entries.  Next  we  see: 


TRACK  17  -  SECTOR  11 


00: 

OO 

86 

2D 

20 

59 

41 

4E 

4B 

. . -  YANK 

OS: 

45 

45 

OD 

53 

4F 

55 

4E 

44 

EE. SOUND 

lo: 

20 

2D 

20 

41 

4C 

49 

45 

4E 

-  ALIEN 

18: 

OD 

53 

4F 

55 

4E 

44 

20 

2D 

.SOUND  - 

20: 

20 

42 

4F 

4D 

42 

OD 

53 

4F 

BOMB -SO 

28: 

:  55 

4E 

44 

20 

2D 

20 

43 

4C 

UND  -  CL 

30: 

41 

50 

OD 

53 

4F 

55 

4E 

44 

AP. SOUND 

38: 

20 

2D 

20 

47 

55 

4E 

46 

49 

-  GUNFI 

40: 

52 

45 

OD 

53 

4F 

55 

4E 

44 

RE. SOUND 

48" 

20 

2D 

20 

50 

4F 

4E 

47 

OD 

-  PONG. 

50: 

53 

4F 

55 

4E 

44 

20 

2D 

20 

SOUND  - 

58. 

52 

41 

59 

47 

55 

4E 

OD 

53 

RAYGUN.S 

60: 

4F 

55 

4E 

44 

20 

2D 

20 

53 

OUND  -  S 

68: 

.  49 

52 

45 

4E 

OD 

53 

50 

52 

IREN.SPR 

70: 

49 

54 

45 

20 

42 

4F 

4F 

54 

ITE  BOOT 

78 

:  OD 

53 

55 

50 

45 

52 

4D 

4F 

. SUPERMO 

80: 

4E 

36 

34 

2E 

56 

31 

OD 

59 

N64. VI. Y 

88- 

:  54 

53 

50 

52 

49 

54 

45 

53 

TSPRITES 

90: 

AO 

AO 

AO 

AO 

AO 

OO 

00 

OO 

98 

:  OO 

00 

OO 

00 

00 

00 

05 

00 

AO: 

.  00 

OO 

82 

07 

OO 

53 

4E 

4F 

 SNG 

A8 

:  4F 

50 

59 

20 

4D 

41 

54 

48 

OPY  MATH 

BO: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

B8 

:  OO 

OO 

OO 

OO 

OO 

OO 

33 

OO 

 3. 

CO: 

:  OO 

OO 

82 

ID 

OO 

41 

4D 

4F 

 AMO 

C8 

:  52 

54 

20 

54 

41 

42 

4C 

45 

RT  TABLE 

DO- 

:  AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

D8 

:  00 

OO 

OO 

OO 

OO 

OO 

27 

OO 

EO 

:  OO 

OO 

82 

05 

02 

4D 

4F 

52 

E8 

:  54 

47 

41 

47 

45 

AO 

AO 

AO 

TGAGE. . . 

FO 

:  AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

F8 

:  00 

OO 

00 

OO 

OO 

00 

2D 

OO 

We  can  see  from  the  above  data  block  that  this  is  the  last  sector  in  the  chain.  Byte  0 
contains  a  zero  indicating  no  forward  track.  Byte  1  then  is  a  byte  count  ($86= 134).  Byte 
134  is  the  last  byte  in  our  data  file.  Recall  that  the  status  variable  (ST)  will  be  set  to 
64  on  the  C64  side  after  byte  134  has  been  read. 

.    80:    4E  36  34  2E  56  31   OD  xx  N64.V1. 
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The  remainder  of  the  block  has  been  padded  ($87— $FF).  The  padding  is  clearly 
recognizable  this  time  around.  It  has  no  rhyme  or  reason  but  it  is  still  interesting  to 
say  the  least.  A  portion  of  the  C-64  DISK  BONUS  PACK  directory  itself  was  used  to 
pad  the  remainder  of  the  data  block  in  question. 


80: 

XX 

XX 

XX 

XX 

XX 

XX 

59 

N64. VI . Y 

88 

:  54 

53 

50 

52 

49 

54 

45 

53 

TSPRITES 

90: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

98 

:  00 

OO 

OO 

00 

OO 

00 

05 

00 

AO: 

00 

OO 

82 

07 

OO 

53 

4E 

4F 

 SNO 

A8 

:  4F 

50 

59 

20 

4D 

41 

54 

48 

DPY  MATH 

BO: 

AO 

AO 

AO 

AO 

AO 

OO 

00 

OO 

B8: 

.  00 

00 

OO 

00 

OO 

OO 

33 

OO 

 3. 

CO: 

oo 

OO 

82 

ID 

00 

41 

4D 

4F 

 AMD 

CO- 

.  52 

54 

20 

54 

41 

42 

4C 

45 

RT  TABLE 

do: 

AO 

AO 

AO 

AO 

AO 

OO 

OO 

OO 

D8 

:  OO 

OO 

00 

00 

00 

OO 

27 

OO 

EO: 

,  00 

OO 

82 

05 

02 

4D 

4F 

52 

 MOR 

E8 

.  54 

47 

41 

47 

45 

AO 

AO 

AO 

TGAGE  
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■  AO 

AO 

AO 

AO 

AO 

OO 

00 

OO 

F8 

:  00 

OO 

OO 

00 

00 

00 

2D 

OO 

4.7  Relative  File  Storage 

Relative  file  types  have  the  most  elaborate  internal  structure.  Relative  files  are  often 
referred  to  as  random  access  files.  A  relative  file  is  actually  two  files  in  one: 

1.  A  sequential  data  file  with  records  of  a  fixed  length. 

2.  A  file  of  track  and  sector  pointers  called  side  sectors. 

The  sequential  data  file  uses  fixed  length  records  so  that  the  DOS  can  calculate  where 
to  find  any  given  record.  This  makes  it  possible  to  position  to  a  particular  record  and 
read  or  write  it  without  disturbing  the  rest  of  the  file.  In  the  jargon  of  relative  files, 
the  length  of  one  record  in  the  sequential  data  file  is  known  as  the  record  size. 

The  complete  file  of  track  and  sectors  pointers  is  called  the  side  sector  file.  The  size 
of  this  file  depends  on  the  length  of  the  sequential  file.  In  general  it  is  l/120th  the  length 
of  the  sequential  file  (minimum  length  =  1  block;  maximum  length  =  6  blocks).  Each 
block  in  this  file  is  known  as  a  side  sector.  There  are  really  two  sets  of  track  and  sector 
pointers  in  this  file.  The  larger  set  is  a  list  of  the  track  and  sector  numbers  of  the  blocks 
used  to  store  the  sequential  data  file  (its  file  chain).  The  other  is  a  list  of  the  track  and 
sector  numbers  of  the  side  sectors  (the  file  chain  of  the  side  sector  file). 

The  purpose  of  the  side  sector  file  is  to  allow  the  DOS  to  find  any  given  record  with 
remarkable  efficiency.  One  disk  read  of  a  side  sector  is  all  that  is  required  to  locate  the 
track  and  sector  of  the  block  where  a  particular  record  is  stored.  Two  additional  reads 
may  then  be  required  to  retrieve  a  record  itself  if  it  spans  two  data  blocks.  This  will 
be  explained  shortly  when  we  examine  records  in  more  detail. 
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Remember  that  sequential  data  blocks  have  the  following  format: 

Byte  Purpose  

0  Track  of  the  next  block  in  this  file 

1  Sector  of  the  next  block  in  this  file 

2-255  254  bytes  of  data 

Diagrammatically,  each  block  (side  sector)  in  the  side  sector  file  looks  like  this: 


TRACK 

SECTOR 

SIDE 

RECORD 

TRACK/SECTOR 

TRACK/SECTOR 

LINK 

LINK 

SECTOR 

SIZE 

LINKS  FOR  6 

LINKS  FOR  120 

NUMBER 

SIDE  SECTORS 

DATA  BLOCKS 

B)i;e  Purpose  

0  Track  of  the  next  side  sector 

1  Sector  of  the  next  side  sector 

2  Side  sector  number 

3  Record  length 

4-15  Track  and  sector  list  of  the  side  sector  file 


4-5  Track  and  sector  of  side  sector  #0 

6-7  Track  and  sector  of  side  sector  #1 

8-9  Track  and  sector  of  side  sector  #2 

10-11  Track  and  sector  of  side  sector  #3 

12-13  Track  and  sector  of  side  sector  #4 

14-15  Track  and  sector  of  side  sector  #5 

16-256         Track  and  sector  list  of  120  data  blocks 

16-17  Track  and  sector  of  data  block  #1 
18-19  Track  and  sector  of  data  block  #2 
20-21  Track  and  sector  of  data  block  #3 

254-255  Track  and  sector  of  data  block  #120 

To  help  you  make  some  sense  out  of  this,  let's  begin  with  the  directory  entry  for  a  relative 
file.  Here's  the  start  of  the  directory  of  a  diskette  that  has  a  relative  file  stored  on  it. 
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TRACK  18 


-  SECTOR  01 


00: 

00 

FF 

81 

1 1 

00 

53 

43 

20 

SC 

08: 

31 

4D 

41 

47 

20 

46 

49 

4C 

IMAG 

FIL 

10: 

45 

AO 

AO 

AO 

AO 

OO 

00 

00 

E.  .  .  . 

18: 

00 

OO 

00 

00 

OO 

00 

01 

00 

20: 

00 

00 

81 

1 1 

01 

53 

43 

20 

SC 

28: 

32 

4D 

41 

47 

20 

46 

49 

4C 

2MAG 

FIL 

30: 

45 

AO 

AO 

AO 

AO 

OO 

00 

00 

E.  .  .  . 

38: 

00 

OO 

OO 

00 

00 

00 

Ol 

00 

40: 

00 

OO 

81 

11 

02 

53 

43 

20 

SC 

48: 

33 

4D 

41 

47 

20 

46 

49 

4C 

3MAG 

FIL 

50: 

45 

AO 

AO 

AO 

AO 

00 

OO 

00 

E  

58: 

OO 

00 

00 

00 

00 

OO 

01 

00 

60: 

00 

OO 

84 

11 

03 

4D 

41 

47 

MAG 

68: 

20 

46 

49 

4C 

45 

AO 

AO 

AO 

FILE 

70: 

AO 

AO 

AO 

AO 

AO 

11 

OD 

96 

78: 

00 

OO 

OO 

00 

00 

OO 

B4 

01 

Here's  the  entry 
for  the  REL  file: 


"MAG  FILE"  will  serve  as  our  demo  throughout  this  section.  Let's  examine  its  direc- 
tory entry  in  detail  from  track  18,  sector  1. 


-    60:    OO  OO  84   11   03  4D  41   47  MAG 

pjjg  ^ypg  jjj^j^ 

.    68:    20  46  49  4C  45  AO  AO  AO  FILE  

.    70:    AO  AO  AO  AO  AO   11   OD  96   

.    78:    OO  OO  OO  OO  OO  OO  B4  01   


From  the  directory  entry  we  can  see  that  "MAG  FILE"  is  a  relative  file.  A  relative 
file  is  indicated  by  an  $84  as  the  file  type.  The  track  and  sector  pointers  in  the  directory 
reveal  that  "MAG  FILE"  starts  at  track  17  ($11),  sector  03  ($03).  This  is  the  sequential 
data  file  portion  of  the  relative  file.  It  is  the  beginning  of  our  data. 


.    70:    AO  AO  AO  AO  AO   11   OD  96   

**  **  **  gj^g  sector  information 

Record  length 

Side  sector  information  follows  the  file  name.  The  first  side  sector  begins  at  track  17 
($11),  sector  13  ($0D).  In  addition,  we  see  our  record  length  ($96=150).  Each  record  in 
our  sequential  data  file  is  150  bytes  long.  This  is  fixed  throughout  the  entire  data  file. 


78:    OO  OO  OO  OO  00  OO  B4  Ol   

**  **  File  length  Go/hi-byte) 
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Our  sample  relative  file  consumes  a  total  of  436  blocks  on  the  diskette  (180  +  1  *  256). 
(There  is  still  room  for  expansion.)  We  can  determine  the  number  of  side  sectors  by 
simple  divison.  A  side  sector  stores  track  and  sector  pointers  for  120  data  blocks  of  our 
sequential  file.  To  determine  the  number  of  side  sectors,  simply  divide  the  total  number 
of  blocks  that  appear  in  the  directory  entry  by  120  and  round  up  to  the  next  higher 
integer: 

436  /  120  =  3.6  4 

Four  side  sectors  are  needed  to  keep  track  of  this  much  data.  To  figure  out  how  many 
records  currently  exist  requires  a  little  more  arithmetic.  First  we  have  to  subtract  the 
number  of  side  sectors  from  the  total  number  of  blocks. 

436  -  4  =  432 

Now  we  can  determine  the  total  number  of  data  bytes  currently  in  use  by  our  sequen- 
tial file. 

432  *  254  =  109728 

Why  254  as  a  multiplier?  Remember  that  the  first  two  bytes  of  any  data  block  are  for- 
ward track  and  sector  pointers  (256  -  2  =  254).  We  fmish  our  set  of  calculations  by 
dividing  this  total  by  the  fixed  record  length. 

109728  /  150  =  731.52 

A  total  of  731  records  exist  at  the  current  time  in  "MAG  FILE." 

Let's  examine  the  first  side  sector. 
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Of  primary  interest  are  the  first  16  bytes. 

.  00:  OC  13  OO  96  11  OD  OC  13 
.    OS:    06   10   13  OF  OO  OO  OO  OO 


Bytes  0  and  1  show  us  that  the  next  side  sector  resides  at  track  12  ($0C),  sector  19  ($13). 
Byte  2  informs  us  that  this  is  side  sector  0.  A  maximum  of  6  side  sectors  are  used  by 
any  one  relative  file.  This  is  determined  solely  by  the  physical  storage  capacity  of  the 
diskette  (664  blocks  free  after  formatting  divided  by  120  track  and  sector  pointers  in 
a  side  sector  equals  5.53  side  sectors).  Side  sectors  are  numbered  from  0  to  5.  Byte  3 
shows  us  the  record  size  again  (150  bytes).  Bytes  5-15  are  the  track  and  sector  locations 
of  the  six  possible  side  sectors.  They  can  be  tabled  as  follows: 


BYTE             SIDE  SECTOR  TRACK  -  SECTOR 

4-5  0  17  ($11)  -  13  ($0D) 

6-7  1  12  ($0C)  -  19  ($13) 

8-  9  2  6  ($06)  -  16  ($10) 

10-11  3  19  ($13)  -  15  ($0F) 

12-13  4  0($00)-  0($00) 

14-15  5  0($00)-  0($00) 


We  can  see  from  the  table  above  that  side  sectors  4  and  5  have  not  yet  been  allocated. 
Once  our  data  file  expands  to  encompass  more  than  480  and  600  sectors,  respectively, 
they  will  be  allocated,  provided  there  is  room  on  the  diskette. 

The  remaining  240  bytes  are  track  and  sector  pointers  to  the  first  120  blocks  in  the  se- 
quential file.  From  bytes  16  and  17  of  side  sector  0  we  see  that  our  data  begins  at  track 
17  ($11),  sector  03  ($03).  (This  is  the  track  and  sector  recorded  in  the  directory  itself.) 
Track  17,  sector  03  chains  to  track  17  ($11),  sector  14  ($0E)  which  chains  to  track  17 
($11),  sector  4  ($04)  and  so  on. 
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Let's  trace  the  remaining  side  sectors  now. 
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Side  sector  1  looks  OK  on  this  end. 
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Side  sector  2  seems  to  be  in  order  too. 

TRACK  19  -  SECTOR  15  SIDE  SECTOR  #3 
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Hold  it  right  there  please.  Bytes  0  and  1  should  look  familiar  by  now.  Still  thinking? 
(Hint:  End  of  chain  and  a  byte  count.) 

.    OO:    OO  9F  03  96   11   OD  OC  13   


Byte  1  of  side  sector  3  shows  a  byte  count  of  159  ($9F).  Recall  that  bytes  16-255  in  a 
side  sector  are  a  list  of  track  and  sector  pointers  to  120  data  blocks.  As  a  result,  bytes 
158  and  159  must  be  interpreted  together.  They  point  to  the  last  block  in  our  sequential 
data  file  in  this  instance.  The  last  block  is  stored  on  track  23  ($17),  sector  12  ($0C).  Notice 
too,  that  the  remainder  of  the  side  sector  is  padded  with  nulls.  The  remaining  96  bytes 
are  in  limbo  until  our  relative  file  is  expanded.  Bytes  160  and  161  will  then  point  to  the 
next  track  and  sector  of  data  and  so  on.  When  side  sector  3  is  full,  a  new  side  sector 
will  be  created.  Bytes  0  and  1  of  side  sector  3  will  then  point  to  side  sector  4.  Bytes 
12  and  13  in  side  sectors  0,  1,  and  2  will  also  be  updated  to  reflect  the  creation  of  side 
sector  4. 

Now  let's  take  a  brief  glance  at  the  sequential  file  itself. 
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The  block  reveals  a  typical  sequential  file.  Bytes  0  and  1  are  the  chain.  The  first  data 
block  links  to  track  17  ($11),  sector  14  ($0E).  The  next  150  bytes  (2  -  151)  constitute 
our  first  record.  Note  that  the  unused  bytes  within  a  record  are  written  as  nulls  ($00) 
by  the  DOS  so  the  record  is  always  a  fixed  length.  The  content  of  individual  records 
will  vary  enormously.  This  is  program  dependent  so  the  data  block  in  question  contains 
whatever  data  was  specified  by  the  program  used.  This  particular  record  is  from  a  free 
form  data  base.  It  was  reserved  to  for  management  information  by  the  main  program 
and  contains  the  following  data: 

1.  The  name  of  our  relative  file  ("MAG  FILE"). 

2.  The  number  of  active  records  (709). 

3.  The  number  of  fields  in  use  (6). 

4.  The  field  titles  (TITLE,  COMPUTER,  MAGAZINE,  ISSUE,  PAGE,  COMMENT). 

In  the  sequential  data  file  portion  of  a  relative  file,  the  record  length  (record  size)  is 
constant.  In  this  case,  the  records  are  all  150  bytes  long.  Record  number  2  begins  at 
byte  152  ($98)  and  will  extend  on  into  the  next  data  block.  Two  reads  would  be  required 
to  fetch  the  entire  contents  of  this  record.  The  first  104  bytes  of  the  record  will  be  found 
here,  but  the  remaining  46  are  in  the  next  block  of  the  file.  Here  they  are. 
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Record  number  2  is  used  again  for  management  information  by  our  data  base.  It  simply 
contains  the  record  length.  One  can  see  from  the  number  of  carriage  returns  ($0D)  that 
while  only  6  fields  are  in  use,  21  were  established  by  the  main  program.  One  can  also 
see  that  a  blank  field  from  this  data  base  is  stored  as  a  period  ($2E  =  CHR$(46)  =  "."). 
Record  number  3  begins  at  byte  48.  It  contains  our  first  actual  data.  It  would  look  like  so: 

Title:         Sound  Synthesis 
Computer:  All 
Magazine:   Compute  (sic) 
Issue:        Jan  83 
Page:  26 
Comment:  (none) 

Just  out  of  curiosity  let's  examine  the  last  two  sectors  of  our  sequential  file  chain  as 
reported  in  bytes  156-159  of  side  sector  3.  Why  two  sectors?  Our  fixed  length  of  150 
bytes  dictates  this.  (A  fixed  record  length  of  1,  2,  127,  or  254  would  not  span  a  given 
sector.  The  maximum  length  of  a  relative  record  is  254  bytes.  254  is  the  only  number 
evenly  divisible  by  these  factors.  A  record  length  of  1  or  2  would  be  rather  impractical.) 
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An  analysis  of  the  preceding  two  sectors  will  all  but  end  our  discussion  on  relative  file 
structure.  Bytes  2-131  of  track  23,  sector  2  are  the  overflow  of  a  previous  record.  Bytes 
132-255  of  this  same  track  and  bytes  2-27  of  track  23,  sector  12  make  up  the  next  record. 
This  record  is  empty,  as  indicated  by  a  255  ($FF)  in  the  first  byte  and  nulls  in  the  re- 
maining bytes.  Track  23,  sector  12  has  no  forward  chain  and  a  byte  count  of  177  ($B1). 
Our  last  record  in  the  relative  file  ends  at  byte  177  (28-177).  What  is  interesting  is  the 
padding  beyond  this  point: 
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We  would  expect  to  find  all  nulls  ($00).  Byte  178  ($B2),  however,  shows  an  $FF,  i.e., 
the  start  of  a  new  record.  The  DOS  is  one  step  ahead  of  the  game  when  expansion  time 
rolls  around.  A  partial  record  has  already  been  created  in  this  instance.  The  DOS  need 
only  calculate  the  difference  between  255  and  the  byte  count  to  determine  the  number 
of  nulls  that  must  follow  to  complete  the  record: 

255  -  177  =  78  bytes  already  in  existence 
It  then  takes  the  record  size  to  figure  out  the  padding  needed: 

Total  Record  Length  -  Bytes  in  Existence  =  Nulls  to  Go 
150  -  78  =  72 

Slick! 

We  vdll  close  our  section  on  relative  file  structure  by  taking  a  brief  look  at  how  the 
computer,  or  you,  can  locate  a  particular  relative  record.  Pick  a  number,  any  number. 
Record  number  4  you  say.  No  problem  if  you  know  the  record  length. 

First  we  find  the  appropriate  side  sector. 
4-1  =  3  previous  records 

3  *  150  fixed  length  =  450th  starting  byte  (i.e.,  0  -  449  previous  bytes) 

450  /  254  =  1.7716535 

INT  (1.7716535)  -i-  1  =  pointer  set  2 
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Pointer  set  2  /  120  sets  of  pointers  in  a  side  sector  =  0.01666667 

INT  (0.01666667)  =  side  sector  0 
Where  in  side  sector  0  is  it?  Easy. 

Byte  14  +  (pointer  set  2  *  2  bytes  in  a  pointer)  =  byte  18 

Bytes  18  and  19  will  contain  the  track  and  sector  of  our  record. 
Where  in  the  actual  data  block  is  it?  A  piece  of  cake. 

1.7716535  -  INT(1.7716535)  =  remainder  .7716535 

2  (skip  over  bytes  0  and  1)  +  (.7716535  *  254  bytes  of  data)  =  byte  198 

Still  a  disbeliever?  Check  it  out  yourself  in  the  preceding  hex  dumps  of  track  17,  sector 
13  and  track  17,  sector  14. 

4.8  User  File  Storage 

A  user  file  (USR)  file  is  one  that  is  designed  by  the  user.  This  file  type  is  designated 
by  an  $83  in  the  directory.  Although  a  user  file  is  a  legal  Commodore  file  type  (USR), 
its  use  is  quite  rare.  Using  a  USR  file  rather  than  a  more  common  file  type  is  for 
showmanship  only. 

A  user  file  may  have  the  structure  of  either  a  sequential  file  or  a  program  file  if  it  was 
created  by  the  DOS.  It  may  be  structured  entirely  differently  if  it  was  created  using 
direct-access  techniques  described  in  Chapter  5.  Before  you  do  something  rash,  remember 
that  the  DOS  will  expect  to  find  the  track  and  sector  links  in  their  normal  places.  If 
they  are  not  there,  all  the  blocks  that  make  up  your  file  will  be  earmarked  as  free  in 
the  BAM  whenever  the  disk  is  vahdated! 

4.9  Deleted  File  Storage 

A  deleted  file  (DEL)  has  a  file-type  byte  of  $80  in  the  directory.  This  is  not  a  scratched 
file  ($00),  but  an  undocumented  Commodore  file  type  (DEL).  It  is  extremely  rare.  Only 
one  vendor  has  dared  use  a  DEL  file  on  a  commercial  product  to  date.  It  was  not  a  func- 
tional file  and  was  placed  on  the  diskette  to  intimidate  users  as  part  of  a  low  level  pro- 
tection scheme. 

You  cannot  create  a  DEL  file  using  an  OPEN  statement.  You  can  only  create  a  DEL 
file  by  changing  the  file-type  byte  of  an  existing  file  to  $80  as  described  in  the  next  sec- 
tion. Since  a  DEL  file  is  really  another  file  type  in  disguise,  a  DEL  file  may  have  the 
structure  of  either  a  sequential  file  or  a  program  file.  If  it  has  the  structure  of  a  pro- 
gram file,  it  may  be  loaded  using  one  of  these  commands: 

LOAD  "FILE  NAME, DEL, R", 8  (RELOCATED) 

LOAD  "FILE  NAME , DEL , R " , 8 , 1  ( NOT  RELOCATED ) 
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If  a  DEL  file  is  structured  like  a  sequential  file,  it  may  be  opened  in  read  mode  using 
the  following  command: 


OPEN  2,8,2, "FILE  NAME, DEL, R" 


4.10  Locked  Files 

Earlier  in  this  chapter  you  may  have  been  surprised  to  see  locked  files  of  various  form 
in  the  table  of  legal  file  types.  Locked  file  types  are  once  again  an  undocumented  feature 
of  Commodore  disk  drives.  A  locked  file  cannot  be  scratched  unless  it  is  first  unlocked. 
Unfortunately,  the  DOS  does  not  support  the  locking  or  unlocking  of  a  file.  You  have 
to  do-it-yourself  by  editing  the  file-type  byte  in  the  directory  entry  for  that  file.  The 
program  EDIT  TRACK  &  SECTOR  listed  in  Appendix  C  allows  you  to  do  this.  We 
will  not  describe  the  technique  here.  See  the  section  on  Unscratching  a  File  in  Chapter 
8  for  instructions  on  how  to  edit  the  file-type  byte.  Use  the  values  from  the  table  below, 
rather  than  those  listed  in  Chapter  8,  when  locking  or  unlocking  a  file. 


File  Type   Normal  Locked 

Deleted  DEL  $80      DEL  <  $C0 

Sequential  SEQ  $81      SEQ  <  $C1 

Program  PRG  $82      PRG  <  $C2 

User  USR  $83      USR  <  $C3 

Relative  REL  $84      REL  <  $C4 

The  DOS  determines  whether  or  not  a  file  is  locked  by  checking  bit  6  of  the  file-type 
byte.  If  it  is  set  (1),  the  file  is  locked.  Even  if  a  file  has  been  locked,  it  may  be  renamed 
or  copied  using  normal  disk  commands. 


Conclusion 

The  material  covered  in  this  chapter  is  primarily  of  academic  interest.  However,  do  not 
attempt  to  recover  a  blown  file  unless  you  thoroughly  understand  the  structure  of  the 
directory  and  how  files  are  stored. 
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CHAPTER  5 


DIRECT-ACCESS  PROGRAMMING 


5.1  Introduction  to  Direct-Access  Programming 

In  Chapter  2  you  learned  how  to  use  such  DOS  commands  as  NEW,  SCRATCH,  and 
VALIDATE,  for  diskette  housekeeping.  This  chapter  describes  how  to  use  another  set 
of  DOS  commands  known  as  direct-access  commands.  These  commands  are  not  com- 
monly used  in  typical  programming  applications.  However,  they  allow  you  to  step  beyond 
simple  housekeeping  chores  to  develop  more  powerful  disk  utility  programs  that  do  such 
things  as: 

Change  a  disk  name  or  cosmetic  ID. 

Display  a  block  availability  map  (the  BAM). 

Display  a  directory. 

Display  a  track  and  sector. 

Chain  through  a  directory  entry. 

Edit  a  track  and  sector. 

Recover  an  inadvertently  scratched  file. 

Recover  a  damaged  diskette. 

Duplicate  a  diskette. 

Copy  a  file. 

Catalog  a  disk  library. 

As  you  grow  with  your  1541,  the  need  for  routines  of  this  nature  will  become  increas- 
ingly apparent,  if  it  isn't  already.  This  chapter  illustrates  the  use  of  direct-access  com- 
mands in  simple  programs.  A  basic  understanding  of  the  function  of  these  commands 
is  necessary  to  appreciate  the  routines  found  in  subsequent  chapters  and  Appendix  C. 

5.2  Beginning  Direct-Access  Programming 

The  1541  DOS  recognizes  nine  direct-access  commands.  These  direct-access  commands 
and  their  functions  are  listed  below. 


Direct-Access  Command  Function 


Block-Read  (Ul)  Read  a  data  block  into  1541  RAM. 

Buffer-Pointer  (B-P)  Set  pointer  to  any  byte  in  a  disk  buffer. 

Block- Write  (U2)  Write  a  data  block  from  1541  RAM  to  diskette. 
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Memory-Read  (M-R) 
Memory- Write  (M-W) 
Block-Allocate  (B-A) 
Block-Free  (B-F) 
Memory-Execute  (M-E) 

Block-Execute  (B-E) 


Peek  bytes  out  of  1541  RAM  or  ROM. 

Poke  bytes  into  1541  RAM. 

Set  bit  in  BAM  to  indicate  a  sector  is  in  use. 

Set  bit  in  BAM  to  indicate  a  sector  is  not  in  use. 

Execute  a  6502  routine  stored  in  1541  RAM 

or  ROM. 

Load  and  execute  a  6502  routine  in  1541  RAM. 


More  often  than  not,  direct-access  commands  complement  one  another  in  actual  use. 
For  example,  a  sector  can  be  read  from  disk  using  a  Ul  command,  examined  using  a 
B-P  or  M-R  command,  altered  using  a  B-P  or  M-R  command,  and  rewritten  to  disk  us- 
ing a  U2  command. 

The  block-read  (Ul),  buffer-pointer,  and  block-write  (U2)  comands  are  the  easiest  to  com- 
prehend and,  as  a  result,  the  most  widely  used.  The  memory-read  and  memory-write 
commands  represent  a  more  sophisticated  level  of  direct-access  programming  and  are 
sometimes  used  in  lieu  of  the  buffer-pointer  command.  The  block-allocate  and  block-free 
commands  are  used  primarily  for  the  maintenance  of  random  access  files.  Random  ac- 
cess files  were  the  forerunner  of  relative  files  and  are  rarely  used  today.  The  memory- 
execute  command  is  used  at  the  guru  level  of  disk  programming  and  requires  a  rudimen- 
tary knowledge  of  both  machine  language  and  the  innards  of  the  1541  to  implement. 
The  block-execute  command,  while  documented  by  Commodore,  is  almost  never  used. 

In  order  to  use  the  commands  mentioned  above  you  will  need  to  learn  how  to  open  a 
direct-access  data  channel.  The  format  of  a  direct-access  OPEN  statement  is: 

SYNTAX:     OPEN  ■file#,   device#,   channel#,  "#" 

EXAMPLE:   OPEN  2,8,2, "#" 
OPEN  1,8,14,"#" 

where 

file#  =  the  logical  file  number  (1  to  127) 

device*        =  8 

channel*       =  the  secondary  address  of  the  associated  open  statement  (2  to  14) 


Opening  a  direct-access  data  channel  establishes  a  communication  link  between  the  C64 
and  the  1541.  In  the  first  example,  we  opened  logical  file  number  2  on  the  C64  side 
to  device  number  8  with  a  secondary  address  of  2  (channel  number  2)  on  the  1541  side. 
The  only  time  a  channel  number  is  ever  referenced  is  as  part  of  a  direct-access  com- 
mand, e.g.,  a  block-read  command  (Ul).  Data  is  always  read  from  disk  (GET#  file#, 
INPUT#  file#,)  or  written  to  disk  (PRINT*  file#,)  by  way  of  the  logical  file  number  of 
the  direct-access  OPEN  statement  NOT  the  channel  number.  The  logical  file  number 
and  the  channel  number  do  not  have  to  match  as  they  do  in  our  first  OPEN  example. 
They  are  two  separate  entities.  The  logical  file  number  which  resides  on  the  C64  side 
passes  read  or  write  commands  to  the  channel  number  on  the  1541  side.  Any  similarity 
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between  the  logical  file  number  and  the  channel  number  is  for  mnemonic  purposes  only. 
The  second  example  is  a  perfectly  legal  direct-access  OPEN  statement.  In  this  instance, 
we  opened  logical  file  number  1  (GET#1,  PRINT#1,)  to  device  number  8  with  a  second- 
ary address  of  14  (channel  number  14)  on  the  1541  side.  Whether  or  not  you  use  mnemonic 
OPEN  statements  is  strictly  a  matter  of  personal  preference. 

We  will  begin  our  tutorial  on  direct-access  programming  with  a  quick  review  of  the  1541 
format  explained  in  Chapter  3.  The  table  below  outlines  the  range  of  track  and  sector 
numbers  found  on  a  diskette. 


Zone  Track  Sector  Range  Number  of  Sectors 

1  1-17  0  -  20  21 

2  18-24  0-18  19 

3  25  -  30  0  -  17  18 

4  31  -  35  0  -  16  17 


NOTE:  If  you  attempt  to  access  a  track  less  than  1,  a  track  greater  than  35,  or  a  sector 
out  of  range  for  a  given  track,  you  will  get  a  DOS  error  message  number  66,  ILLEGAL 
TRACK  OR  SECTOR. 

5.3  Block-Read  Command  (U1) 

The  block-read  command  (Ul)  transfers  the  contents  of  a  given  track  and  sector  to  an 
area  of  disk  RAM  commonly  referred  to  as  a  buffer  or  workspace.  The  format  of  a  block- 
read  command  (Ul)  is: 

SYNTAX: 

PRINT#  file#,    "Ul";   channel#;   drive#;  track; 
sector 

ALTERNATE: 

PRINT#  file#, 

sector 
PRINT#  file#, 

sector " 

example: 

PRINT#15, "Ui";2;0; i8;o 


where 

file#  =  the  logical  file  number  of  the  command  channel 

channel*  =  the  secondary  address  of  the  associated  open  statement 

drive#  =  0 

track  =  1  to  35 

sector  =  0  to  the  range  for  a  given  track 


"Ul:"  channel*;  drive#;  track; 
"Ul:   channel*,   drive*,  track. 
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After  a  given  track  and  sector  has  been  transferred  to  a  buffer  with  a  block-read  com- 
mand (Ul),  the  buffer  pointer  is  automatically  left  in  position  255.  Bytes  0-255  of  the 
buffer  are  now  accessible  from  the  starting  position,  i.e.,  byte  0.  The  GET#  command 
is  normally  used  to  retrieve  one  byte  at  a  time  from  the  buffer  by  way  of  the  logical 
file  number  of  the  direct-access  OPEN  statement.  The  GET#  command  is  used  rather 
than  INPUT*  because  the  data  may  contain  null  bytes,  carriage  returns  and/or  line  feeds, 
commas,  colons,  or  other  control  characters.  When  using  the  GET#  command  you  must 
remember  to  test  each  incoming  byte  for  equality  with  the  null  string  "".  A  null  byte 
must  be  converted  to  CHR$(0)  or  an  7ILLEGAL  QUANTITY  ERROR  will  result  when 
you  try  to  find  the  ASCII  value  of  the  byte.  (The  GET#  command  fails  to  make  the 
necessary  conversion  for  you.)  The  ASCII  value  of  a  byte  is  used  to  check  for  control 
characters.  These  characters  are  misinterpreted  by  the  INPUT*  command.  The  follow- 
ing example  reads  the  block  from  track  18,  sector  0  (the  BAM)  into  disk  RAM  and  prints 
the  contents  to  the  screen. 

100  REM  BLOCK-READ  (Ul) 

110  OPEN   15,8, 15 

120  PRINT#15, "10" 

1 30  I NPUT# 1 5 , EN* , EM* , ET* , ES* 

140  IF  EN*<>"00"GOTO  290 

150  OPEN  2,8,2, 

160  PRINT#15, "Ul";2;o; 18;0 

170  INPUT#15,EN*,EM*,ET*,ES* 
180   IF  EN*<>"00"GOTO  270 
190  FOR   I=0  TO  255 
200  GET#2,B* 

210   IF  B*=""THEN  B*=CHR*(0) 
220  A=ASC(B*) 
230  PRINT  ST, I, A, 

240  IF  A>31  AND  A<96  THEN  PRINT  B*, 
250  PRINT 
260  NEXT  I 
270  CLOSE  2 

280   I NPUT# 1 5 , EN* , EM* , ET* , ES* 
290  CLOSE  15 
300  END 

Line  Range  Description  


110  Opens  logical  file  number  15  (PRINT#15,)  to  device  8  vdth  a 

secondary  address  of  15  (command  channel). 
120  Initializes  drive  0. 

130-140  Query  the  error  channel. 

150  Opens  logical  file  number  2  (GET#2,)  to  device  8  with  a  secondary 

address  of  2  (channel  number  2)  letting  the  1541  assign  a  buffer 
area. 

160  Reads  the  block  from  drive  0,  track  18,  sector  0  into  channel  2  buf- 

fer area. 

170-180  Query  the  error  channel. 

190  Begin  loop  to  read  256  bytes. 
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200 

Transfer  a  byte  from  channel  2  buffer  area  to  C  64  memory  by  way 

of  the  GET#  command  (GET#  logical  file  number  not  the  channel 

number). 

210 

Test  for  equality  with  the  null  string  "". 

220 

ASCII  conversion  of  a  byte. 

230 

Print  the  status  variable  (ST),  our  loop  counter,  and  the  ASCII 

value  of  the  byte. 

240 

Print  the  byte  if  it's  within  normal  ASCII  range. 

250 

Terminate  comma  tabulation. 

260 

Increment  loop  counter. 

270 

Close  logical  file  number  2. 

280 

Suppress  the  error  light. 

290 

Close  logical  file  number  15. 

300 

End. 

An  explanation  of  programming  technique  is  in  order  here.  Initialization  (line  120)  is 
done  prior  to  opening  a  direct-access  data  channel  Qine  150).  Initialization  automatically 
shuts  down  all  direct-access  data  channels  (2  -14)  that  are  open  on  the  1541  side.  The 
command  channel  (15)  is  not  affected.  Logical  files  still  remain  open  on  the  C64  side, 
however.  Any  attempt  to  access  a  data  channel  after  initialization  results  in  a  70,  NO 
CHANNEL  error.  The  DOS  attempts  to  rewrite  the  BAM  each  time  a  direct-access 
channel  is  closed  (line  270).  If  a  diskette  is  either  write  protected  or  DOS  protected, 
the  BAM  is  not  rewritten  and  the  error  light  remains  on  until  cleared.  Fortunately,  no 
damage  has  been  done  to  the  data  on  the  diskette.  The  error  light  is  quite  distracting 
nevertheless.  You  can  suppress  the  error  light  after  closing  a  direct-access  data  chan- 
nel simply  by  inputting  the  error  number,  message,  track,  and  sector  via  the  command 
channel  Qine  280). 

The  alternate  formats  of  the  block-read  command  (Ul)  in  line  160  are: 
PRINT#15, "Ul: "2;0; 18; o 

PRINT#15, "Ul:2,0, 18,0" 

Although  the  block-read  command  (Ul)  comes  in  three  basic  flavors,  line  160  uses  the 
preferred  format.  It  will  be  used  in  demonstration  programs  throughout  the  chapter 
for  consistency.  Alternate  formats  will  appear  in  passing. 

Additionally,  lines  210-220  are  often  combined  into  one  BASIC  statement  for  the  sake 
of  efficiency: 

A=ASC (B*+CHR* (0> ) 

Recall  that  lines  210-220  are  necessary  because  the  GET#  command  does  not  interpret 
nulls  correctly. 

5.4  Buffer-Pointer  Command  (B-PJ 

The  buffer-pointer  command  allows  access  to  any  individual  byte  in  a  DOS  buffer.  Any 
byte  from  position  0  through  255  in  the  buffer  may  be  read  or  overwritten.  The  format 
of  a  buffer-pointer  command  is: 
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SYNTAX : 

PRINT#  file#,    "B-P";   channel*;   byte  position 


ALTERNATE: 

PRINT*  file#,  "B-P:"  channel #;  byte  position 
PRINT*  file#,    "B-P:   channel*,   byte  position" 

EXAMPLE: 

PRINT#15, "B-P"; 2; 144 

where 

file#  =  the  logical  file  number  of  the  command  channel 

channel*       =  the  secondary  address  of  the  associated  open  statement 
byte  position  =  0  to  255 

The  following  program  displays  a  disk  name  by  reading  only  bytes  144  to  159  from  track 
18,  sector  0. 

lOO  REM  BUFFER-POINTER 

no  OPEN  15,8,  15 

120  PRINT#15, "lO" 

1 30   I NPUT# 1 5 , EN* , EM* , ET* , ES* 

140   IF  EN*<>"00"GOTO  320 

150  OPEN  2,8,2, "#" 

160  PRINT#15, "Ui";2;o; i8;o 

170  INPUT#15,EN*,EM*,ET*,ES* 
180   IF  EN*<>"00"GOTO  300 
190  PRINT#15, "B-P";2; 144 
200  FOR   1=1   TO  16 
210  GET#2,B* 

220   IF  B*=""THEN  B*=CHR*(0) 

230  A=ASC(B*) 

240   IF  A>127  THEN  A=A-128 

250   IF  A<32  OR  A>95  THEN  A=63 

260   IF  A=34  THEN  A=63 

270  DN*=DN*+CHR*<A) 

280  NEXT  I 

290  PRINT" tDOWN> DISK  NAME:    " ; DN* 
300  CLOSE  2 

310  INPUT#15,EN*,EM*,ET*,ES* 

320  CLOSE  15 
330  END 

Line  Range  Description  


190  Sets  channel  2  pointer  to  position  144  in  the  buffer  area. 

200-280  Concatenate  (build)  the  disk  name  one  byte  at  a  time  by  jamming  it 

within  printable  ASCII  range. 
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The  alternate  formats  of  the  buffer-pointer  command  in  line  190  are: 
PRINT#15, "B-P: "2; 144 

PRINT#15, "B-P: 2, 144" 

5.5  Block-Write  Command  (U2| 

The  block-write  command  (U2)  writes  the  data  from  a  DOS  buffer  to  any  given  track 
and  sector  on  a  diskette.  The  format  of  a  block-write  command  (U2)  parallels  that  of 
a  block-read  command  (Ul).  The  format  of  a  block- write  command  (U2)  is: 

SYNTAX: 

PRINT#  ■file#,    "U2";   channel#;   drive#;  track; 
sector 

ALTERNATE: 

PRINT#  -file#, 

sector 
PRINT#  -file*, 

sector " 

EXAMPLE: 

PRINT#15, "U2";2;o; i8;o 

where 

file#  =  the  logical  file  number  of  the  command  channel 

channel*       =  the  secondary  address  of  the  associated  open  statement 
drive*  =  0 

track  =  1  to  35 

sector  =  0  to  the  range  for  a  given  track 

The  entire  contents  of  a  buffer  are  written  to  disk  during  the  execution  of  a  block-vmte 
command  (U2).  The  position  of  the  buffer-pointer  is  irrelevant.  It  is  not  referred  to  by 
the  DOS  during  the  execution  of  a  block-vmte  command  (U2). 

The  first  program  listed  below  allows  a  disk  name  to  be  changed  using  a  block-write 
command  (U2).  The  second  example  allows  you  to  edit  the  cosmetic  disk  ID  that  ap- 
pears in  the  BAM.  NOTE:  This  program  does  not  change  the  formatting  ID  that  is 
embedded  in  the  header  block  of  every  sector. 


"U2:"  channel#;  drive#;  track; 
"U2:   channel #,   drive#,  track, 
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100  REM  EDIT  DISK  NAME 
110  F0RI=1T016 
120  PAD«=PAD«+CHR«(160) 
130  NEXTI 

140  PRINT"  <:CLR3  EDIT  DISK  NAME  -  1541" 
150  PRINT" <DOWN>REMOVE   <RVS>WRITE  PROTEC 
T  TAB<ROFF>" 

160  PRINT" <DOWN> INSERT  DISKETTE   IN  DRIVE 

II 

170  PRINT"  <:D0WN3  PRESS   <RVS3  RETURN <ROFF> 
TO  CONTINUE" 

180  GETC*: IFC*=""THEN180 

190  IFC*<>CHR*<13)G0T0180 

200  PR I NT "OK" 

210  0PEN15,8, 15 

220  PRINT#15, "10" 

230  INPUT#15,EN*,EM*,ET*,ES* 

240  IFEN*="00"B0T0280 

250  PRINT" <DOWN> "EN*",    "EM*" , "ET«" , "ES* 
260  CLOSE 15 
270  END 

280  0PEN2,8,2, "#" 

290  PRINT#15, "Ui";2;o; 18;0 

300  INPUT#15,EN*,EM*,ET*,ES* 

310  PRINT#15, "B-P";2;2 

320  GET#2,B* 

330  I FB*= " " THENB*=CHR*  <  0 ) 

340  DOS=ASC(B*) 

350  IFD0S=65G0T0390 

360  PRINT" <D0WN>73,CBM  DOS  V2.6  1541,00, 
00" 

370  PRINT" <DOWN>  <RVS>FAILED<ROFF> " 
380  G0T0720 

390  PRINT#15, "B-P";2; 144 
400  F0RI=1T016 
410  GET#2,B* 

420  IFB*=""THENB*=CHR*<0) 

430  A=ASC(B*) 

440  IFA>127THENA=A-128 

450  IFA<320RA>95THENA=63 

460  IFA=34THENA=63 

470  ODN*=ODN*+CHR*(A) 

480  NEXTI 

490  PRINT" <DOWN>OLD  DISK  NAME:    " ; ODN* 

500   INPUT" <DOWN>NEW  DISK  NAME";NDN* 

510   I FLEN  <  NDN* ) <  >OANDLEN  <  NDN* ) < 1 7G0T0530 

520  G0T0720 

530  INPUT"  <:D0WN> ARE  YOU  SURE  (Y/N)  YtLE 
FT  3>";Q* 
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540  IFQ*<>"Y"G0T0720 

550  NDN«=LEFT«(NDN«+PAD*, 16) 

560  PRINT#15, "B-P";2; 144 

570  PRINT#2,NDN*; 

580  FRINT#15, "U2";2;o; 18;0 

590   INPUT#15,,  EN*,EM«,ET*,ES* 

hOO  IFEN*="0b"G0T0640 

hlO  PRINT" €DOWN> "EN«" ,    "EM«" , "ET*" , "ES« 

620  PRINT" <:down> <:RVS>FAILED€R0FF> " 
630  G0T0720 
640  CL0SE2 

650  INPUT#15,EN*,EM*,ET*,ES* 
660  PRINT#15, "10" 
670  INPUT#15,EN*,EM«,ET*,ES* 
680  CLOSE 15 

690  PRINT" CDOWNIDONE ! " 

700  END 

710  REM  CLOSE 

720  CL0SE2 

730  INPUT#15,EN*,EM*,ET*,ES* 
740  CL0SE15 
750  END 


Line  Range 

Description 

280 

Opens  logical  file  number  2  (GET#2,  PRINT#2,)  to  device 

8  with  a  secondary  address  of  2  (channel  number  2)  let- 

ting the  1541  assign  a  buffer  area. 

310-380 

Query  DOS  version. 

550 

Pad  new  diskette  name. 

560 

Reset  channel  2  pointer  to  position  144. 

570 

Overwrite  existing  disk  name  in  channel  2  buffer  area. 

580 

Write  channel  2  buffer  to  drive  0,  track  18,  sector  0. 

660 

Update  the  BAM  ($0700-$07FF)  to  reflect  a  disk  name 

change. 


The  alternate  formats  of  the  block-write  command  (U2)  in  line  580  are: 
PRINT#15, "U2: "2;0; 18; O 
PRINT#15, "U2:2,0,  18,  O" 


100  REM  EDIT  DISK  ID 

110  PRINT" CCLR>EDIT  DISK   ID  -  1541" 

120  PRINT"  <:down>remove  CRVSJWRITE  PROTEC 

T  tab<:roff>" 
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130  PRINT" <DOWN> INSERT  DISKETTE  IN  DRIVE 

II 

140  PRINT" <DOWN>PRESS  <RVS>RETURN<ROFF> 
TO  CONTINUE" 

150  GETC* : I FC*= " " THEN 1 50 

1 60  I FC*<  >CHR« (13) GOTO 1 50 

170  PRINT"OK" 

180  0PEN15,8, 15 

190  PRINT#i5, "10" 

200  I NPUT# 1 5 , EN* , EM* , ET* , ES* 

210  IFEN*="00"G0T0250 

220  PRINT" <DOWN> "EN*",    "EM*" , "ET*" , "ES* 
230  CLOSE 15 
240  END 

250  0PEN2,8,2, "#" 

260  PRINT#15, "Ul";2;0; 18;0 

270  INPUT#15,EN*,EM*,ET*,ES* 

280  PRINT#15, "B-P";2;2 

290  GET#2,B* 

300  IFB*=""THENB*=CHR*(0) 

310  DOS=ASC(B*) 

320  IFD0S=65G0T0360 

330  PRINT" €DOWN> 73, CBM  DOS  V2.6  1541,00, 
00" 

340  PRINT" CDOWNJ  CRVS>FAILED<ROFF> " 
350  G0T0690 

360  PRINT#15, "B-P";2; 162 
370  F0RI=1T02 
380  GET#2,B* 

390  I FB*= " " THENB*=CHR* ( O ) 

400  A=ASC(B*) 

410  IFA>127THENA=A-128 

420  IFA<320RA>95THENA=63 

430  IFA=34THENA=63 

440  ODI*=ODI*+CHR* (A) 

450  NEXT I 

460  PRINT" CDOWNJ OLD  DISK   ID:  ";ODI* 
470  INPUT" <DOWN>NEW  DISK  ID";NDI* 
480  I FLEN ( ND I *  X  >0ANDLEN ( ND I *  X  3G0T0500 
490  G0T0690 

500  INPUT" CDOWNl ARE  YOU  SURE  (Y/N)  Y^LE 
FT  3>";Q* 

510  I FQ*<  > " Y " G0T0690 

520  ND I *=LEFT* ( ND I *+CHR* ( O ) , 2 ) 

530  PRINT#15, "B-P";2; 162 

540  PRINT#2,NDI*; 

550  PRINT#15, "U2";2;0; 18;0 

560  INPUT#15,EN*,EM*,ET*,ES* 

570  IFEN*="00"G0T0610 

580  PRINT"  <:D0WN>  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 


80 


590  PRINT"  <:D0WN>  <:RVS>FAILED<:RaFF>  " 
600  6010690 
610  CL0SE2 

620  INPUT#15,EN*,EM*,ET*,ES* 

630  PRINT#15, "10" 

640  INPUT#15,EN*,EM*,ET*,ES* 

650  CLOSE 15 

660  PRINT"  <:D0WN> DONE  !  " 

670  END 

680  REM  CLOSE 

690  CL0SE2 

700  INPUT#15,EN*,EM*,ET*,ES* 
710  CL0SE15 
720  END 


The  alternate  formats  of  the  block-write  command  (U2)  in  line  550  are: 


PRINT#15, "U2: "2;o; ia;o 

PRINT#15, "U2:2,0, 18,0" 


That's  enough  about  the  block-write  command  (U2)  for  now. 


5.6  Memory-Read  Command  (A/l-R) 


The  memory-read  command  allows  you  to  read  the  contents  of  any  area  of  the  154rs 
RAM  or  ROM.  You  must  specify  in  the  memory-read  command  the  memory  address 
of  RAM  or  ROM  that  you  want  to  read.  The  format  of  a  memory-read  command  is: 

SYNTAX: 

PRINT*  +ile#,    "M-R"  CHR* ( 1 o-byte)  CHR*(hi- 
byte)   CHR*(#  of  bytes) 

ALTERNATE: 

PRINT#  file#,    "M-R:"  CHR* < 1 o-byte)  CHR*(hi- 
byte)   CHR*<#  of  bytes) 

EXAMPLE: 

PRINT#15, "M-R"CHR«(0)CHR*<3) 
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where 


file# 


=  the  logical  file  number  of  the  command  channel 


lo-byte 


=  lo-byte  of  the  memory  address 


hi-byte 


=  hi-byte  of  the  memory  address 


#  of  bytes     =  1  to  255 

The  third  parameter  of  the  memory-read  command,  CHR$(#  of  bytes),  is  undocumented 
by  Commodore.  The  use  of  the  third  parameter  is  always  optional.  The  default  is  CHR$(1), 
i.e.,  1  byte. 

Typically  a  block-read  command  (Ul)  is  issued  prior  to  a  memory-read  command.  A  block- 
read  command  (Ul)  transfers  the  data  that  is  recorded  on  a  given  track  and  sector  to 
one  of  four  pages  (256  bytes)  of  RAM.  A  page  of  RAM  is  called  a  buffer.  When  you  open 
a  direct-access  data  channel  to  the  1541  with  OPEN  2,8,2,"#",  the  DOS  arbitrarily  selects 
one  buffer  as  a  workspace  for  that  channel.  As  long  as  you  use  the  GET#  file#  command 
or  the  PRINT#  file#  command  from  the  associated  OPEN  statement  you  do  not  need 
to  know  which  buffer  the  DOS  is  using.  The  buffer  in  use  is  only  important  when  you 
issue  a  memory-read  command.  You  may  tell  the  DOS  which  buffer  area  to  use  in  the 
direct-access  OPEN  statement  itself.  The  format  for  selecting  a  buffer  is: 

SYNTAX : 

OPEN  file#,   device#,   channel #,    "#  buffer#" 

EXAMPLE: 

OPEN  2,8,2, "#0" 

where 

buffer#         =  0  to  3 

The  table  below  shows  how  the  buffer  areas  are  organized  in  the  1541. 


Buffer  Number  Address  Example 


$0000  -  $OOFF     Not  available  (ZERO  PAGE) 

$0100  -  $01FF     Not  available  (STACK) 

$0200  -  $02FF     Not  available  (COMMAND  BUFFER) 


0 
1 
2 
3 


$0300  -  $03FF  OPEN  2,8,2,"#0" 

$0400  -  $04FF  OPEN  2,8,2,"#1" 

$0500  -  $05FF  OPEN  2,8,2,"#2" 

$0600  -  $06FF  OPEN  2,8,2,"#3" 


$0700  -  $07FF     Not  available  (BAM) 
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NOTE:  Two  or  more  direct-access  data  channels  cannot  share  the  same  buffer  area. 
If  you  attempt  to  open  a  direct-access  data  channel  to  a  buffer  already  in  use  a  70,  a 
NO  CHANNEL  error  will  result. 

The  GET#  command  is  used  following  a  memory-read  command  to  retrieve  the  contents 
of  the  buffer  you  selected.  There  is  one  major  difference,  however.  Bytes  are  now  fetched 
over  the  command  channel  not  the  logical  file  number  of  the  "OPEN  file#,  device#, 
channel#,  buffer#"  statement.  Bytes  must  still  be  tested  for  equality  with  the  null  string 
""  and  converted  to  CHR$(0)  if  need  be. 

The  next  program  selects  buffer  #0  ($0300  -  $03FF)  as  a  workspace  and  does  a  block- 
read  of  track  18,  sector  0.  Bytes  are  returned  to  the  C64  side  from  buffer  #0  with  memory- 
read  and  GET#  commands,  and  printed  to  the  screen. 

lOO  REM  TWD  PARAMETER  MEMORY-READ 

110  OPEN   15,8, 15 

120  PRINT#15, "10" 

130  INPUT#15,EN*,EM*,ET*,ES* 

140   IF  EN*<>"OO"G0T0  300 

150  OPEN  2,8,2, "#0" 

160  PRiNT#i5, "ui";2;o; i8;o 

170  INPUT#15,EN*,EM*,ET*,ES* 
180   IF  EN*<>"00"GOTD  280 
190  FOR   1=0  TO  255 

200  PR I NT# 15," M-R " CHR* ( I ) CHR* ( 3  > 
210  GET#15,B* 

220   IF  B*=""THEN  B*=CHR*(0> 
230  A=ASC(B*> 
240  PRINT   I, A, 

250   IF  A>31   AND  A<96  THEN  PRINT  B», 
260  PRINT 
270  NEXT  I 
280  CLOSE  2 

290  INPUT#15,EN*,EM*,ET*,ES* 
300  CLOSE  15 
310  END 


Line  Range  Description 


150  Opens  logical  file  number  2  to  device  8  with  a  secondary 

address  of  2  assigning  buffer  number  0  ($0300  -  $03FF) 
as  a  workspace. 

160  Reads  the  block  from  drive  0,  track  18,  sector  0  into 

channel  2  buffer  area  ($0300  -  $03FF). 

190  Begin  loop  to  read  256  bytes  ($0300  -  $03FF). 

200  Indexed  memory-read  command  ($0300  -  $03FF). 

210  Transfer  a  byte  from  channel  2  buffer  area  to  C64 

memory  via  the  command  channel  (GET#15,). 


83 


The  alternate  format  of  the  standard  memory-read  command  in  hne  200  is: 
PRINT#15, "M-R: "CHR*(I )CHR*(3) 

Please  note  that  we  deliberately  omitted  the  third  parameter  of  the  memory-read  com- 
mand in  the  preceding  example.  The  following  example  incorporates  all  three  parameters 
of  the  memory-read  command  to  read  a  disk  name. 

100  REM  THREE  PARAMETER  MEMORY-READ 

110  OPEN   15,8, 15 

120  PRINT#15, "lO" 

130   I NPUT# 1 5 , EN* , EM* , ET* , ES* 

140   IF  EN*<>"00"GOTO  320 

150  OPEN  2,8, 2, "#1 " 

160  PRINT#15,  "Ul";2ii0;  i8;o 

170  INPUT#15,EN*,EM*,ET*,ES* 

180   IF  EN*<>"00"GOTO  300 

190  PRINT#15, "M-R"CHR*(144)CHR*(4)CHR*(1 
6) 

200  FOR   1=1   TO  16 
210  GET#15,B* 

220   IF  B*=""THEN  B*=CHR*(0) 

230  A=ASC(B*) 

240   IF  A>127  THEN  A=A-128 

250   IF  A<32  OR  A>95  THEN  A=63 

260   IF  A=34  THEN  A=63 

270  DN*=DN*+CHR*(A) 

280  NEXT  I 

290  PRINT" ^DOWN> DISK  NAME:    " ; DN* 
300  CLOSE  2 

310  INPUT«15,EN*,EM*,ET*,ES* 

320  CLOSE  15 
330  END 


Line  Range  Description 


150  Opens  logical  file  number  2  to  device  8  with  a  secondary 

address  of  2  assigning  buffer  number  1  ($0400  -  $04FF) 
as  a  workspace. 

160  Reads  the  block  from  drive  0,  track  18,  sector  0  into 

channel  2  buffer  area  ($0400  -  $04FF). 

190  Memory-read  command  ($0490  -  $049F). 

200  Begin  loop  to  read  16  characters. 

210  Transfer  a  byte  from  channel  2  buffer  area  to  C64 

memory  over  the  command  channel  (GET#15,). 

Inclusion  of  the  third  memory-read  parameter  means  that  we  no  longer  have  to  issue 
a  memory-read  command  to  fetch  each  byte  like  we  did  in  the  first  sample  program. 
Instead,  we  establish  a  loop  after  the  memory-read  command  to  pull  a  byte  in.  (See  lines 
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200-280  above.)  The  alternate  format  of  the  three  parameter  memory-read  command 
in  line  190  is: 

PRINT#15, "M-R: "CHR*(144)CHR*(4)CHR*(16) 


5.7  Memory- Write  Command  (A/l-W) 

The  memory- write  command  is  the  opposite  of  the  memory-read  command.  Data  is  writ- 
ten to  a  DOS  buffer  via  the  command  channel.  The  format  of  a  memory-write  command  is: 

SYNTAX : 

PRINT#  file#,    "M-W"  CHR* ( 1 o-byte)  CHR*(hi- 
byte)   CHR*(#  of  bytes)  data 

ALTERNATE: 

PRINT#  file#,    "M-W:"  CHR* ( 1 o-byte)   CHR* (hi - 
byte)   CHR*(#  o-F  bytes)  data 

EXAMPLE: 

PR I NT# 1 5 , " M-W " CHR* ( 2 ) CHR* ( 5 ) CHR* ( 2 ) CHR* ( 1 ) 
CHR* (8) 

PR I NT# 1 5 , " M-W " CHR* ( 2 ) CHR* ( 5 ) CHR* ( 2 ) CHR* ( 1 ) D* 

where 

file#  =  the  logical  file  number  of  the  command  channel 

lo-byte  =  lo-byte  of  the  memory  address 
hi-byte  =  hi-byte  of  the  memory  address 
#  of  bytes     =  1  to  34 

data  =  a  sti'iiig  variable  or  a  CHR$  iteration 

A  total  of  34  data  bytes  may  be  written  with  each  issuance  of  a  memory- write  command. 
Typically  only  8,  16,  or  32  data  bytes  are  sent  out  at  one  time  in  a  loop  as  our  buffer 
size  (256  bytes)  is  evenly  divisible  by  these  factors.  At  the  most  sophisticated  level  of 
disk  programming,  machine  language  programs  can  be  poked  into  RAM  inside  the  1541 
with  a  memory-write  command  and  then  executed.  (See  Chapter  7  for  actual  programs 
of  this  nature.)  In  practice,  however,  one  encounters  limited  use  of  the  memory-write 
command. 

The  following  example  demonstrates  the  use  of  the  memory-write  command.  It  allows 
you  to  change  the  load  address  of  a  program  file.  A  routine  of  this  nature  would  be  used 
to  aid  in  the  disassembly  of  a  program  that  normally  loads  into  high  memory  (e.g., 
$8000-$BFFF)  and  is  already  occupied  by  a  machine  language  monitor  program 
(SUPERMON64)  or  ROM. 
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100  REM  EDIT  LOAD  ADDRESS 
1 1 0  H*= " 0 1 23456789ABCDEF " 

120  PRINT"  <:CLR>EDIT  LOAD  ADDRESS  -  1541" 
130  PR  I  NT     DOWN  >  REMOVE   <:RVS>  WRITE  PROTEC 

T  tab<:roff>" 

140  PRINT"  <:D0WN>  INSERT  DISKETTE  IN  DRIVE 

II 

150  PRINT"  <:down>press  <:rvs>return<:roff3 

TO  CONTINUE" 

160  GETC*: IFC*=""THEN160 

170  IFCt<>CHR*<13)G0T0160 

180  PRINT"OK" 

190  0PEN15,8, 15 

200  PRINT#15, "10" 

210  INPUT#15,EN*,EM*,ET*!,ES* 

220  IFEN*="00"G0T0260 

230  PRINT"  <:D0WN>"  EN*",    "EM*"  ,  "ET*"  ,  "ES* 
240  CLOSE 15 
250  END 

260  PRINT#15, "M-R"CHR*  < 1 ) CHR*  < 1 ) 

270  GET#15,D0S* 

280  IFDOS*=""THENDOS*=CHR* (0) 

290  DOS=ASC(DOS*) 

300  IFD0S=65G0T0330 

310  PRINT"  <:D0WN> 73,  CBM  DOS  V2.6  1541,00, 

00" 

320  G0T0910 

330  INPUT"  <:down>filename";f* 

340  I FLEN ( F* )<  >0 ANDLEN  <  F* )< 1 7G0T0360 

350  G0T0920 

360  0PEN2,8,2, "O: "+F*+",P,R" 
370   I NPUT# 1 5 , EN* , EM* , ET* , ES* 
380  IFEN*="00"GOT0400 
390  G0T0940 

400  PRINT#15, "M-R"CHR* (24) CHR* (O) CHR* (2) 

410  GET#15,T* 

420  T= ASC ( T*+CHR* ( O ) ) 

430  GET#15,S* 

440  S=ASC(S*+CHR*<0) ) 

450  CL0SE2 

460  INPUT#15,EN*,EM*,ET*,ES* 

470  IFEN*="0O"GOTO490 

480  G0T0900 

490  0PEN2,8,2, "#2" 

500  PRINT#15,  "Ul";2-,o;  t;s 

510  INPUT#15,EN*,EM*,ET*,ES* 

520  IFEN*="00"GOTO54O 

530  G0T0900 
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540  PRINT#15, "M-R"CHR*(2)CHR*(5)CHR*(2) 

550  GET#15,L0W* 

560  LOW=ASC ( LOW*+CHR* ( O ) ) 

570  GET#15,HIGH* 

580  H I GH=ASC ( H I GH*+CHR* ( O ) ) 

590  D=HIGH 

600  GOSUBlOlO 

610  OLA*=HD* 

620  D=LOW 

630  GOSUBlOlO 

640  □LA»=OLA*+HD* 

650  PRINT"  <:D0WN> OLD  LOAD  ADDRESS:    "  ;  OLA* 

660   INPUT" CDOWNJNEW  LOAD  ADDRESS" ; NLA* 
670   I FLEN ( NLA* ) =4G0T0690 
680  G0T0960 

690  INPUT"  <:D0WN>  ARE  YOU  SURE  (Y/N)  Y<LE 
FT  3>";Q* 

700  IFQ*<>"Y"G0T0960 
710  HD*=RIGHT*(NLA*,2) 
720  G0SUB1060 
730  IFTME=1G0T0960 
740  L0W=D 

750  HD*=LEFT*(NLA*,2) 
760  G0SUB1060 
770  IFTME=1G0T0960 
780  HIGH=D 

790  PRINT#15, "M-W"CHR*(2)CHR*(5)CHR*(2)C 
HR*  <L0W) CHR* (HIGH) 

800  print#15, "U2";2;o; t;s 

810  INPUT#15,EN*,EM*,ET*,ES* 
820  IFEN*="00"G0T0840 
830  G0T0940 
840  CL0SE2 

850  INPUT#15,EN*,EM*,ET*,ES* 
860  CLOSE 15 

870  PRINT" CDOWNJDONE ! " 

880  END 

890  REM  CLOSE 

900  PRINT"  <:D0WN>  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 
910  PRINT"  <:down>  <RVS>FAILED<:R0FF} " 
920  CLOSE 15 
930  END 

940  PRINT"  <:D0WN>  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 
950  PRINT"  <:down>  <:RVS>FAILED£R0FF> " 
960  CL0SE2 

970  INPUT#15,EN*,EM*,ET*,ES* 
980  CLOSE 15 
990  END 

1000  REM  DECIMAL  TO  HEXADECIMAL 
1010  H=INT(D/16) 
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1020  L=D-(H*16) 

1030  HD*=MID*(H*,H+1, 1 ) +MID* (H«, L+1 , 1) 
1040  RETURN 

1050  REM  HEXADECIMAL  TO  DECIMAL 

1060  TME=0 

1070  H=0 

1080  F0RI=1T016 

1090  IFLEFT«(HD«, 1)=MID*(H*, I, 1)THENH=I: 
1  =  16 

1100  NEXTI 

1110  IFH=0THENTME=1:G0TD1200 

1120  H=H-1 

1130  L=0 

1140  F0RI=1T016 

1 150  IFRIGHT* (HD*, 1 ) =MID* (H*, 1,1) THENL=I 
:  1  =  16 

1160  NEXTI 

1170  IFL=OTHENTME=l: GOTO 1200 
1180  L=L-1 
1190  D=H«16+L 
1200  RETURN 


Line  Range  Description 


260-320  Query  DOS  version  ($0101). 

330-350  Input  file  r^me. 

360-390  Opens  logical  file  number  2  to  device  8  with  a  secondary 

address  of  2  for  a  program  read. 
400-440  Fetch  file  name  track  ($0018)  and  sector  ($0019). 

450  Close  logical  file  number  2. 

490  Reopens  logical  file  number  2  to  device  8  with  a  second- 

ary address  of  2  assigning  buffer  number  2  ($0500  - 
$05FF)  as  a  workspace. 

500  Reads  the  starting  block  of  the  filename  from  drive  0  as 

specified  by  $0018  and  $0019  into  channel  2  buffer  area 
($0500  -  $05FF). 

540  Three  parameter  memory-read  command  to  fetch  two 

byte  load  address  ($0502  -  $0503). 
550  Fetch  lo-byte  of  load  address  ($0502). 

570  Fetch  hi-byte  of  load  address  ($0503). 

590-640  Decimal  to  hexadecimal  conversion  of  load  address. 

660-700  Input  new  load  address. 

710-780  Hexadecimal  to  decimal  conversion  of  new  load  address. 

790  Memory-write  of  new  two  byte  load  address  ($0502  - 

$0503). 

800  Write  channel  2  buffer  ($0500  -  $05FF)  to  drive  0,  track 

($0018),  sector  ($0019). 
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The  alternate  format  of  the  memory-write  command  in  line  790  is: 

PRINT#15, "M-W: "CHR*  <2) CHR* (5) CHR« (2) CHR* (L0> 
CHR*<HI) 


5.8  Block-Allocate  Command  (B-A) 

The  block-allocate  command  allocates  a  sector  in  the  BAM  as  in  use.  A  sector  is  allocated 
by  setting  its  associated  bit  low  (0)  on  track  18,  sector  0.  (Review  the  coverage  on  bit 
mapping  in  Chapter  4  if  necessary.)  The  DOS  will  not  write  to  an  allocated  sector  dur- 
ing a  normal  write  operation  such  as  a  SAVE.  However,  an  allocated  sector  can  be  over- 
written with  a  block-write  command  (U2).  Hence  the  origin  of  the  term  "direct-access." 
The  format  of  a  block-allocate  command  is: 

SYNTAX: 

PRINT#  file#,  "B-A";   drive#;   track;  sector 
ALTERNATE: 

PRINT#  file#,  "B-A:";   drive#;   track;  sector 

EXAMPLE: 

PRINT#15, "B-A";0;  l;7 

where 

file#  =  the  logical  file  number  of  the  command  channel 

drive*  =  0 

track  =  1  to  35 

sector  =  0  to  the  range  for  a  given  track 

The  following  program  allocates  every  sector  on  a  diskette.  Run  this  program  on  a  test 
diskette. 


100  REM  BLOCK-ALLOCATE 

no  OPEN  15,8,  15 

120  PRINT#15, "10" 

130  INPUT#15,EN*,EM*,ET*,ES» 

140  IF  EN*<>"00"GOTO  310 

150  OPEN  2,8,2, "#" 

160  T=l 

170  S=0 

180  PRINT#15, "B-A";0;T;S 
190  INPUT#15,EN*,EM*,ET»,ES* 
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200  IF  EN*="00"60T0  180 

210  IF  EN*<>"65"G0T0  330 

220  BA=BA+1 

230  PRINT  T,S,BA 

240  T=VAL<ET*> 

250  IF  T=0  GOTO  290 

260   IF  T=18  THEN  T=19: S=0: GOTO  180 
270  S=VAL<ES*) 
280  GOTO  180 
290  CLOSE  2 

300  INPUT#15,EN*,EM*,ET*,ES* 
310  CLOSE  15 
320  END 

330  PRINT" CDOWN>"EN«",  "EM«" , "ET*" , "ES* 
340  CLOSE  2 

350  INPUT#15,EN«,EM«,ET*,ES« 
360  CLOSE  15 
370  END 


Line  Range  Description 


150  Open  a  direct-access  channel. 

160  Initialize  track  to  1. 

170  Initialize  sector  to  0. 

180  Block-allocate  command. 

190  Query  error  channel. 

200  The  track  and  sector  were  not  allocated. 

210  Something  is  amiss  so  bail  out. 

220  Counter  representing  the  number  of  sectors  allocated  in 

line  170. 

230  Print  track,  sector,  counter. 

240  The  sector  just  allocated  already  was  but  the  DOS 

returns  the  next  available  track  in  the  error  message  (65, 

NO  BLOCK,  track,  sector). 
250  If  the  next  available  track  is  zero  then  all  683  blocks  on 

the  diskette  have  been  allocated. 
260  Don't  allocate  the  directory. 

270  The  DOS  returns  the  next  available  sector  in  the  error 

message  (65,  NO  BLOCK,  track,  sector). 
280  Allocate  the  next  available  track  and  sector. 

290  Close  the  direct-access  channel. 

330-370  Error  handler. 


The  alternate  format  of  the  block-allocate  command  in  line  180  is: 
PRINT#15, "B-a: " ; O; T; s 

The  opening  of  a  direct-access  channel  Qine  150)  is  standard  form.  Why?  Because  the 
BAM  is  rewritten  to  a  diskette  when  a  direct-access  data  channel  is  closed  fline  290). 
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In  reality,  though,  the  BAM  is  updated  on  the  fly  but  very  erratically.  Thus,  opening 
and  closing  a  direct-access  data  channel  is  a  good  habit  to  get  into.  An  ounce  of 
prevention  .  .  . 

By  the  way,  what  happens  when  you  try  to  save  to  a  full  disk?  Error  72,  DISK  FULL 
right?  Would  you  believe  error  67,  ILLEGAL  TRACK  OR  SECTOR,36,01?  Track  36? 
That's  right.  An  error  72  only  occurs  during  normal  viTite  mode  (i.e.,  not  a  direct-access 
write)  where  at  least  1  free  block  exists  at  the  outset  or  the  directory  is  at  its  physical 
limit,  i.e.,  144  active  file  entries. 

A  block  remains  allocated  until  a  diskette  is  validated.  Unless  a  given  track  and  sector 
somehow  chains  to  a  directory  entry  its  bit  will  be  freed  (1)  during  validation.  (See  the 
validate  command  in  Chapter  2.)  Caution  must  be  taken  to  ensure  that  the  block-allocate 
command  does  not  allocate  an  unused  sector  in  the  directory.  See  line  260  above.  Once 
a  sector  has  been  allocated  in  the  directory,  it  is  never  deallocated  by  the  DOS,  even 
during  a  validate.  An  allocated  directory  sector  can  only  be  freed  under  software  control. 

The  following  program  makes  use  of  the  block-allocate  command  to  certify  a  formatted 
diskette.  A  worst-case  binary  pattern  is  written  to  any  sector  not  currently  in  use.  Bad 
sectors,  if  any,  are  allocated  in  the  BAM.  However,  these  bad  sectors  will  be  deallocated 
if  the  diskette  is  ever  validated.  (Sorry,  but  that's  the  nature  of  the  beast.) 

100  REM  CERTIFY  A  DISKETTE  -  1541 

no  F0RI  =  1T032 

120  NULL*=NULL«+CHR« (O) 

1 30  WR I TE*=WR I TE*+CHR* (15) 

140  NEXTI 

150  DIMT-/.  (681)  ,S7.  (681) 

160  PRINT"  <:CLR>  CERTIFY  A  DISK 

ETTE" 

170  PRINT"  <:down>  <:rvs>war 
ning{:roff>" 

180  PRINT" tDOWN>tRVS>RANDOM  ACCESStROFFl 

AND   <RVS>DELCROFF>   FILES  WILL  BE  LOST" 
190  PRINT"REMOVE   CRVSJWRITE  PROTECT  TAB< 
ROFF> " 

200  PRINT" <DOWN> INSERT  DISKETTE   IN  DRIVE 

II 

210  PRINT" <DOWND PRESS  <RVS>RETURNtROFF> 
TO  CONTINUE" 

220  GETC* : I FC*= " " THEN220 

230  I FC*<  >CHR* (13) GOT0220 

240  PR I NT "OK" 

250  OPEN 15, 8, 15 

260  PRINT#15, "10" 

270  INPUT#15,EN*,EM«,ET*,ES* 

280  IFEN*="00"G0T0330 

290  PRINT" <DOWN> "EN*",    "EM*" , "ET*" , "ES* 

300  CLOSE 15 

31 O  END 
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320  REM  BAM 

330  PR I NT# 15," M-R " CHR* ( O ) CHR*  <  7 ) CHR$  < 1 92 
) 

340  FOR I =070191 

350  GET#15,B$ 

360   I FB*= " " THENB*=CHR*  <  O ) 

370  BAM*=BAM*+B* 

380  NEXTI 

390  DOS= ABC ( M I D* ( BAM* ,3,1)) 
400  IFD0S=65G0T0460 
410  CL0SE15 

420  PRINT"  <: down:  73,  CBM  DOS  V2- 6  1541,00, 
00" 

430  PRINT" CDOWNJ <:rvs>failed<:roff> " 

440  END 

450  REM  BUFFER 

460  1=0 

470  F0RJ=1T0S 

480  PR I NT# 15," M-W " CHR* ( I ) CHR* ( 4 ) CHR*  <  32 ) 

WRITE* 

490  1=1+32 

500  NEXT J 

510  T=l 

520  S=0 

530  C=0 

540  A=0 

550  PRINT#15, "B-A";o;T;s 

560  INPUT#15,EN*,EM*,ET*,ES* 

570  IFEN*="00"G0T0620 

580  T=VAL(ET*) 

590  IFT=0ANDC=0G0T0760 

600  IFT=0G0T0800 

610  S=VAL(ES*) 

620  T*=RIGHT*<"0"+RIGHT*(STR*(T) ,LEN(STR 
*(T) >-l> ,2) 

630  S*=R I GHT* ( " O " +R I GHT*  <  STR*  <  S ) , LEN ( STR 
*<S) )-l> ,2) 
640  C=C+1 

650  IFC=1THENPRINT"<:UP> 

660  PRINT#15, "B-A";o;t;s 

670  PRINT" t HOME X DOWN  6><RVS>CERTIFYING< 
ROFF>   TRACK   " ; T*; "   -  SECTOR   " ; S* 
6S0  PRINT" CDOWN>NUMBER  OF  SECTORS  CERTIF 
lED  :";c 

690  PRINT"  <:D0WN> NUMBER  OF  BAD  SECTORS  AL 

LOCATED: A 

700  60SUB1030 

710  IFE=1G0T0550 

720  A=A+1 

730  T7-(A)=T 
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740  S7.(A>=S 
750  G0T0550 
760  CLOSE 15 

770  PRINT"  <:D0WN>  ALL  SECTORS  HAVE  BEEN  AL 
LOCATED" 

780  PRINT"  <:down> <:rvs>failed<:roff>  " 

790  END 
800  1=0 
810  F0RJ=1T06 

820  PR I NT# 15," M-W " CHR$ ( I >  CHR* ( 4  >  CHR$ ( 32  > 
MID*(BAM*, 1+1,32) 
830  1=1+32 
840  NEXT J 

850  PR I NT# 1 5 , " M-W " CHR* ( 1 92 ) CHR* ( 4  >  CHR$ ( 3 
2) NULL* 

860  PR I NT# 15," M-W " CHR*  < 224 ) CHR* ( 4 ) CHR* ( 3 

2) NULL* 

870  T=18 

880  S=0 

890  G0SUB1030 

900  PRINT»15, "10" 

910  INPUT#15,EN*,EM*,ET*,ES* 

920  IFAO0G0T0960 

930  CLOSE 15 

940  PRINT" ^DOWN>NO  BAD  SECTORS!" 

950  END 

960  FORI=lTOA 

970  PRINT#15,  "B-A";0;T7.(I)  ;  S7.  ( I  ) 
980  NEXTI 
990  CLOSE 15 

lOOO  PRINT" tDOWNJDONE ! " 

1010  END 

102O  REM  SEEK 

1030  J0B=176 

1040  G0SUB112O 

1050  IFE=lGOT010aO 

1060  RETURN 

1070  REM  WRITE 

1080  JOB=144 

1090  G0SUB1120 

llOO  RETURN 

1110  REM  JOB  QUEUE 

1120  TRY=0 

1 130  PRINT#15, "M-W"CHR* (8) CHR* (O) CHR* (2) 
CHR*(T)CHR*(S) 

1140  PRINT#15, "M-W"CHR*(1)CHR*(0)CHR*(1) 

CHR* < JOB) 

1150  TRY=TRY+1 

1160  PRINT#15, "M-R"CHR*(1)CHR*(0) 
1170  GET#15,E* 
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1180  IFE*=""THENE*=CHR* (O) 
1190  E=ASC<E*> 
1200  IFTRY=500G0T01220 
1210  IFE>127G0T01150 
1220  RETURN 


Line  Range 

Description 

330-380 

Store  the  BAM  ($0700  -  $07A0). 

390-440 

Query  DOS  version. 

460-500 

Write  worst-case  binary  pattern  to  buffer  at  $0400. 

510-540 

Initialize  track,  sector,  and  counters. 

550 

Block-allocate  command. 

700 

Write  worst-case  binary  pattern  at  $0400  -  $04FF  to  a 

deallocated  track  and  sector. 

710 

Query  error  channel. 

720-740 

Error  array. 

800-890 

Restore  the  BAM. 

960-980 

Allocate  any  bad  sectors  in  error  array. 

The  alternate  format  of  the  two  block-allocate  commands  above  are: 


550  PRINT#15, "B-a: " ; o; t; s 

970  PRINT#15,  "B-A:  " ;  O;  TV.  ( I  > ;  S%  <  I  > 

Lines  330-380  and  800-890  compensate  for  a  bug  in  the  block-allocate  command.  (See 
Chapter  9  for  the  lowdown.)  Lines  330-380  store  an  image  of  the  BAM  in  C64  RAM. 
The  BAM  is  restored  in  lines  800-890.  Lines  1020-1230  will  be  explained  in  detail  in 
Chapter  6  on  intermediate  disk  programming  techniques. 


5.9  Block-Free  Command  (B-F) 

The  block-free  command  deallocates  (frees)  a  sector  in  the  BAM.  A  sector  is  deallocated 
by  setting  its  associated  bit  high  (1)  on  track  18,  sector  0.  The  format  of  a  block-free 
command  is: 

SYNTAX: 

PRINT#  +ile»,  "B-F";   drive#;   track;  sector 
ALTERNATE: 

PRINT#  +ile#,  "B-F:";   drive#;   track;  sector 

EXAMPLE: 

PRINT»15, "B-F" ; O; 1 ; 7 
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where 


file# 


the  logical  file  number  of  the  command  channel 


drive# 


0 


track 


1  to  35 


sector 


0  to  the  range  for  a  given  track 


The  following  program  deallocates  every  sector  on  a  diskette.  Run  this  program  on  a 
test  diskette. 

100  REM  BLOCK-FREE 

110  OPEN  15,8, 15 

120  PRINT#15, "lO" 

130  INPUT#15,EN*,EM*,ET*,ES* 

140   IF  EN*<>"00"GOTO  260 

150  OPEN  2,8,2, "#" 

160  FOR  T=i   TO  35 

170  IF  T=18  GOTO  240 

180  NS=20+2*(T>17)  +  <T>24)  +  <T:>30) 

190  FOR  S=0  TO  NS 

200  PRINT#15, "B-F";0;t;s 

210  BF=BF+1 

220  PRINT  T,S,BF 

230  NEXT  S 

240  NEXT  T 

250  CLOSE  2 

260  INPUT#15,EN*,EM*,ET*,ES* 
270  CLOSE  15 
280  END 


Line  Range    Description 


150  Open  a  direct-access  channel. 

160  Begin  loop  for  tracks  1  to  35. 

170  Don't  deallocate  the  directory. 

180  Calculate  sector  range. 

190  Begin  loop  for  sectors  0  to  sector  range. 

200  Block-free  command. 

210  Counter  to  indicate  number  of  blocks  freed. 

220  Print  track,  sector,  counter. 

250  Close  the  direct-access  channel. 

The  alternate  format  of  the  block-free  command  in  line  200  is: 


PRINT#15, 


B-F 


:  '■;0;T;S 
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The  opening  and  closing  of  a  direct-access  channel  is  essential  if  the  block-free  command 
is  to  work  correctly.  Experimentation  in  freeing  a  full  diskette  reveals  that  tracks  34 
and  35  still  remain  allocated  if  this  procedure  is  not  followed. 


5.10  Memory-Execute  Command  (M-E) 

The  memory-execute  command  is  used  to  execute  any  standard  ROM  routine  or,  at  the 
pinnacle  of  disk  programming,  a  custom  machine  language  program  that  has  been  poked 
into  1541  RAM.  The  format  of  a  memory-execute  command  is: 

SYNTAX : 

PRINT*  file#,    "M-E"  CHR* ( 1 o-byte)  CHR*<hi- 
byte) 

ALTERNATE: 

PRINT*  fileH^f    "M-E:"  CHR*  <  1  o-byte)   CHR*  (hi - 
byte) 

EXAMPLE: 

PRINT#15, "M-E"CHR* (O) CHR*  <6) 


where 

file#  =  the  logical  file  number  of  the  command  channel 

lo-byte  =  lo-byte  of  the  RAM  or  ROM  address 

hi-byte  =  hi-byte  of  the  RAM  or  ROM  address 


Machine  language  programs  are  poked  into  1541  RAM  with  the  memory-write  command. 
The  following  primitive  program  pokes  a  single  RTS  instruction  to  RAM  and  executes  it. 

100  REM  MEMORY-EXECUTE 
110  OPEN  15,8, 15 

120  PRINT*15, "M-W"CHR*<0)CHR*<6)CHR*<1)C 
HR*<96) 

130  PRINT*15, "M-E"CHR*<0)CHR*<6) 
140  CLOSE 15 
150  END 


Line  Range   Description 


120  Write  1  byte  ($60)  to  RAM  at  $0600. 

130  Execute  RTS  at  $0600. 
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The  alternate  format  of  the  memory-execute  command  in  line  130  is: 
PRINT#15, "M-E: "CHR*(0)CHR*(6) 

More  sophisticated  coding  is  available  in  Chapter  7.  In  addition,  refer  to  Chapter  9  for 
pertinent  information  about  the  execution  of  standard  ROM  routines. 


5.11  Block-Execute  Command  (B-E) 

The  block-execute  command  is  used  to  execute  a  machine  language  program  that  resides 
on  diskette.  A  sector  is  read  into  a  DOS  buffer  and  executed  in  a  manner  similar  to 
a  LOAD  and  RUN  on  the  C64.  The  format  of  a  block-execute  command  is: 

SYNTAX : 

PRINT#  +ile#,    "B-E";   channel #;  drive#; 
track;  sector 

ALTERNATE: 

PRINT#  +ile#,    "B-E:";   channel*;  drive#; 

track;  sector 
PRINT#  +ile#,    "B-E:   channel*,  drive#, 

track,  sector" 

EXAMPLE: 

PRINT#15, "B-E";2;0; l;0 


where 

file#  =  the  logical  file  number  of  the  command  channel 

channel#  =  the  secondary  address  of  the  associated  open  statement 

drive#  =  0 

track  =  1  to  35 

sector  =  0  to  the  range  for  a  given  track 


The  block-execute  command  could  be  used  in  a  diagnostic  routine  but  it  is  difficult  to 
visualize  any  other  advantage  that  this  command  has  over  a  normal  memory-execute 
command.  The  following  program  demonstrates  one  of  the  few  block-execute  commands 
you  will  probably  ever  see.  (lights,  camera,  action!)  Run  this  program  using  a  test  diskette. 

lOO  REM  BLOCK-EXECUTE 

110  OPEN   15,8, 15 

120  PRINT#15, "lO" 

130  INPUT#15,EN*,EM*,ET*,ES* 

140   IF  EN*<>"00"GOTO  250 
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150  OPEN  2,8,2, "#3" 
160  PRINT#15, "Ul";2;0; l;0 
170  INPUT#15,EN*,EM*,ET*,ES* 
180  IF  EN*<>"00"GOTO  220 

190  PRINT#15,  "M-WCHR*  (O)  CHR*  (6)  CHR*  (DC 
HR*(96) 

200  PRINT#15, "U2";2;o; l;0 

210  PRINT#15,  ■■M-W"CHR*(0)CHR*(6)CHR*(  DC 
HR*(0) 

220  PRINT#15,  ■'B-E";2;0;  l;o 
230  CLOSE  2 

240  INPUT#15,EN*,EM*,ETt,E9* 
250  CLOSE  15 
260  END 


Line  Range   Description 


150  Open  a  direct-access  channel  specifying  buffer  number  1 

($0600  -  $06FF). 

160  Block-read  of  track  1,  sector  0  ($0600  -  $06FF). 

190  Write  1  byte  ($60)  to  RAM  at  $0600. 

200  Block-write  to  track  1,  sector  0  ($0600  -  $06FF). 

210  Just  to  keep  us  honest. 

220  Block-execute  of  track  1,  sector  0  ($0600  -  $06FF). 


The  alternate  formats  of  the  block-execute  command  in  line  220  are: 

PRINT#15,  "B-E:  •■;2;0;  l;0 
PRINT#15, "B-E: 2,0, 1,0" 


5.12  Direct-Access  Entomology 

We  will  conclude  our  discussion  of  the  disk  utihty  command  set  by  pointing  out  just 
a  few  of  the  DOS  V2.6  direct-access  anomalies  we've  found  to  date. 


Block-Read  (B-R) 

Throughout  the  preceding  section  we  rehed  solely  upon  the  use  of  the  Ul  command  to 
read  a  sector  and  not  the  traditional  block-read  command  (B-R).  Why?  The  block-read 
command  (B-R)  is  unreliable,  period.  When  the  contents  of  a  buffer  are  accessed  with 
the  GET#  command  —  surprise,  surprise!  The  number  of  bytes  returned  is  a  function 
of  the  number  of  the  track  you  accessed.  For  example,  a  block-read  (B-R)  of  any  sector 
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on  track  15  will  return  only  15  bytes  before  sending  an  erroneous  End-Or-Identify  (EOI). 
The  C64  status  variable  (ST)  is  set  to  64  and  any  further  attempt  to  access  the  buffer 
merely  returns  the  same  sequence  of  bytes  over  and  over  and  over  again.  Moreover, 
the  byte  in  position  0  can  only  be  accessed  when  the  buffer-pointer  is  reset  to  position 
0  in  line  190.  See  for  yourself. 

100  REM  BLOCK-READ  (B-R) 

110  OPEN   15,8, 15 

120  PRINT#15, "10" 

130  INPUT#15,EN*,EM*,ET*,ES* 

140   IF  EN*<>"00"GOTO  300 

150  OPEN  2,8,2, "#" 

160  PRINT#i5, "B-R";2;0; 18;0 

170  INPUT#15,EN*,EM*,ET*,ES* 

180   IF  EN*<>"00"GOTO  280 

190  PRINT#15, "B-P";2;0 

200  FOR   1=0  TO  255 

210  GET«2,B* 

220   IF  B*=""THEN  B*=CHR*(0) 
230  A=ASC(B*> 
240  PRINT  ST, I , A, 

250   IF  A>31   AND  A<96  THEN  PRINT  B*, 
260  PRINT 
270  NEXT  I 
280  CLOSE  2 

290  INPUT#15,EN*,EM*,ET*,ES* 
300  CLOSE  15 
310  END 


What's  even  more  problematic  is  the  situation  that  occurs  when  you  do  a  block-read 
(B-R)  of  a  track  and  sector  that  was  rewritten  by  the  block-write  command  (B-W)  which 
is  discussed  below.  The  EOI  occurs  in  connection  with  the  ASCII  value  of  the  0th  byte 
of  the  sector  that  was  read.  Byte  0  contains  the  value  of  the  buffer-pointer  position  at 
the  time  the  block  was  written  with  a  block-write  command  (B-W).  The  forward  track 
reference  that  was  originally  there,  has  been  destroyed.  The  ASCII  value  of  the  0th 
byte  determines  how  many  characters  you  can  access  before  the  EOI  occurs.  Run  the 
block-read  (B-R)  program  listed  above  against  track  1,  sector  0  after  you've  done  the 
block-write  (B-W)  experiment  listed  below  on  a  test  disk.  Change  the  track  number  in 
line  160  from  an  18  to  a  1  like  this: 

160  PRINT#15, "B-R";2;0; l;0 

After  further  experimentation  on  your  own,  you  should  have  little  trouble  understand- 
ing why  the  Ul  command  replaces  the  block-read  command  (B-R).  Not  only  do  user 
manuals  continue  to  promote  the  use  of  the  block-read  command  (B-R),  but  they  also 
either  ignore  the  Ul  command  altogether  or  simply  mention  it  in  passing  without  even 
a  hint  on  how  to  use  it. 
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Block-Write  (B-W) 


Recall  that  we  also  neglected  to  mention  the  block-write  command  (B-W)  which  we  replaced 
with  the  U2  command.  When  you  write  a  block  with  the  block-write  command  (B-W) 
a  different  kind  of  dilemma  occurs.  Bytes  1  through  255  of  the  buffer  are  recorded  on 
diskette  correctly  but  the  last  position  of  the  buffer-pointer  is  written  to  the  0th  byte 
of  the  sector  (the  location  of  the  forward  track  pointer).  If  it's  any  consolation,  the  data 
is  still  intact.  Too  bad  the  link  has  been  destroyed.  Run  the  following  block-write  pro- 
gram on  a  test  diskette. 

100  REM  BLOCK-WRITE  (B-W) 

no  OPEN   15,8,  15 

120  PRINT#15, "10" 

130  INPUT#15,EN*,EM*,ET*,ES* 

140   IF  EN*<>"00"GOTO  260 

150  OPEN  2,8,2, "#" 

160  PRINT#15, "Ui";2;o; l;o 

170  INPUT#15,EN*,EM*,ET*,ES* 
180   IF  EN*<>"00"GOTO  240 
190  FOR   1=0  TO  255 
200  PR I NT#2 , CHR* ( I) ; 
210  NEXT  I 

220  PRINT#15, "B-P";2;6 

230  PRINT#15, "B-W";2;o; i;o 

240  CLOSE  2 

250  INPUT#15,EN*,EM*,ET*,ES* 
260  CLOSE  15 
270  END 

Now  run  the  original  block-read  (Ul)  program  that  we  wrote  using  this  diskette.  Be 
sure  to  change  the  track  in  line  160  from  an  18  to  a  1  as  follows: 

160  PRINT#15, "Ul";2;o;  l;o 

If  all  goes  according  to  our  diabolical  plan,  byte  0  will  contain  a  5  which  is  exactly  where 
our  buffer-pointer  ended  up.  We  arbitrarily  set  it  to  position  6  in  line  220  above  and 
256  bytes  later  it  wraps  around  to  position  5.  (Remember  that  bytes  are  numbered  from 
0  to  255  in  a  buffer  area.) 

Now  change  the  Ul  to  a  B-R  in  line  160  and  run  the  program  again.  This  time,  only 
5  bytes  can  be  accessed  before  an  EOI  signal  is  returned. 

UJ  and  Ul- 

Commodore  has  traditionally  had  a  warm  reset  buried  somewhere  in  ROM  on  every 
piece  of  hardware  they  have  manufactured  to  date.  The  UJ  command  is  to  the  1541  what 
a  SYS  64738  is  to  the  C64,  a  warm  reset.  Or  rather,  that  is  what  it's  supposed  to  be. 
The  issuance  of  a  UJ  command  is  supposed  to  reset  the  1541.  Instead,  it  hangs  the  1541. 
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Press  the  RUN/STOP  key  and  RESTORE  key  in  tandem  to  regain  control  of  the  C64 
after  typing  in  this  one  liner  in  immediate  mode. 


OPEN   15,8, 15, "UJ"    :  CL0SE15 

Use  U:  in  place  of  UJ. 


The  same  thing  is  true  for  the  UI-  command  although  Commodore  can't  really  be  held 
responsible  here.  The  UI-  command  was  implemented  to  set  the  1541  to  VIC-20  speed, 
not  to  take  the  C64  out  to  lunch. 


The  VlC-lSJtl  User's  Manual  outlines  7  USER  commands  that  perform  a  jump  to  a 
particular  location  in  RAM.  These  USER  commands  and  their  respective  jump  addresses 
are: 


These  jump  locations  are  not  quite  as  mystifying  as  they  appear  at  first  glance.  Let's 
modify  our  simplistic  memory-execute  program. 

100  REM  U3 

1 10  OPEN   15, 8, 15 

120  PRINT#15, "M-W"CHR*(0>CHR*(5)CHR*(1)C 
HR*(96) 

130  PRINT#15, "U3" 
140  CLOSE 15 
150  END 


One  should  be  able  to  discern  that  any  of  the  first  six  USER  commands,  U3  -  U8,  could 
double  for  a  memory-execute  command.  It  is  very  difficult  to  understand  why  Commodore 
included  six  jumps  to  the  $0500  page  (buffer  number  2).  Moreover,  the  U9  command 
jumps  to  $FFA  which  is  a  word  table  pointing  to  the  NMI  vector.  U9  is  an  alternate 
reset  that  bypasses  the  power-on  diagonstics. 


U3  -  U9 


User  Number 


Jump  Address 


U3  (UC) 
U4  (UD) 
U5  (UE) 
U6  (UF) 
U7  (UG) 
U8  (UH) 
U9  (UI) 


$0500 
$0503 
$0506 
$0509 
$050C 
$050F 
$FFFA 


101 


I 


CHAPTER  6 


INTERMEDIATE 
DIRECT-ACCESS  PROGRAMMING 


NOTE:  This  chapter  is  not  intended  for  beginners.  The  reader  is  assumed  to  be  relatively 
familiar  with  the  direct-access  programming  commands  described  in  Chapter  5. 

The  intermediate  level  of  direct-access  programming  involves  passing  requests  directly 
to  the  Floppy  Disk  Controller  (FDC)  via  the  job  queue.  Normally  a  1541  command  is 
initiated  on  the  C64  side  (e.g.,  SAVE,  a  block-read  (Ul),  etc.).  The  command  is  inter- 
preted by  the  154rs  6502  Interface  Processor  (IP)  as  a  set  of  simple  operations  called 
jobs.  (This  is  analogous  to  the  way  the  BASIC  interpreter  works  inside  the  C64.)  These 
jobs  are  poked  into  an  area  of  1541  RAM  called  the  job  queue.  Every  10  milliseconds 
the  job  queue  is  scanned  by  the  Floppy  Disk  Controller  (FDC).  If  a  job  request  is  found 
the  FDC  executes  it.  The  complete  set  of  jobs  that  the  FDC  can  perform  are  as  follows: 

1.  Read  a  sector. 

2.  Write  a  sector. 

3.  Verify  a  sector. 

4.  Seek  a  track. 

5.  Bump  the  head  to  track  number  1. 

6.  Jump  to  a  machine  language  routine  in  a  buffer. 

7.  Execute  a  machine  language  routine  in  a  buffer. 

The  hexadecimal  and  decimal  equivalents  for  each  job  request  as  seen  by  the  FDC  are: 


Job  Code 

Description 

$80  (128) 

READ 

$90  (144) 

WRITE 

$A0  (160) 

VERIFY 

$B0  (176) 

SEEK 

$C0  (192) 

BUMP 

$D0  (208) 

JUMP 

$E0  (224) 

EXECUTE 

If  the  FDC  finds  a  job  request  in  the  job  queue,  it  attempts  to  carry  it  out.  Once  the 
job  is  complete  or  aborted  the  FDC  replaces  the  job  code  with  an  error  code.  The  error 
codes  returned  by  the  FDC  to  the  IP  are  listed  below.  The  IP  error  codes  and  their 
respective  error  messages  are  what  you  see  when  you  read  the  error  channel. 
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FDC  Code 

IP  Code 

Error  Message 

$01  (1) 

0 

OK 

$02  (2) 

20 

found) 

$03  (S) 

21 

RFjAD  FjRROR  fnn  wnp  pharapfpr^ 

$04  (4) 

22 

READ  ERROR  fdata  block  not 

present) 

$05  (51 

23 

READ  ERROR  CpVippksiiim  prror  in 

Hat  ft  Vilnok^ 

$07  (7) 

25 

WRITE  ERROR  fwritp-vprifv 

error) 

$08  (8) 

26 

WRITE  PROTECT  ON 

$09  (9) 

27 

READ  ERROR  (checksum  error  in 

header  block) 

$0B  (11) 

29 

READ  ERROR  (disk  ID  mismatch) 

A  more  detailed  description  of  each  of  these  error  messages  can  be  found  in  Chapter  7. 

Suppose  that  we  want  to  read  the  contents  of  a  given  track  and  sector.  The  command 
initiated  on  the  C64  side  is  parsed  by  the  IP.  If  the  syntax  is  correct,  it  is  broken  down 
into  a  job  code,  a  track,  and  a  sector.  Depending  upon  what  buffer  has  been  assigned, 
the  job  code  is  poked  into  the  corresponding  job  queue  table  location.  The  track  and 
sector  for  the  job  are  poked  into  the  corresponding  header  table  locations.  The  buffers 
and  their  corresponding  job  queue  and  header  table  addresses  are  outlined  below: 


Buffer 

Address 

Job       Track  Sector 

$0000  - 

$OOFF 

Not  available  (ZERO  PAGE) 

$0100  - 

$01FF 

Not  available  (STACK) 

$0200  - 

$03FF 

Not  available  (COMMAND  BUFFER) 

#0 

$0300  - 

$03FF 

$0000        $0006  $0007 

#1 

$0400  - 

$04FF 

$0001        $0008  $0009 

#2 

$0500  - 

$05FF 

$0002        $000A  $000B 

#3 

$0600  - 

$06FF 

$0003        $000C  $000D 

$0700  - 

$07FF 

Not  available  (BAM) 

For  example,  a  block-read  command  (Ul)  issued  by  the  C64  to  read  the  contents  of  track 
18,  sector  0  into  buffer  number  0  ($0300-$03FF)  is  checked  for  a  syntax  error  and  then 
broken  dovm  by  the  IP.  In  time,  the  FDC  will  find  an  $80  (128)  at  address  $0000  in  the 
job  queue  table,  a  $12  (18)  at  address  $0006  in  the  header  table,  and  a  $00  (0)  at  address 
$0007  in  the  header  table.  Armed  with  that  information,  the  FDC  will  attempt  to  seek 
(find)  the  track  and  read  the  sector.  Upon  successful  completion  of  the  read,  the  con- 
tents of  the  sector  will  be  transferred  to  buffer  number  0  ($0300-$03FF)  and  a  $01  (1) 
will  be  returned  by  the  FDC  to  address  $0000.  (If  the  job  request  could  not  be  com- 
pleted for  some  reason,  the  job  request  would  be  aborted  and  the  corresponding  error 
code  would  be  stored  at  address  $0000  instead.)  Interrogation  of  the  error  channel  will 
transfer  the  IP  counterpart  of  the  FDC  error  code,  the  English  message,  the  track 
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number,  and  the  sector  number  to  the  C64  side.  If  the  job  request  was  successful  (00, 
OK,00,00),  the  contents  of  the  track  and  sector  could  then  be  retrieved  from  the  buffer 
at  $0300  -  $03FF  using  a  GET#  command  as  described  in  the  previous  chapter. 

What  happens,  though,  if  we  bypass  the  drive's  parser  routine  and  attempt  to  work 
the  FDC  directly  ourselves?  We  thought  you'd  never  ask.  Grand  and  glorious  schemes 
become  possibilities,  and  that's  what  intermediate  direct-access  programming  is  all  about. 
Armed  with  a  lookup  table  of  job  codes,  a  map  of  the  154rs  buffer  areas,  a  track,  a 
sector,  and  a  lookup  table  of  error  codes,  the  FDC  is  at  your  beck  and  call.  Tired  of 
those  horrendous  grating  noises  when  your  drive  errs  out?  Well  wish  no  more.  The 
drive  does  not  do  a  bump  (the  root  of  all  evil)  to  reinitialize  when  you  are  working  the 
job  queue  directly.  What  more  could  you  ask  for?  We  know.  The  code,  right? 

The  following  program  works  the  job  queue  directly  to  read  the  block  from  track  18, 
sector  0  into  buffer  number  0  ($0300  -  $03FF)  and  prints  the  contents  to  the  screen. 
Sound  vaguely  familiar?  It  should.  It's  a  modification  of  the  first  program  we  wrote  under 
beginning  direct-access  programming. 


lOO  REM  JOB  QUEUE  READ 

no  OPEN   15,8,  15 

120  PRINT#15, "10" 

130  INPUT#15,EN*,EM*,ET*,ES* 

140   IF  EN*<>"00"GOTO  340 

150  REM  SEEK 

160  T=18 

170  S=0 

180  J0B=176 

190  GOBUB  370 

200   IF  EOl   GOTO  340 

210  REM  READ 

220  J0B=128 

230  GOBUB  370 

240   IF  EOl   GOTO  340 

250  FOR   1=0  TO  255 

260  PRINT#15, "M-R"CHR* ( I >  CHR* (3> 
270  GET#15,B* 

280   IF  B*=""THEN  B*=CHR*(0> 
290  A=ASC(B*) 
300  PRINT  ST, I, A, 

310  IF  A>31  AND  A<96  THEN  PRINT  B*, 
320  PRINT 
330  NEXT  I 
340  GLOBE  15 
350  END 

360  REM  JOB  QUEUE 
370  TRY=0 

380  PRINT#15, "M-W"CHR*(6)CHR*(0)CHR*(2)C 
HR*(T>CHR*(S> 

390  PRINT#15,  "M-W"CHR*  (O)  CHR*  (O)  CHR*  (DC 
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HR*<JOB) 

400  TRY=TRY+1 

410  PRINT#15, "M-R"CHR*<0)CHR*<0) 
420  GET#15,E* 

430   IF  E*=""THEN  E*=CHR*<0) 

440  E=ASC<E*) 

450   IF  TRY=500  GOTO  470 

460  IF  E>127  GOTO  400 

470  RETURN 


Line  Range  Description 


Main  Program 

110  Open  the  command  channel. 

120-140  Initialize  drive. 

160  Initialize  track  to  18. 

170  Initialize  sector  to  0. 

180-190  SEEK  track  18. 

200  Query  FDC  error  code. 

220-230  READ  sector  0  on  track  18  into  buffer  number  0 

($0300-$03FF). 

240  Query  FDC  error  code. 

250  Begin  loop  to  read  256  bytes  ($0300-$03FF). 

260  Two  parameter  memory-read. 

270  Transfer  a  byte  from  buffer  number  0  to  C64  memory 

by  way  of  the  command  channel  (GET#15,). 

280  Test  for  equality  with  the  null  string  "". 

290  ASCII  conversion  of  a  byte. 

300  Print  the  status  variable  (ST),  our  loop  counter,  and  the 

ASCII  value  of  the  byte. 

310  Print  the  byte  if  it's  within  printable  ASCII  range. 

320  Terminate  comma  tabulation. 

330  Increment  loop  counter. 

340  Close  the  command  channel. 

350  End. 

Subroutine 

370  Initialize  try  counter. 

380  Stuff  the  track  and  sector  numbers  into  buffer  number 

O's  header  table  ($0006-$0007). 
390  Stuff  job  code  number  into  buffer  number  O's  job  queue 

table  ($0000). 

400-460  Wait  for  FDC  to  complete  the  job. 

470  Return  with  FDC  error  code  in  hand. 


The  good  news  is  that  working  the  job  queue  is  not  quite  as  complex  as  it  at  first  ap- 
pears. The  subroutine  in  lines  370-470  is  the  very  heart  of  the  matter.  We  simply  stuff 
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our  track  and  sector  into  the  header  table,  our  job  code  into  the  job  queue  table,  and 
wait  until  the  FDC  has  completed  the  operation. 

Keep  in  mind  that  this  example  was  using  buffer  number  0  ($0300-$03FF).  The  corre- 
sponding header  table  and  job  queue  table  addresses  were  $0006  for  the  track,  $0007 
for  the  sector,  and  $0000  for  the  job  code.  Please  note  that  every  job  code  is  greater 
than  127.  (Bit  7  is  deliberately  set  high  (1).)  Recall  that  when  the  FDC  has  completed 
a  job,  the  job  code  is  replaced  with  an  error  code.  All  error  codes  are  less  than  128. 
(Bit  7  is  deliberately  set  low  (0).)  Line  460  waits  until  bit  7  of  the  job  code  is  set  low 
(0)  by  the  FDC.  If  bit  7  is  high  (1),  the  FDC  is  still  working  so  we  must  continue  to 
wait  Gine  410). 

Error  handling  is  a  bit  out  of  the  ordinary  too  but  not  all  that  hard  to  comprehend  either. 
An  FDC  error  code  of  1  means  the  job  was  completed  successfully.  Any  other  number 
indicates  an  error. 

You  will  also  note  a  simple  hierarchy  of  jobs  in  the  program  hsting.  Before  we  can  read 
a  sector  Oine  220)  we  must  always  find  the  track  first  Oine  180).  Now  are  you  ready 
for  this  one?  Initialization  is  not  necessary  at  all  when  working  the  job  queue  directly. 
Lines  120-140  were  included  as  a  force  of  habit.  Applications  like  reading  damaged  or 
DOS  protected  diskettes  may  dictate  that  we  do  not  initialize.  Now  for  the  bad  news. 


WARNING 


Read  this  passage  carefully.  Then  read  it  again  for  good  measure. Experience  is  a  hard 
teacher  —  test  first,  lesson  afterward. 

1.  You  must  remember  at  all  times  when  working  the  job  queue  that  you  have 
directly  bypassed  the  parser  routine.  This  is  extremely  dangerous  because  you 
have  in  effect  killed  all  protection  built  into  the  1541  itself.  Let  us  explain.  If 
by  some  poor  misfortune  you  elect  to  do  a  read  on  track  99,  the  FDC  doesn't 
know  any  better  and  takes  off  in  search  of  track  99.  You  can  physically  lock 
the  read/v«-ite  head  if  it  accidentally  steps  beyond  its  normal  boundaries,  i.e., 
a  track  less  than  1  or  a  track  greater  than  35.  No  damage  is  done  to  the  1541 
itself  but  if  the  power- on  sequence  doesn't  return  the  head  to  center  you  will 
have  to  disassemble  the  drive  and  reposition  the  head  manually.  Exceeding  the 
sector  range  for  a  given  track  is  no  problem,  however.  The  drive  will  eventual- 
ly give  up  trying  to  find  a  sector  out  of  range  and  report  an  FDC  error  2  (an 
IP  20  error).  Tracks  are  a  pain  in  the  stepper  motor,  however. 

2.  You  must  keep  your  header  table  locations  and  your  job  queue  table  locations 
straight  in  relation  to  the  buffer  number  you  are  working.  If  they  are  not  in 
agreement,  the  drive  will  go  off  into  never-never  land.  The  FDC  will  either  at- 
tempt to  work  a  nonexistent  job  code  or  seek  a  track  and  sector  out  of  bounds. 
Remember  the  FDC  will  do  exactly  what  you  tell  it  to  do.  You  are  at  the  helm 
at  all  times.  At  the  minimum,  you  will  have  to  power  off  the  drive  to  regain 
control.  Again,  no  physical  damage  has  been  done  to  the  1541  but  you  may  have 
to  reposition  the  read/write  head  yourself.  We  know  from  experience. 
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3.  You  should  always  monitor  the  job  yourself.  The  try  counter  in  line  450  is  a 
stopgap  measure.  Five  hundred  wait  cycles  seems  like  an  exaggerated  figure 
here.  However,  you  must  give  the  drive  adequate  time  to  find  a  desired  track 
and  settle  down  before  performing  a  job.  If  for  some  reason  it  cannot  complete 
the  job,  it  usually  aborts  and  returns  an  error  code  on  its  own.  If  it  doesn't, 
something  is  amiss  and  a  try  counter  may  trap  it.  (You  might  have  to  power 
off  the  drive  to  restore  the  status  quo.)  A  try  counter  is  a  little  like  workman's 
compensation.  Don't  work  the  job  queue  without  it. 

Now,  read  these  three  paragraphs  a  second  time. 

The  following  program  works  the  job  queue  directly  to  read  track  18,  sector  0  into  buf- 
fer number  1  ($0400-$04FF).  The  disk  name  is  returned  with  a  three  parameter  memory- 
read  of  bytes  144-159  ($0490-$049F).  It's  another  oldie  but  goodie. 

100  REM  JOB  QUEUE  READ  -  DISK  NAME 

110  OPEN   15,8, 15 

120  PRINT#15, "10" 

130  INPUT#15,EN*,EM*,ET*,ES* 

140   IF  EN*<>"00"GQTO  360 

150  REM  SEEK 

160  T=ia 

170  S=0 

ISO  J0B=176 

190  GOSUB  390 

200   IF  EOl   GOTO  360 

210  REM  READ 

220  JOB=12a 

230  GOSUB  390 

240   IF  EOl   GOTO  360 

250  PRINT#15, "M-R"CHR*(144)CHR*(4)CHR*(1 
6) 

260  FOR   1=1   TO  16 
270  GET#15,B* 

280   IF  B*=""THEN  B*=CHR*(0) 

290  A=ASC(B*) 

30O   IF  A;>127  then  A=A-128 

310   IF  A<32  OR  A>95  THEN  A=63 

320   IF  A=34  THEN  A=63 

330  DN*=DN*-t-CHR*(A) 

340  NEXT  I 

350  PRINT"  {:D0WN> DISK  NAME:    "  ;  DN* 
360  CLOSE  15 
370  END 

380  REM  JOB  QUEUE 
390  TRY=0 

400  PR I NT# 15," M-W " CHR* ( 8 ) CHR* ( O ) CHR* ( 2 ) C 
HR*(T)CHR*(S) 

410  PRINT#15, "M-W"CHR*(1)CHR*(0)CHR*(1)C 
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HR*(JOB) 

420  TRY=TRY+1 

430  PR I NT# 15," M-R " CHR* ( 1 ) CHR* ( O ) 
440  GET#15,E* 

450   IF  E*=""THEN  E*=CHR*(0) 

460  E=ASC(E*) 

470   IF  TRY=500  GOTO  490 

480   IF  E>127  GOTO  420 

490  RETURN 


Line  Range 

Description 

ion  1/in 

r  orce  oi  habit. 

IdU 

Initialize  track  to  18. 

170 

Initialize  sector  to  0. 

180-190 

SEEK  track  18. 

200 

Query  FDC  error  code. 

220-230 

READ  sector  0  on  track  18  into  buffer  number  1 

($0400-$04FF). 

240 

Query  FDC  error  code. 

250 

Three  parameter  memory-read  ($0490-$049F). 

260-340 

Concatenate  the  disk  name  one  byte  at  a  time  by  jam- 

ming it  within  printable  ASCII  range. 

390 

Initialize  try  counter. 

400 

Stuff  the  track  and  sector  number  into  buffer  number  I's 

header  table  ($0008-$0009). 

410 

Stuff  the  job  code  number  into  buffer  number  I's  job 

queue  table  ($0001). 

420-480 

Wait  for  FDC  to  complete  the  job. 

490 

Return  with  FDC  error  code  in  hand. 

Not  much  new  here  except  the  buffer  in  use.  Let's  review  the  key  memory  addresses 

for  working  buffer  number  1  ($0400-$04FF): 

BUFFER  NUMBER  1 

=  $0400  -  $04FF 

TRACK  NUMBER 

=  $0008  (HEADER  TABLE) 

SECTOR  NUMBER 

=  $0009  (HEADER  TABLE) 

JOB  CODE 

=  $0001  (JOB  QUEUE  TABLE) 

While  we're  at  it,  we  might  as  well  review  the  order  of  jobs  for  the  sake  of  posterity. 
First  SEEK  a  track.  Then  READ  a  sector. 


The  next  program  incorporates  four  FDC  job  codes,  namely  a  SEEK,  a  READ,  a 
WRITE,  and  indirectly  a  VERIFY.  This  routine  is  a  modification  of  the  edit  disk  name 
program  found  in  the  previous  chapter.  Keep  in  mind  that  we  are  working  buffer  number 
2  here  ($0500-$05FF).  The  header  table  addresses  are  $000A  for  the  track  and  $000B 
for  the  sector.  The  job  codes  themselves  will  be  poked  into  location  $0002  in  the  job 
queue  table. 
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lOO  REM  JOB  QUEUE  RE AD /WRITE  -  EDIT  DISK 
NAME 

no  FOR   1  =  1   TO  16 

1 20  PAD*=P AD*+CHR* ( 1 60 ) 

130  NEXT  I 

140  PRINT"{CLR>EDIT  DISK  NAME  -  1541" 
150  PRINT" {DOWN3 REMOVE   tRVSJWRITE  PROTEC 
T  TAB^ROFFJ" 

160  PRINT" tDOWNJ INSERT  DISKETTE   IN  DRIVE 

II 

170  PRINT" {DOWNJPRESS  tRVSJRETURN^ROFFD 
TO  CONTINUE" 

180  GET  C*: IF  C*=""THEN  180 

190   IF  C*<>CHR*(13)GOTO  180 

200  PR I NT "OK" 

210  OPEN   15, 8, 15 

220  PRINT* 15, "10" 

230  INPUT#15,EN*,EM*,ET*,ES* 

240   IF  EN*="00"GOTO  290 

250  PRINT"  <:D0WN}  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 

260  CLOSE  15 

270  END 

280  REM  SEEK 

290  T=18 

300  S=0 

310  JOB=176 

320  GOSUB  660 

330  REM  READ 

340  J0B=128 

350  GOSUB  660 

360  PRINT* 15, "M-R"CHR*(144)CHR*(5)CHR*(1 

6) 

370  FOR   1=1   TO  16 
380  GET#15,B* 

390   IF  B*=""THEN  B*=CHR*(0) 

400  A=ASC(B*) 

410   IF  A>127  THEN  A=A-128 

420   IF  A<32  OR  A>95  THEN  A=63 

430   IF  A=34  THEN  A=63 

440  ODN*=ODN*+CHR* (A) 

450  NEXT  I 

460  PRINT" CDOWNJ OLD  DISK  NAME:    " ; ODN* 
470   INPUT" {DOWNJNEW  DISK  NAME";NDN* 
480   IF  LEN(NDN*)<>0  AND  LEN(NDN*)<17  GOT 
O  500 

490  GOTO  630 

500  INPUT"  {:D0WNJARE  you  SURE  (Y/N)  Y^LE 
FT  3J";Q* 

510   IF  Q*<>"Y"GOTO  630 

520  NDN*=LEFT*(NDN*+PAD*,  16) 
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530  PRINT#15, "M-W"CHR*<144)CHR*(5)CHR*<1 
6)NDN* 

540  REM  WRITE 

550  J0B=144 

560  GOSUB  660 

570  PRINT#15, "10" 

580  INPUT#15,EN*,EM*,ET*,ES* 

590  CLOSE  15 

^>00  PR  I  NT  "  t  DOWN  >  DONE  !  " 

^>10  END 

^>20  REM  CLOSE 

630  CLOSE  15 

640  END 

650  REM  JOB  QUEUE 
660  TRY=0 

670  PRINT#15, "M-W"CHR*<10)CHR*<0)CHR*<2) 
CHR*(T)CHR*<S) 

680  PRINT#15, "M-W"CHR*<2)CHR*(0)CHR*<1)C 

HR* (JOB) 

690  TRY=TRY+1 

700  PRINT#15, "M-R"CHR*<2)CHR*<0) 
710  GET#15,Ei 

720   IF  E*=""THEN  E*=CHR*(0) 

730  E=ASC<E*> 

740   IF  TRY=500  GOTO  780 

750   IF  E>127  GOTO  690 

760   IF  E=l   THEN  RETURN 

770  REM  ERROR  HANDLER 

780  ETt=RIGHT*<STR*<T> ,LEN<STR*<T) )-l) 

790   IF  T<10  THEN  ET*="0"+ET* 

800  ESt=R I GHT*  <  STR* ( S ) , LEN  <  STR*  <  S ) ) - 1 ) 

810   IF  S<10  THEN  ES*="0"+ES* 

820   IF  E>1   AND  E<12  THEN  EN*=RIGHT* (STR* 

(E+18) ,2) :GOTO  840 

830  EN*="02":EM*="?TIME  OUT": GOTO  860 
840   IF  E=7  OR  E=8  THEN  EM*=" WRITE  ERROR" 
:G0T0  860 

850  EM*="READ  ERROR" 

860  PRINT" tDOWNJ "EN*" ,    "EM*" , "ET*" , "ES* 
870  PR I NT " t DOWN >tRVS>FAI LED t ROFF > " 
880  CLOSE  15 
890  END 


Line  Range  Description 


290-320  SEEK  track  18. 

340-350  READ  contents  of  sector  0  from  track  18  into  buffer 

number  2  ($0500-$05FF). 

550-560  WRITE  buffer  number  2  ($0500-$05FF)  to  track  18,  sec- 

tor 0. 

770-890  Error  handler. 


Ill 


Lines  100  to  530  should  be  self  explanatory  by  now.  Lines  540-560  are  equivalent  to 
a  block-write  command  (U2).  To  write  a  sector  via  the  job  queue  we  stuff  the  track  and 
sector  in  the  header  table  and  a  $90  (144)  into  the  job  queue  table  and  let  her  rip. 

The  error  handler,  however,  is  of  interest.  The  conversion  from  FDC  code  to  IP  code 
is  quite  easy.  We  simply  add  18  to  the  FDC  error  code  (line  820).  Note  that  we  try  to 
restrict  all  errors  within  a  range  of  20  to  29.  An  FDC  error  code  of  0  or  greater  than 
11  is  indicative  that  something  went  radically  wrong.  Line  820  arbitrarily  reports  a 
?TIME  OUT  in  this  situation.  Speaking  from  experience,  the  job  just  plainly  didn't  get 
done.  A  time  out  occurs  very  rarely,  unless  of  course,  one  is  inspecting  a  damaged  or 
DOS-protected  diskette. 

Line  840  is  another  highlight.  An  FDC  WRITE  ($90)  automatically  flips  to  an  FDC 
VERIFY  ($A0)  to  compare  the  contents  of  the  buffer  against  the  sector  just  written. 
Kind  of  neat,  isn't  it?  If  the  buffer  and  the  sector  do  not  match,  we  see  an  FDC  error 
7,  i.e.,  an  IP  error  number  25,  WRITE  ERROR.  Since  a  VERIFY  is  done  automatical- 
ly by  the  FDC,  we  will  not  elaborate  any  further  on  this  particular  job  code. 

The  job  code  for  a  BUMP  is  a  $C0  (192).  Why  anybody  would  ever  want  to  implement 
this  job  request  is  beyond  us. 

A  subtle  difference  exists  between  the  remaining  two  job  codes,  a  JUMP  ($D0)  and  an 
EXECUTE  ($E0).  A  JUMP  executes  a  machine  language  routine  poked  into  RAM.  No 
more,  no  less.  Like  a  BUMP  job,  it  is  seldom  used.  The  program  that  moves  the 
read/write  head  in  Chapter  9  is  the  only  place  where  we  have  ever  found  a  practical 
use  for  it. 

An  EXECUTE  ($E0)  is  the  Rolls  Royce  of  job  codes,  however.  Before  a  machine  language 
routine  is  executed,  the  FDC  makes  sure  that: 

1.  The  drive  is  up  to  speed. 

2.  The  read/write  head  is  on  the  right  track. 

3.  The  read/write  head  has  settled. 

The  FDC  cannot  be  interrupted  when  performing  an  EXECUTE  job.  Once  the  FDC 
starts  to  EXECUTE  the  machine  language  routine,  control  is  not  returned  to  the  IP 
until  the  routine  is  completed.  A  runaway  routine  cannot  be  debugged  even  with  BRK 
instructions.  You  must  power  down  the  1541  and  try  to  second  guess  the  side  effects 
of  the  routine  to  determine  what  went  wrong. 

NOTE:  The  FDC  does  not  automatically  return  an  error  code  when  the  routine  is  com- 
pleted. It  is  the  programmer's  responsibihty  to  change  the  job  code  in  the  job  queue 
table  from  an  EXECUTE  ($E0)  to  an  $01  at  the  end  of  the  routine.  If  this  is  not  done, 
the  FDC  will  find  the  same  EXECUTE  request  on  its  next  scan  of  the  job  queue  and 
re-run  the  routine.  Infinite  regression! 

Most  of  the  programs  in  Chapter  7  make  use  of  the  EXECUTE  job  code  in  one  form 
or  another.  Therefore,  example  programs  will  be  given  there. 
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CHAPTER  7 


DOS  PROTECTION 


7.1  Commodore's  Data  Encoding  Scheme 

Before  we  can  enter  the  netherworld  of  DOS  protection  you  have  to  possess  a  thorough 
understanding  of  how  the  1541  records  a  sector  on  a  diskette.  Any  given  sector  is  di- 
vided into  two  contiguous  parts,  a  header  block  and  a  data  block.  For  clarity  sake  let's 
review  the  parts  of  a  sector  discussed  in  Chapter  3. 

Header  Block  (16  8-bit  bytes) 


Number  of  Bytes 


Description 


2 
8 


Sync  Character 

Header  Block  Identifier  ($08) 

Header  Block  Checksum 

Sector  Number 

Track  Number 

ID  LO 

ID  HI 

Off  Bytes  ($0F) 
Header  Gap  ($55) 


Data  Block  (260  8-bit  bytes) 

Number  of  Bytes  Description 


-  Sync  Character 

1  Data  Block  Identifier  ($07) 

256  Data  Bytes 

1  Data  Block  Checksum 

2  Off  Bytes  ($00) 
Variable  Tail  Gap  ($55) 

The  1541  writes  a  track  on  the  surface  of  a  diskette  as  one  continuous  bit  stream.  There 
are  no  demagnetized  zones  between  sectors  on  a  track  to  delineate  where  one  sector 
ends  and  another  one  begins.  Instead,  Commodore  relies  upon  synchronization  characters 


113 


for  reference  marks.  A  DOS  2.6  sync  mark  can  be  defined  as  five  8-bit  $FF's  written 
in  succession  to  disk.  Note  that  a  sync  mark  is  recorded  at  the  front  end  of  each  header 
block  and  each  data  block.  To  differentiate  a  sync  mark  from  a  normal  data  byte,  the 
1541  writes  to  diskette  in  two  modes,  a  sync  mode  and  a  normal  write  mode. 

To  appreciate  the  uniqueness  of  a  sync  mark  we  must  first  look  at  how  a  normal  data 
byte  is  recorded.  During  normal  write  mode  each  8-bit  byte  is  encoded  into  10  bits  before 
it  is  written  to  disk.  Commodore  calls  this  encoding  scheme  binary  to  GCR  (Group  Code 
Recording)  conversion.  The  conversion  technique  itself  is  quite  straightforward.  Each 
8-bit  byte  is  separated  into  two  4-bit  nybbles,  a  high  nybble  and  a  low  nybble.  For  ex- 
ample, the  binary  representation  of  $12  (18)  is  %00010010.  The  breakdown  of  this  8-bit 
byte  into  its  two  4-bit  nybbles  is  depicted  below: 


Hexadecimal       Binary        High  Nybble    Low  Nybble 

$12  (18)  00010010         OOOlxxxx  xxxxOOlO 

Mathematically  speaking,  a  4-bit  nybble  can  be  decoded  into  any  one  of  16  different 
decimal  values  ranging  from  0  (all  bits  turned  off)  to  15  (all  bits  turned  on)  as  follows: 

Bit  Number  3         2  10 

Power  of  2  3         2  1  0 

Weight  8         4         2  1 

Hence,  the  154rs  GCR  lookup  table  contains  just  sixteen  4-bit  nybble  equivalencies: 


Hexadecimal  Binary  GCR 


$0(0) 

0000 

01010 

$1  (1) 

0001 

01011 

$2(2) 

0010 

10010 

$3  (3) 

0011 

10011 

$4(4) 

0100 

OHIO 

$5(5) 

0101 

01111 

$6  (6) 

0110 

10110 

$7(7) 

0111 

10111 

$8(8) 

1000 

01001 

$9(9) 

1001 

11001 

$A  (10) 

1010 

11010 

$B  (11) 

1011 

11011 

$C  (12) 

1100 

01101 

$D  (13) 

1101 

11101 

$E  (14) 

1110 

11110 

$F  (15) 

nil 

10101 

Using  the  binary  to  GCR  lookup  table  above,  let's  walk  through  the  necessary  steps 
to  convert  a  $12  (18)  to  GCR  form. 
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STEP  1.  Hexadecimal  to  Binary  Conversion 

$12  (18)  =  00010010 
STEP  2.  High  Nybble  to  GCR  Conversion 

OOOlxxxx  =  $1  (1)  =  01011 
STEP  3.  Low  Nybble  to  GCR  Conversion 

xxxxOOlO  =  $2  (2)  =  10010 
STEP  4.  GCR  Concatenation 

01011  +  10010  =  0101110010 

Two  things  should  stand  out  when  scrutinizing  the  1541's  binary  to  GCR  lookup  table. 

1.  No  combination  of  any  two  5-bit  GCR  bytes  will  ever  yield  10  consecutive  on  bits 
(Is)  which  is  used  as  the  sync  mark.  Binary  to  GCR  conversion  eliminates  all  likelihood 
that  a  permutation  of  normal  data  bytes  can  ever  be  mistaken  by  the  read/write  elec- 
tronics for  a  sync  mark. 

2.  No  more  than  two  consecutive  off  bits  (Os)  appear  in  any  given  10-bit  GCR  byte  or 
combination  of  GCR  bytes.  This  latter  constraint  was  imposed  for  accuracy  when 
clocking  bits  back  into  the  1541  during  a  read.  (See  Chapter  9  for  additional 
information.) 

This  brings  us  full  circle  to  what  actually  differentiates  a  sync  mark  from  a  normal  data 
byte.  Simply  put,  a  sync  mark  is  10  or  more  on  bits  (Is)  recorded  in  succession.  Only 
one  normal  data  byte,  an  $FF  (%11111111),  can  even  begin  to  fill  the  shoes  of  a  sync 
mark.  During  normal  write  mode,  however,  an  $FF  would  take  the  following  GCR  form, 
1010110101.  Enter  sync  mode.  When  the  1541  writes  an  $FF  in  sync  mode  no  binary 
to  GCR  conversion  is  done.  A  single  $FF  is  only  eight  consecutive  on  bits  and  falls  short 
of  the  ten  consecutive  on  bits  needed  to  create  a  sync  character.  To  remedy  this.  Com- 
modore writes  five  consecutive  8-bit  $FFs  to  disk.  This  records  40  on  bits  (Is)  in  succes- 
sion, the  overkill  is  intentional  on  the  DOS's  part.  Commodore  is  trying  to  guarantee 
that  the  1541  will  never  have  any  trouble  finding  a  sync  mark  during  subsequent 
reads/writes  to  a  diskette. 

Four  8-bit  data  bytes  are  converted  to  four  10-bit  GCR  bytes  at  a  time  by  the  1541  DOS. 
RAM  is  only  an  8-bit  storage  device  though.  This  hardware  limitation  prevents  a  10-bit 
GCR  byte  from  being  stored  in  a  single  memory  location.  Four  10-bit  GCR  bytes  total 
40  bits  —  a  number  evenly  divisible  by  our  overriding  8-bit  constraint.  Commodore  sub- 
divides the  40  GCR  bits  into  five  8-bit  bytes  to  solve  this  dilemma.  This  explains  why 
four  8-bit  data  bytes  are  converted  to  GCR  form  at  a  time.  The  following  step  by  step 
example  demonstrates  how  this  bit  manipulation  is  performed  by  the  DOS. 

STEP  1.  Four  8-bit  Data  Bytes 

$08      $10      $00  $12 
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STEP  2.  Hexadecimal  to  Binary  Conversion 
1.  Binary  Equivalents 

$08         $10         $00  $12 
00001000  00010000  00000000  00010010 

STEP  3.  Binary  to  GCR  Conversion 

1.  Four  8-bit  Data  Bytes 

00001000  00010000  00000000  00010010 

2.  High  and  Low  Nybbles 

0000  1000  0001  0000  0000  0000  0001  0010 

3.  High  and  Low  Nybble  GCR  Equivalents 

01010  01001  01011  01010  01010  01010  01011  10010 

4.  Four  10-bit  GCR  Bytes 

0101001001  0101101010  0101001010  0101110010 

STEP  4.  10-bit  GCR  to  8-bit  GCR  Conversion 

1.  Concatenate  Four  10-bit  GCR  Bytes 

0101001001010110101001010010100101110010 

2.  Five  8-bit  Subdivisions 

01010010  01010110  10100101  00101001  01110010 

STEP  5.  Binary  to  Hexadecimal  Conversion 
1.  Hexadecimal  Equivalents 

01010010  01010110  10100101  00101001  01110010 
$52         $56         $A5        $29  $72 

STEP  6.  Four  8-bit  Data  Bytes  are  Recorded  as  Five  8-bit  GCR  Bytes 

$08      $10      $00      $12      are  recorded  as      $52      $56      $A5      $29  $72 

Four  normal  8-bit  bytes  are  always  written  to  diskette  as  five  8-bit  GCR  bytes  by  the 
DOS.  The  1541  converts  these  same  five  8-bit  GCR  bytes  back  to  four  normal  8-bit  bytes 
during  a  read.  The  steps  outlined  above  still  apply  but  they  are  performed  in  the  reverse 
order.  (The  appendix  contains  various  mathematical  conversion  routines  for  your  use.) 

In  light  of  the  above  discussion,  we  need  to  recalculate  the  number  of  bytes  that  are 
actually  recorded  in  a  sector.  We  stated  in  Chapter  3  that  a  header  block  was  comprised 
of  eight  8-bit  bytes  excluding  the  header  gap.  This  is  recorded  on  the  diskette  as  ten 
8-bit  GCR  bytes.  The  formula  for  determining  the  actual  number  of  bytes  that  are  re- 
corded is: 

Number  of  8-bit  GCR  Bytes  Recorded  =  (Number  of  8-bit  Data  Bytes/4)  *  5 
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Similarly,  a  data  block  consisting  of  260  8-bit  bytes  is  written  to  disk  as  325  8-bit  GCR 
bytes.  Lest  we  forget,  each  sync  mark  is  five  8-bit  bytes.  We  must  also  remember  to 
add  in  the  header  gap  which  is  held  constant  at  eight  bytes.  (Header  gap  bytes  ($55) 
are  not  converted  to  GCR  form  and  serve  only  to  separate  the  header  block  from  the 
data  block.)  An  entire  sector  is  recorded  as  353  bytes  not  256  data  bytes. 


Data  Bytes  GCR  Bytes 

Sync  Character  ($FF)  5  *  5 

Header  Block  8  10 

Header  Gap  ($55)  8  *  8 

Sync  Character  ($FF)  5  *  5 

Data  Block  260  325 


*  No  binary  to  GCR  conversion. 

We  deliberately  excluded  the  inter-sector  (tail)  gap  in  calculating  the  number  of  bytes 
in  a  given  sector.  Why?  Because  the  tail  gap  is  never  referenced  again  by  the  DOS  once 
formatting  is  complete.  During  formatting  the  Floppy  Disk  Controller  (FDC)  erases  a 
track  by  writing  10240  overlapping  8-bit  $FFs.  Once  a  track  has  been  erased  the  FDC 
writes  2400  8-bit  $FFs  (%11111111)  followed  by  2400  8-bit  $55s  (%01010101).  The  intent 
is  to  wrap  around  the  circumference  of  the  track  with  a  clearly  discernable  on/off  pat- 
tern of  bytes.  The  FDC  then  counts  to  see  how  many  sync  ($FF)  and  nonsync  ($55)  bytes 
were  actually  written  to  the  track.  From  this  count  the  FDC  subtracts  the  total  number 
of  bytes  that  the  entire  range  of  sectors  in  a  given  zone  will  use.  The  remainder  is  then 
divided  by  the  number  of  sectors  in  that  zone  to  determine  the  size  of  the  tail  gap.  The 
algorithm  is  analogous  to  cutting  a  pie.  The  tail  gap  varies  not  only  between  tracks  due 
to  a  decrease  in  both  circumference  and  the  sector  range  but  between  disk  drives  as 
well,  due  to  varying  motor  speeds.  A  stopgap  measure  is  incorporated  into  the  algorithm 
for  the  latter  reason.  If  a  tail  gap  is  not  computed  to  be  at  least  four  bytes  in  length 
formatting  will  fail  and  an  error  will  be  reported.  In  general,  the  length  of  the  tail  gaps 
fall  into  the  ranges  tabled  below: 


Zone         Tracks  Number  of  Sectors  Variable  Tail  Gap 


1  1-17  21  4-7 

2  18-24  19  9  -  12 

3  25-30  18  5-8 

4  31-35  17  4-8 


Note  that  the  values  given  above  do  not  apply  to  the  highest  numbered  sector  on  a  track. 
The  gap  between  this  sector  and  sector  0  is  usually  much  longer.  We  have  seen  tail  gaps 
in  excess  of  100  bytes  here. 

Also  note  that  a  header  block  is  never  rewritten  after  formatting  is  complete.  The  data 
block  of  a  sector,  including  the  sync  character,  is  completely  rewritten  every  time  data 
is  written  to  that  sector.  The  eight  byte  header  gap  is  counted  off  by  the  DOS  to  deter- 
mine where  to  start  writing  the  data  block. 
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7.2  Checksums 


The  only  remaining  concern  we  have  at  this  time  is  how  we  compute  a  checksum.  Unhke 
tape  storage  where  a  program  file  is  recorded  twice  in  succession,  data  is  recorded  on 
diskette  only  once.  In  other  words,  there  is  no  cyclic  redundancy.  Checksum  comes  to 
the  rescue.  A  single  byte  checksum  or  hashtotal  is  used  by  the  DOS  to  determine  whether 
or  not  an  error  occurred  during  a  read  of  a  header  block  or  a  data  block.  A  checksum 
is  derived  by  Exclusive-ORing  (EOR)  bytes  together.  Two  bytes  are  EORed  together 
at  one  time  by  comparing  their  respective  bits.  The  four  possible  EOR  bit  combinations 
are  shown  in  the  following  truth  table. 

EOR  Truth  Table 


0  EOR  0  =  0 

0  EOR  1  =  1 

1  EOR  0  =  1 
1  EOR  1=0 

A  header  block  checksum  is  the  EOR  of:  the  sector  number,  the  track  number,  the  ID 
LO,  and  the  ID  HI.  (These  four  bytes  serve  to  differentiate  sectors  from  one  another 
on  a  diskette.)  A  data  block  checksum  is  the  EOR  of  all  256  8-bit  data  bytes  in  a  sector. 
Recall  that  a  data  block  normally  consists  of  a  forward  track  and  sector  pointer  plus 
254  data  bytes.  Please  note  that  bytes  are  EORed  by  the  DOS  prior  to  their  GCR 
conversion. 

The  following  example  demonstrates  how  a  header  block  checksum  is  calculated.  The 
algorithm  for  calculating  a  data  block  checksum  is  identical,  only  longer. 


Hexadecimal 


Binary 


Sector  Number 
Track  Number 
ID  LO 
ID  HI 


$00  (0) 
$12  (18) 
$58  (88) 
$5A  (90) 


00000000 
00010010 
01011000 
01011010 


STEP  1 


Initialization 

EOR  $00  (0)  With  Sector  Number 


$00  =  00000000 
Sector  Number  ($00)  =  00000000 


00000000 


STEP  2. 


EOR  With  Track  Number 


00000000 

Track  Number  ($12)  =  00010010 


00010010 
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STEP  3.  EOR  With  ID  LO 


ID  LO  ($58) 


00010010 
01011000 


01001010 


STEP  4.  EOR  With  ID  HI 


ID  HI  ($5A) 


01001010 
01011010 


00010000 


STEP  5.  Binary  to  Hexadecimal  Conversion 
00010000 
$10  (16) 

The  checksum  for  $00,  $12,  $58,  and  $5A  is  thus  $10  (16).  This  checksum  just  happens 
to  be  the  header  block  checksum  for  track  18,  sector  0  on  the  1541TE ST/DEMO.  In  ad- 
dition, the  binary  to  GCR  conversion  tour  presented  earlier  was  for  the  first  four  bytes 
($08  $10  $00  $12)  of  the  same  header  block. 


7.3  Description  of  DOS  Error  Messages 

In  Chapter  6  we  presented  a  table  of  FDC  and  IP  error  codes.  The  following  table  outlines 
the  order  in  which  errors  are  evaluated  by  the  DOS  during  a  read  and  a  write, 
respectively. 


READ  ERRORS 


FDC  Job 
Request 


FDC 
Error  Code 


IP 

Error  Code    Error  Message 


SEEK 
SEEK 
SEEK 
SEEK 
READ 
READ 
READ 
READ 


$03  (3) 
$02  (2) 
$09  (9) 
$0B  (11) 
$02  (2) 
$04  (4) 
$05  (5) 
$01  (1) 


21 
20 
27 
29 
20 
22 
23 
0 


No  Sync  Character 
Header  Block  Not  Found 
Checksum  Error  in  Header  Block 
Disk  ID  Mismatch 
Header  Block  Not  Found 
Data  Block  Not  Present 
Checksum  Error  in  Data  Block 
OK 
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WRITE  ERRORS 


FDC  Job 
Request 

WRITE 
WRITE 
WRITE 
WRITE 
VERIFY 


FDC 
Error  Code 

$0B  (11) 
$08  (8) 
$07  (7) 
$01  (1) 


IP 

Error  Code 


Error  Message 


73  DOS  Mismatch 

29  Disk  ID  Mismatch 

26  Write  Protect  On 

25  Write- Verify  Error 

0  OK 


Each  error  is  described  in  greater  detail  below. 

21  READ  ERROR  (NO  SYNC  CHARACTER) 

The  FDC  could  not  find  a  sync  mark  (10  or  more  consecutive  on  bits)  on  a  given  track 
within  a  prescribed  20  millisecond  time  limit.  A  time  out  has  occurred. 


20  READ  ERROR  (HEADER  BLOCK  NOT  FOUND) 

The  FDC  could  not  find  a  OCR  header  block  identifier  ($52)  after  90  attempts.  The  FDC 
did  a  seek  to  a  track  and  found  a  sync  character.  The  FDC  then  read  the  first  GCR 
byte  immediately  following  it.  This  GCR  byte  was  compared  against  a  GCR  $52  ($08). 
The  comparison  failed  and  the  try  counter  was  decremented.  The  FDC  waited  for  another 
sync  character  and  tried  again.  Ninety  attempts  were  made. 

27  READ  ERROR  (CHECKSUM  ERROR  IN  HEADER  BLOCK) 

The  FDC  found  a  header  block  on  that  track.  This  header  block  was  read  into  RAM 
and  the  GCR  bytes  were  converted  back  to  their  original  binary  form.  The  FDC  then 
EORed  the  sector  number,  the  track  number,  the  ID  LO,  and  the  ID  HI  together.  This 
independent  checksum  was  EORed  against  the  actual  checksum  found  in  the  header 
block  itself.  If  the  result  of  the  EOR  was  not  equal  zero,  the  checksums  were  not  equal. 
The  comparison  failed  and  the  FDC  returned  a  $09  to  the  error  handler. 


29  READ  ERROR  (DISK  ID  MISMATCH) 

The  IDs  recorded  in  the  header  block  found  above  did  not  match  the  master  copy  of 
the  disk  id's  stored  in  $0012  and  $0013.  These  zero  page  memory  addresses  are  normal- 
ly updated  from  track  18  during  initialization  of  a  diskette.  Note  that  they  also  can  be 
updated  by  a  seek  to  a  track  from  the  job  queue. 


20  READ  ERROR  (HEADER  BLOCK  NOT  FOUND) 

A  GCR  image  of  the  header  was  created  using  the  sector  number,  the  track  number, 
and  the  master  disk  IDs.  The  FDC  attempted  to  find  a  header  on  this  track  that  match- 
ed the  GCR  image  in  RAM  for  that  sector.  Ninety  attempts  were  made  before  this  er- 
ror was  reported. 
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22  READ  ERROR  (DATA  BLOCK  NOT  PRESENT) 


The  header  block  for  a  given  track  and  sector  passed  the  previous  five  tests  with  flying 
colors.  The  FDC  found  the  data  block  sync  mark  and  read  the  next  325  GCR  bytes  into 
RAM.  These  GCR  bytes  were  converted  back  into  260  8-bit  binary  bytes.  The  first  decod- 
ed 8-bit  byte  was  compared  against  a  preset  data  block  identifier  at  $0047  and  failed 
to  match.  Note  this  zero  page  memory  address  normally  contains  a  $07. 

23  READ  ERROR  (CHECKSUM  ERROR  IN  DATA  BLOCK) 

An  independent  checksum  was  calculated  for  the  256  byte  data  block  converted  above. 
This  checksum  did  not  match  the  actual  checksum  read  from  the  diskette. 


00,  OK,00,00 

Nothing  wrong  here. 

73  DOS  MISMATCH  (CBM  DOS  V2.6  1541) 

An  attempt  was  made  to  write  to  a  diskette  with  a  non-compatible  format.  The  DOS 
version  stored  at  location  $0101  was  not  a  $41.  This  memory  address  is  normally  up- 
dated during  initialization  by  reading  byte  2  from  track  18,  sector  0. 

29  READ  ERROR  (DISK  ID  MISMATCH) 

Same  as  29  READ  ERROR  above  but  conflicting  id's  were  found  during  a  write  at- 
tempt rather  than  a  read.  Repeated  occurrance  of  this  error  on  a  standard  diskette  is 
indicative  of  a  seating  problem  or  a  slow-burning  alignment  problem. 

26  WRITE  PROTECT  ON 

An  attempt  was  made  to  write  to  a  diskette  while  the  write  protect  switch  is  depress- 
ed. Remove  the  write  protect  tab  from  the  write  protect  notch. 

25  WRITE-VERIFY  ERROR 

The  contents  of  the  data  just  written  to  a  sector  did  not  match  the  data  in  RAM  when 
they  were  read  back.  This  was  probably  caused  by  a  flaw  on  the  surface  of  the  diskette. 
The  end  result  was  an  unclosed  file.  Validate  the  diskette  to  decorrupt  the  BAM.  (See 
Chapter  2.) 

00,  OK,00,00 

Looking  good. 
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7.4  Analyzing  a  Protected  Diskette 

Bad  sectoring  is  central  to  any  disk  protection  scheme.  In  a  nutshell,  disk  protection 
involves  the  deliberate  corruption  of  a  given  track  or  sector.  The  authenticity  of  a  diskette 
is  often  determined  by  a  short  loader  program  that  reads  the  corrupted  track  or  sector. 
In  essence  the  FDC  or  IP  error  code  is  a  password  allowing  access  to  the  run  time  module. 
As  a  result  the  loader  is  extremely  protected.  If  it  can  be  cracked  the  program  is  generally 
freed  from  its  bonds.  This  is  easier  said  than  done  though.  A  loader  is  usually  rendered 
indecipherable  (Coda  Obscura)  through  an  autostart  feature,  the  use  of  unimplemented 
6502  op  codes,  encryption,  or  compilation.  Frankly  speaking,  it's  much  easier  to  go  after 
the  whole  disk.  The  following  passages  will  introduce  you  to  the  black  art  of  bit  copying. 

The  appendix  contains  four  routines  written  specifically  to  assist  in  the  interrogation 
of  a  diskette.  They  are: 

1.  Interrogate  Formatting  IDs 

2.  Interrogate  a  Track 

3.  Shake,  Rattle,  and  Roll 

4.  Interrogate  a  Diskette 

These  four  programs  tend  to  complement  one  another  quite  well  in  actual  use.  Their 
uses  and  limitations  are  discussed  below. 

INTERROGATE  FORMATTING  ID'S  returns  the  embedded  disk  ID  for  each  track 
using  a  SEEK.  Recall  that  working  the  job  queue  prevents  the  dreaded  BUMP.  A  seek 
to  a  track  is  deemed  successful  by  the  FDC  if  at  least  one  intact  sector  can  be  found. 
The  header  of  said  sector  is  stored  in  zero  page  from  $0016-$001A.The  ASCII  equivalents 
of  the  ID  HI  ($0016)  and  ID  LO  ($0017)  are  read  and  printed  to  the  CRT  if  the  SEEK 
was  good.  At  a  glance  one  can  determine  if  a  protected  diskette  has  a  blown  track  or 
if  it  has  been  formatted  with  multiple  ID's.  This  latter  scheme  is  less  commonly  used 
to  date.  This  program  will  not  report  the  integrity  of  each  individual  sector.  We  have 
other  routines  for  that  task. 

There  is  one  severe  drawback  to  this  program  as  it  stands.  Occasionally  the  FDC  gets 
hung  up  on  a  track.  The  SEEK  may  continue  to  attempt  to  find  a  sync  mark  without 
timing  out.  (You  must  power  off  the  1541  to  recover  from  this  situation.)  Experimenta- 
tion in  interrogating  unformatted  diskettes  has  produced  the  same  effect.  We  surmise 
that  the  track  in  question  was  passed  over  during  high-speed  duplication.  The  FDC  may 
in  fact  be  homing  in  on  a  residual  bit  pattern  left  over  from  the  manufacturer's  certifica- 
tion process.  The  program  has  a  built-in  fail-safe  mechanism  for  this  very  reason.  Please 
take  note:  Lines  110-140  establish  an  active  track  array.  All  tracks  are  presumed  active 
at  the  onset  Qine  130).  Line  240  tests  the  integrity  of  the  track  prior  to  a  seek.  If  a  track 
is  inactive  (its  flag  equals  0)  the  track  is  bypassed  and  the  program  will  work  from  start 
to  finish.  Should  the  need  arise  simply  patch  in  a  line  that  reads: 

145  T(track  number) =0 

145  T(17)=0,  for  example. 

If  it's  any  comfort  at  all,  a  loader  cannot  check  the  integrity  of  said  track  either.  The 
sole  function  of  such  a  track  is  to  discourage  prying  eyes. 
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INTERROGATE  A  TRACK  scans  a  single  track  using  the  job  queue.  The  track  is  found 
with  a  SEEK  and  then  the  integrity  of  each  sector  is  verified  with  a  READ.  IP  error 
codes  are  returned  to  the  screen.  No  BUMP  occurs.  The  routine  may  occasionally  pro- 
vide erroneous  information.  This  is  a  major  shortcoming  of  a  READ  from  the  queue. 
Certain  errors  are  returned  clean  as  a  whistle  (22,  23,  27).  A  partially  formatted  track 
(mid-track  21  error)  or  a  smattering  of  20  errors  tend  to  throw  the  FDC  into  an  absolute 
tizzy.  Make  note  of  this.  Repeated  runs  of  the  same  track  often  return  a  different  error 
pattern.  Errors  tend  to  accumulate  when  a  BUMP  is  overridden.  Solution?  See  the  follow- 
ing paragraph. 

SHAKE,  RATTLE,  AND  ROLL  also  scans  a  single  track  by  using  a  Ul  command  rather 
than  a  direct  READ  from  the  job  queue.  The  track  is  still  found  by  a  SEEK,  however, 
to  prevent  29  errors  in  the  event  that  multiple  formatting  played  a  part  in  the  protec- 
tion scheme.  A  29  error  is  not  an  error  per  se.  It  is  merely  a  stumbling  block.  A  Ul 
without  a  SEEK  to  a  multiple-formatted  diskette  will  report  a  DISK  ID  MISMATCH. 
Information  can  be  stored  on  a  track  with  a  different  ID.  A  loader  will  retrieve  it  by 
the  same  method  we're  using  here.  Errors  will  force  a  BUMP  so  use  discretion.  Please 
note  that  a  full  track  of  21  errors,  23  errors,  or  27  errors  does  not  need  to  be  read  with 
this  routine.  After  you  analyze  a  track,  write  the  errors  down  and  file  your  notes  away 
for  archival  needs.  Your  1541  will  love  you  for  it. 

INTERROGATE  A  DISKETTE  is  the  lazy  man's  routine.  It  scans  an  entire  diskette 
reporting  only  bad  sectors  to  the  screen.  The  program  is  essentially  INTERROGATE 
A  TRACK  in  a  loop.  Note  that  you  may  have  to  patch  around  a  track  to  map  the  entire 
diskette.  See  the  example  patch  above. 


7.5  Duplicating  a  Protection  Scheme 

The  following  table  represents  the  state  of  the  error.  The  rank  order  in  which  errors 
tend  to  crop  up  on  copy  protected  diskettes  are  as  follows: 

1.  21  ERROR  (FULL  TRACK) 

2.  23  ERROR  (SINGLE  SECTOR) 

3.  23  ERROR  (FULL  TRACK) 

4.  20  ERROR  (SINGLE  SECTOR) 

5.  27  ERROR  (FULL  TRACK) 

6.  29  ERROR  (MULTIPLE  FORMATTING) 

7.  22  ERROR  (SINGLE  SECTOR) 

8.  21  ERROR  (PARTIAL  TRACK) 

Historically  speaking,  the  21  error  (full  track)  and  the  29  error  appeared  on  the  scene 
concurrently.  At  the  present  time,  a  full  track  21  error  and  a  single  sector  23  error  are 
the  predominant  errors  used  to  corrupt  a  diskette.  These  same  two  errors  are  also  the 
easiest  to  duplicate.  The  last  entry,  partial  formatting  of  a  track,  is  the  new  kid  on  the 
block. 
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The  following  13  programs  can  be  used  to  duplicate  a  multitude  of  errors  on  a  diskette. 
They  are: 


File  Name 


Error  Number     Error  Range 


21  ERROR 

DESTROY  A  SECTOR 


21 
20,  21 
23 
23 
23 
20 
20 
27 
22 
22 


FULL  TRACK 


23A  ERROR 
23B  ERROR 
23M  ERROR 
20  ERROR 
20M  ERROR 
27M  ERROR 
22A  ERROR 
22B  ERROR 


SINGLE  SECTOR 
SINGLE  SECTOR 
*SINGLE  SECTOR 
FULL  TRACK 


SINGLE  SECTOR 
FULL  TRACK 


FULL  TRACK 


SINGLE  SECTOR 
*SINGLE  SECTOR 


FORMAT  A  DISKETTE 


29 


MULTIPLE  FORMATTING  ID'S 


BACKUP 
COPY 


SINGLE  DRIVE  BACKUP 
SINGLE  FILE  COPY 


*  Creates  an  exact  duplicate  of  a  bad  sector. 

Source  listings  for  the  machine  language  routines  in  these  programs  are  included  as 
a  courtesy  to  the  more  advanced  reader.  The  BASIC  drivers  themselves  are  nondescript 
and  vfiW  not  be  explained  in  depth.  It  is  assummed  that  the  reader  has  digested  the 
sections  on  beginning  and  intermediate  direct-access  programming  in  Chapters  5  and 
6.  Algorithms  vfiW  be  briefly  mentioned  along  with  any  new  techniques  and/or  limita- 
tions that  apply. 


7.6  How  to  Create  21  Errors  on  a  Full  Track 


FULL  TRACK  21  ERROR 

100  REM  21   ERROR  -  1541 

110  PRINT" CCLR>21   ERROR  -  1541" 

120  PRINT" {DOWN> INSERT  CLONE   IN  DRIVE" 

130  input" cdown> destroy  track" ;t 

140  ift< 10rt>35thenend 

150  input" {down> are  you  sure    y{left  3> " 

;q« 

160  ifq*<>"y"thenend 

170  0PEN15,8, 15 
180  PRINTttlS, "10" 


Limitations:  None. 


Parameters:  Track  number. 
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1 90  I NPUT# 1 5 , EN* , EM* , ET* , ES* 
200  IFEN*="0b"GQTQ250 

210  PRINT" <DOWN> "EN*",    "EM*" , "ET*" , "ES* 

220  CLQSE15 

230  END 

240  REM  SEEK 

250  JQB=176 

260  GDSUB400 

270  FQRI=0T023 

280  READD 

290  D*=D*+CHR*(D) 

300  NEXTI 

310  PRINT#15, "M-W"CHR* (0) CHR* (4) CHR* (24) 
D* 

320  REM  EXECUTE 

330  PRINT"  <:D0WN>^RVS>  DESTROY  I NGCRQFFJ  TR 

ACK";T 

340  J0B=224 

350  G0SUB400 

360  PRINT" tDOWN>DONE ! " 

370  CLOSE 15 

380  END 

390  REM  JOB  QUEUE 
400  TRY=0 

410  PRINT#15. "M-W"CHR* (8) CHR* (O) CHR* (2) C 
HR*(T)CHR*(0) 

420  PRINT#15, "M-W"CHR*<1)CHR*(0)CHR*<1)C 

HR*(JOB) 

430  TRY=TRY+1 

440  PRINT#15, "M-R"CHR* ( 1 ) CHR* (O) 

450  GET#15,E* 

460  IFE*=""THENE*=CHR*(0) 

470  E=ASC(E*) 

480  IFTRY=500G0T0510 

490  IFE>127G0TQ430 

500  RETURN 

510  CL0SE15 

520  PRINT"  <:down>  CRVSJFAILEDCROFFJ " 
530  END 

540  REM  21  ERROR 

550  DATA  32,163,253,169,  85,141,  1,  28 
560  DATA  162,255,160,  48,  32,201,253,  32 
570  DATA       0,254,169,      1,  76,105,249,234 
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FULL  TRACK  21  ERROR  SOURCE  LISTING 


100 

REM 

21. PAL 

1 10 

REM 

120 

□PEN2,8,2, 

■1 

@o: 21 . B, P, W 

130 

REM 

140 

SYS40960 

150 

5 

160 

.□FT 

P,02 

170 

» 

180 

*=  «0500 

190 

» 

200 

JSR 

«FDA3 

» 

ENABLE  WRITE 

210 

LDA 

#*55 

5 

NON  SYNC  BYTE 

220 

STA 

*1C01 

230 

LDX 

#*FF 

240 

LDY 

#«48 

250 

JSR 

«FDC9 

5 

WRITE  18432  NON 

ES 

260 

JSR 

«FEOO 

5 

ENABLE  READ 

270 

LDA 

#*01 

280 

JMP 

*F969 

Full  Track  21  Error  Source  Annotation 

This  routine  borrows  from  FORMT  ($FAC7).  Prior  to  formatting  a  track,  the  FDC  erases 
it  with  sync  marks  ($FDA3).  Experimentation  has  shown  that  an  RTS  from  this  ROM 
entry  point  would  create  a  track  of  all  20  errors.  Thus  we  are  forced  to  trace  the  FORMT 
routine  a  little  farther.  The  subroutine  WRTNUM  ($FDC3)  writes  either  sync  or  non- 
sync  bytes.  By  entering  six  bytes  into  this  routine  we  can  establish  the  number  of  bytes 
it  writes.  A  JSR  to  $FEOO  is  necessary  to  re-enable  read  mode.  Otherwise  the  write 
head  is  left  on  and  it  will  erase  everything  in  its  path.  Note  that  we  LDA  #$01,  the 
FDC  error  code  for  OK,  and  JMP  to  the  error  handler  at  $F969  to  exit. 

7.7  How  to  Create  a  21  Error  on  a  Single  Sector 

Limitations:  Preceding  sector  must  be  intact  (See  the  annotation  below). 
Parameters:  Track  and  sector  number. 
DESTROY  A  SECTOR 

100  REM  DESTROY  A  SECTOR  -  1541 
110  DIMD«(7) 

120  PRINT"  <:CLR>DESTROY  A  SECTOR  -  1541" 
130  PRINT" <DOWN> INSERT  CLONE   IN  DRIVE" 
140   INPUT"  <:D0WN> DESTROY  TRACK  AND  SECTOR 

<T,S)  ";t,s 
1 50  I FT< 1 ORT  >35THENEND 
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1 60  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

170  ifs<oors>nsthemend 

180  input" ^down] are  you  sure    ycleft  3> " 

;q$ 

1 90  i fq«<  > " y " themend 

200  0PEN15, 8, 15 

210  PRINT#15, "10" 

220   I NPUT# 1 5 , EN* , EM* . ET* , ES* 

230  IFEN*="00"G0T0280 

240  PRINT"^DOWN>"EN*", "EM*", "ET*", "ES* 

250  CLOSE 15 

260  END 

270  REM  SEEK 

280  IFS=0THENS=NS:G0T0300 

290  S=S-1 

300  J0B=176 

310  G0SUB570 

320  REM  READ 

330  J0B=128 

340  G0SUB570 

350  F0RJ=0T07 

360  F0RI=0T07 

370  READD 

380  D*(J)=D*(J)+CHR*(D) 

390  NEXTI 

400  NEXTJ 

410  I=0 

420  F0RJ=0T07 

430  PRINT#15, "M-W"CHR* ( I ) CHR* (5) CHR* (8) D 
*(J) 

440  1=1+8 
450  NEXTJ 
460  REM  EXECUTE 

470  PRINT»15, "M-W"CHR*(2)CHR*<0)CHR*(1)C 
HR*(224) 

480  PR  I  NT4t  1 5 ,  "  M-R  "  CHR*  <  2 )  CHR*  ( 0 ) 

490  GET#15,E* 

500  IFE*=""THENE*=CHR*(0) 

510  E=ASC(E*) 

520  IFE>127G0T0480 

530  CLOSE 15 

540  PRINT"  ^ DOWN}- DONE  !  " 
550  END 

560  REM  JOB  QUEUE 
570  TRY=0 

580  PRINT#15, "M-W"CHR*(8)CHR*(0)CHR*(4)C 
HR* (T) CHR* (S) CHR* (T) CHR* (S) 

590  PRINT#15,  "M-W"CHR*  ( 1 )  CHR*  (O)  CHR*  (DC 

HR* (JOB) 

600  TRY=TRY+1 
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610  PRINT#15, "M-R"CHR« ( 1 ) CHR* (O) 

620  GET#15,E* 

630   IFE«=""THENE*=CHR« (O) 

640  E=ASC(E«) 

650  IFTRY=500G0T0680 

660  IFE>127G0T0600 

670  IFE=1THENRETURN 

680  CLOSE 15 

690  PRINT"  <DOWN>  <RVS>FAILED<:R0FF>  " 
700  END 

710  REM  DESTROY  A  SECTOR 

720  DATA  32,  16,245,  32,  86,245,162,  O 
730  DATA  80,254,184,202,208,250,162,  69 
740  DATA  80,254,184,202,208,250,169,255 
750  DATA141,  3,  28.173,  12,  28,  41,  31 
760  DATA  9,192,141,  12,  28,162,  0,169 
770  DATA  85,  80,254,184,141,  1,  28,202 
780  DATA208,247,  80,254,  32,  0,254,169 
790  DATA     1,  76,105,249,234,234,234,234 

SINGLE  SECTOR  21  ERROR  SOURCE  LISTING 

100  REM  DAS. PAL 
110  REM 

120  0PEN2,8,2, "@0:DAS.B,P,W" 

130  REM 

140  SYS40960 

150  ; 

160   .OPT  P,02 
170  ; 

180  «=  *0500 
190  ; 

200  JSR  *F510  ;   FIND  HEADER 
210  JSR  *F556  ;   FIND  SYNC 
220  ; 

230  ;«  WAIT  OUT  DATA  * 
240  ; 

250  LDX  #«00 

260  READl   BVC  READl 

270  CLV 

280  DEX 

290  BNE  READl 

300  ; 

310  LDX  #«45 

320  READ2  BVC  READ2 

330  CLV 

340  DEX 

350  BNE  READ2 

360  ; 

370  LDA  #*FF   ;    DATA  DIRECTION  OUT 
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OOU 

3  1  H 

*  1 

* 1 UUU  9 

HNU 

*f  1  U 

UKH 

3  1  H 

^  1  cue 

5 

*f  *f  U 

LDX 

#*oo 

/I  cr 

LDA 

#*55 

/I  / 

WRITEl  BVC 

*f  /  C 

CLV 

STA 

*1C01 

DEX 

BNE 

WRITEl 

5 

WRITE2  BVC 

5 

JSR 

*FE00 

550 

■ 

560 

LDA 

#*01 

570 

JMP 

SF969 

ENABLE  WRITE  MODE 


ENABLE  READ  MODE 


Single  Sector  21  Error  Source  Annotation 

This  routine  finds  the  preceding  sector  and  syncs  up  to  its  data  block  Qines  200-210). 
Lines  250-350  wait  out  325  GCR  bytes.  We  flip  to  write  in  lines  370-420  and  write  out 
256  non-sync  bytes.  This  overwrites  both  sync  marks  of  the  sector  that  was  input.  This 
routine  will  create  a  20  error  on  a  single  sector  as  it  stands.  By  serendipity,  it  has  a 
unique  side  effect.  If  two  consecutive  sectors  are  destroyed  we  get  a  21  error  on  both 
of  them.  The  FDC  times  out  trying  to  find  one  or  the  other  or  both.  Caution  must  be 
used  when  spanning  a  sector  range.  To  duplicate  the  following  scheme  we  must  destroy 
sector  0  first  followed  by  sectors  20,  19,  and  18  respectively. 


Sector  Error  Number 

0  21 
1-17  OK 
18  -  20  21 

Repeat.  This  routine  will  not  create  a  21  error  on  a  single  sector  per  se.  Two  consecutive 
sectors  must  be  destroyed. 


7.8  How  to  Create  a  23  Error  on  a  Single  Sector 

Limitations:  None. 

Parameters:  Track  and  sector  number. 
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SINGLE  SECTOR  23  ERROR 


100  REM  23A  ERROR  -  1541 

110  DIMD*<11) 

120  PRINT"  <:CLR> 23  ERROR  -  1541" 

130  PRINT"  <:D0WN>  INSERT  CLONE   IN  DRIVE" 

140  INPUT"  <:D0WN3  DESTROY  TRACK  AND  SECTOR 

(T,S) ";T,S 

150  IFT<10RT>35THENEND 

160  NS=20+2*(T>17)+(T>24)+<T>30> 

170  ifs<oors>nsthenend 

180  input" cdown> are  you  sure    y cleft  3> " 

;q« 

1 90  i f0*<  > " y " thenend 

200  0PEN15,8, 15 

210  PRINT#15, "10" 

220  INPUT#15,EN*,EM*,ET*,ES* 

230  IFEN*="00"G0T0280 

240  PRINT" CDOWN> "EN*",    "EM*" , "ET*" , "ES* 

250  CLOSE 15 

260  END 

270  REM  SEEK 

280  J0B=176 

290  G0SUB550 

300  REM  READ 

310  J0B=128 

320  G0SUB550 

330  F0RJ=0T011 

340  F0RI=0T07 

350  READD 

360  D*(J)=D*(J)+CHR*<D) 

370  NEXTI 

380  NEXTJ 

390  1=0 

400  FOR J =0 TO 11 

410  PRINT#15, "M-W"CHR*(I)CHR*(5>CHR*<8)D 
*(J) 

420  I=I+B 
430  NEXTJ 
440  REM  EXECUTE 

450  PR1NT#15, "M-W"CHR*<2)CHR*(0)CHR*(1)C 
HR*(224) 

460  PRINT#15, "M-R"CHR*(2>CHR*(0) 

470  GET#15,E* 

480   I FE*= " " THENE*=CHR* ( O ) 

490  E=ASC(E*) 

500  IFE>12760T0460 

510  CL0SE15 

520  PRINT" tDOWND  DONE ! " 

530  END 
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540  REM  JOB  QUEUE 
550  TRY=0 

560  PRINT#15, "M-W"CHR* (8) CHR$ (O) CHR$ (4) C 

HR* (T) CHR*  <S) CHR* (T) CHR* (S) 

570  PR  I  NT#  1 5 ,  "  M-W  "  CHR$  ( 1 )  CHR*  ( O )  CHR*  (DC 

HR*(JOB) 

580  TRY=TRY+1 

590  PRINT#15. "M-R"CHR*(1)CHR*(0) 

600  GET#15,E* 

610  IFE*=""THENE*=CHR$(0) 

620  E=ASC(E*) 

630  IFTRY=500G0T0660 

640  IFEM27G0T0580 

650  RETURN 

660  CLOSE 15 

670  PRINT" <DOWN>  <RVS3  FAILED<ROFF> " 
680  END 

690  REM  23  ERROR 

700  DATA  169,  4,133,  49,165,  58,170,232 
710  DATA  138,133,  58,  32,143,247,  32,  16 
720  DATA  245,162,  8,  80,254,184,202,208 
730  DATA  250,169,255,141,  3,  28,173,  12 
740  DATA  28,  41,  31,  9,192,141,  12,  28 
750  DATA  169,255,162,  5,141,  1,  28,184 
760  DATA  80,254,184,202,208,250,160,187 
770  DATA  185,  O,  1,  80,254,184,141,  1 
780  DATA  28,200,208,244,185,  O,  4,  80 
790  DATA  254,184,141,  1,  28,200,208,244 
800  DATA  SO, 254,  32,  0,254,169,  5,133 
810  DATA     49,169,      1,  76,105,249,234,234 

SINGLE  SECTOR  23  ERROR  SOURCE  LISTING 

100  REM  23A.PAL 
110  REM 

120  0PEN2, 8,2, "@0: 23A- B, P, W" 

130  REM 

140  SYS40960 

150  ; 
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CONVERT  TO 
FIND  HEADER 

WAIT  OUT  G 


160  .OPT  P,02 
170  ; 

180  *=  $0500 
190  ; 

200  LDA  #*04 
210  STA  *31 
220  ; 

230  LDA  *3A 
240  TAX 

250  I NX  ;  INCREMENT 

CHECKSUM 

260  TXA 

270  STA  *3A 

280  ; 

290  JSR  *F78F 
GCR 

300  JSR  *F510 
# 

310  ; 

320  LDX  #*08 
330  WAITGAP  BVC  WAITGAP 
AP 

340  CLV 
350  DEX 

360  BNE  WAITGAP 
370  ; 

380  LDA  «*FF 
TE 

390  STA  *1C03 
400  LDA  *1C0C 
410  AND  «*1F 
420  ORA  #*C0 
430  STA  *1C0C 
440  LDA  #*FF 
450  LDX  «*05 
460  STA  *1C01 
470  CLV 

480  WRITESYNC  BVC  WRITESYNC 
490  CLV 
500  DEX 

510  BNE  WRITESYNC 
520  ; 

530  LDY  «*BB 

540  OVERFLOW  LDA  *0100, Y  ;    WRITE  OUT 

OVERFLOW  BUFFER 

550  WAITl   BVC  WAITl 

560  CLV 

570  STA  *1C01 

580   I NY 

590  BNE  OVERFLOW 


ENABLE  WRI 
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600  BUFFER  LDA  *0400, Y 
BUFFER 

610  WAIT2  BVC  WAIT2 

620  CLV 

630  STA  *1C01 

640  I NY 

650  BNE  BUFFER 

660  WAIT3  BVC  WAIT3 

670  ; 

680  JSR  *FEOO 
D 

690  ; 

700  LDA  #*05 

710  STA  *31 

720  LDA  #*01 

730  JMP  *F969 

Single  Sector  23  Error  Source  Annotation 

This  routine  borrows  from  WRIGHT  ($F56E).  Our  entry  point  is  12  bytes  into  the  routine. 
This  bypasses  the  write  protect  test  and  the  computation  of  the  checksum.  The  driver 
routine  reads  the  sector  into  $0400-$04FF.  Lines  200-210  of  the  source  listing  set  the 
indirect  buffer  pointer  to  this  workspace.  The  checksum  is  next  incremented  at  $003A. 
Buffer  number  1  is  converted  to  GCR  form.  Recall  that  260  data  bytes  are  converted 
into  325  8-bit  GCR  bytes.  More  than  one  buffer  is  used  to  store  the  GCR  image.  The 
first  69  GCR  bytes  are  stored  in  an  overflow  buffer  at  $01BB-$01FF.  The  remaining 
256  bytes  are  found  at  $0400-$04FF.  We  sync  up  to  the  appropriate  sector  in  line  300, 
count  off  the  eight  byte  header  gap,  and  flip  to  write  mode.  Five  $FFs  are  then  written 
to  disk  (the  sync  mark)  followed  first  by  the  overflow  buffer  and  then  the  regular  buf- 
fer. We  restore  the  indirect  buffer  pointer  at  $0031  to  a  $05  and  jump  to  the  error  handler 
with  a  $01  in  hand. 

7.9  How  to  Duplicate  a  23  Error  on  a  Single  Sector 

Limitations:  None  (Requires  disk  swapping). 
Parameters:  Track  and  sector  number. 
DUPLICATE  A  SINGLE  SECTOR  23  ERROR 

100  REM  DUPLICATE  A  23  ERROR  -  1541 
110  DIMD*(10) 

120  PRINT"  <:CLR> DUPLICATE  A  23  ERROR  -  15 
41" 

130  PRINT"  {:D0WN>  INSERT  MASTER  DISKETTE  I 
N  DRIVE" 

140   INPUT"  <:D0WN3  READ  TRACK  AND  SECTOR  (T 
,S) ";t,s 

150  IFT<10RT>35THENEND 


;    WRITE  OUT 


;    ENABLE  REA 
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1 60  NS=20+2*  <  T  > 1 7 )  +  ( T  >24 )  +  <  T  >30  > 

170  ifs<oors>nsthenend 

180  input"  <: down >  are  you  sure    y^left  3>  " 

;q$ 

190  ifq*<>"y"thenend 

200  0PEN15,8, 15 

210  PRINT#15, " 10" 

220  INPUT#15,EN*,EM*,ET*,ES* 

230  IFEN«="00"G0T0280 

240  PRINT" ^D0WN>"EN«",    "EM*" , "ET*" , "ES* 

250  CLOSE 15 

260  END 

270  REM  SEEK 

280  J0B=176 

290  G0SUB650 

300  REM  READ 

310  J0B=128 

320  G0SUB650 

330  CLOSE 15 

340  PRINT" ^DOWN> INSERT  CLONE  IN  DRIVE" 
350  PRINT"  ^DOWNJPRESS  <:RVS>RETURNCR0FF> 
TO  CONTINUE" 

360  GETC* : I FC«= " " THEN360 

370  I FC*<  >CHR* (13) G0T036b 

380  PR I NT "OK" 

390  0PEN15,3, 15 

400  REM  SEEK 

410  J0B=176 

420  G0SUB650 

430  F0RJ=0T010 

440  F0RI=0T07 

450  READD 

460  D*(J)=D*(J)+CHR*(D) 

470  NEXTI 

480  NEXT J 

490  1=0 

500  F0RJ=OTO10 

510  PRINT#15, "M-W"CHR*(I)CHR*(5)CHR*(8)D 
*(J) 

520  1=1+8 
530  NEXT J 
540  REM  EXECUTE 

550  PRINT#15,  "M-W"CHR*  <2)  CHR*  (O)  CHR*  (DC 
HR* (224) 

560  PRINT#15, "M-R"CHR«(2)CHR*(0) 

570  GET#15,E* 

580  IFE$=""THENE*=CHR*(0) 

590  E=ASC(E*) 

600  IFE>127G0T0560 

610  CL0SE15 
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620  PRINT"  <:D0WN> DONE  !  " 
630  END 

640  REM  JOB  QUEUE 
650  TRY=0 

660  PRINT#15, "M-W"CHR«(8)CHR*(0)CHR«(4)C 

HR* (T) CHR* (S) CHR* (T) CHR* (S) 

670  PRINT#15, "M-W"CHR*(1)CHR*(0)CHR*(1)C 

HR*(JOB) 

680  TRY=TRY+1 

690  PRINT#15, "M-R"CHR*(1)CHR*<0) 

700  GET#15,E* 

710  IFE*=""THENE«=CHR*(0) 

720  E=ASC(E*) 

730  IFTRY=500G0T0760 

740  IFEM27G0T0680 

750  RETURN 

760  PR I NT " t DOWN>  FA I LED " 
770  CLOSE 15 
780  END 

790  REM  DUPLICATE  A  SECTOR 

800  DATA  169,  4,133,  49,  32,143,247,  32 
810  DATA  16,245,162,  8,  80,254,184,202 
820  DATA  208,250,169,255,141,  3,  28,173 
830  DATA  12,  28,  41,  31,  9,192,141,  12 
840  DATA  28,169,255,162,  5,141,  1,  28 
850  DATA  184,  80,254,184,202,208,250,160 
860  DATA  187,185,  O,  1,  80,254,184,141 
870  DATA  1,  28,200,208,244,185,  O,  4 
880  DATA  80,254,184,141,  1,  28,200,208 
890  DATA  244,  80,254,  32,  0,254,169,  5 
900  DATA  133,  49,169,  1,  76,105,249,234 
DUPLICATE  A  SINGLE  SECTOR  23  ERROR  SOURCE  LISTING 


100  REM  23B.PAL 
110  REM 

120  0PEN2, 8, 2, "SO: 23B. B, P, W" 

130  REM 

140  SYS40960 

150  ; 
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160   .OPT  P,02 
170  ; 

ISO  »=  *0500 
190  ; 

200  LDA  #«04 
210  STA  *31 
220  ; 

230  JSR  «F73F  ;   CONVERT  TO 

GCR 

240  JSR  *F510  ;   FIND  HEADER 

# 

250  ; 

260  LDX  #*0S 

270  WAITGAP  BVC  WAITGAP  ;    WAIT  OUT  G 

AP 

2S0  CLV 
290  DEX 

300  BNE  WAITGAP 
310  ; 

320  LDA  #*FF  ;    ENABLE  WRI 

TE 

330  STA  *1C03 
340  LDA  «1C0C 
350  AND  #*1F 
360  ORA  #*C0 
370  STA  *1C0C 
380  LDA  #*FF 
390  LDX  #*05 
400  STA  *1C01 
410  CLV 

420  WRITESYNC  BVC  WRITESYNC 
430  CLV 
440  DEX 

450  BNE  WRITESYNC 
460  ; 

470  LDY  #*BB 

480  OVERFLOW  LDA  *0100,Y  ;    WRITE  OUT 

OVERFLOW  BUFFER 

490  WAITl   BVC  WAITl 

500  CLV 

510  STA  *1C01 

520   I NY 

530  BNE  OVERFLOW 

540  BUFFER  LDA  *0400,Y  ;    WRITE  OUT 

BUFFER 

550  WAIT2  BVC  WAIT2 

560  CLV 

570  STA  «1C01 

580   I NY 

590  BNE  BUFFER 
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600  WAIT3  BVC  WAIT3 
610  ; 

620  JSR  *FEOO  ;    ENABLE  REA 

D 

630  ; 

640  LDA  #*05 
650  STA  *31 
660  LDA  #*01 
670  JMP  *F969 


Duplicate  a  Single  Sector  23  Error  Source  Annotation 

Identical  to  the  23A.PAL  file  with  one  exception.  The  checksum  is  left  intact  after  a 
corrupted  data  block  is  read  from  the  master  using  the  job  queue.  The  sector  is  stored 
at  $0400-$04FF  and  the  checksum  at  $003A.  The  checksum  is  not  recalculated  or  in- 
cremented. The  entire  sector  and  its  checksum  are  rewritten  to  the  clone. 

7.10  How  to  Create  23  Errors  on  a  Full  Track 

Limitations:  None. 
Parameters:  Track  number. 
FULL  TRACK  23  ERROR 

100  REM  23M  ERROR  -  1541 
110  DIMD*(11) 

120  PRINT" tCLRJ MULTIPLE  23  ERROR  -  1541" 

130  PRINT" tDOWNJ INSERT  CLONE   IN  DRIVE" 
140   INPUT" tDOWNJ DESTROY  TRACK"; T 
1 50   I FT< 1 ORT  >35THENEND 

160   INPUT" tDOWN> ARE  YOU  SURE     YtLEFT  3> " 

170  IFQ*<>"Y"THENEND 

180  0PEN15,8, 15 

190  PRINT#15, " 10" 

200  INPUT#15,EN*,EM*,ET*,ES* 

210  IFEN*="00"G0T0260 

220  PRINT" tDOWN> "EN*",    "EM*" , "ET*" , "ES* 

230  CLOSE 15 

240  END 

250  REM  SEEK 

260  J0B=176 

270  G0SUB580 

280  NS=20+2*  ( T  >  1 7 )  +  ( T  .>24  >  +  ( T  >30 ) 
290  FORS=OTONS 
300  REM  READ 
310  J0B=128 
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320  G0SUB5S0 
330  IFS>0G0T0460 
340  F0RJ=0T011 
350  F0RI=0T07 
360  READD 

370  D*(J)=D*(J)-«-CHR*(D) 

380  NEXT I 

390  NEXTJ 

400  1=0 

410  F0RJ=OTail 

420  PRINT#15,  "M-WCHR*  ( I )  CHR*  (5)  CHR*  (8)  D 
*(J> 

430  1=1+8 
440  NEXTJ 
450  REM  EXECUTE 

460  PRINT" <HOME> tDOWN  8> {RVSJDESTROYINGt 
ROFF>   TRACK" T"-  SECTOR "S 

470  PRINT#15, "M-W"CHR*(2)CHR*(0)CHR*(1)C 
HR*(224) 

480  PRINT#15, "M-R"CHR*(2)CHR*(0) 

490  GET#15,E* 

500  IFE*=""THENE*=CHR*(0) 

510  E=ASC(E*) 

520  IFE>127G0T0480 

530  NEXTS 

540  CLOSE 15 

550  PRINT" CHOMEItDOWN  SJDONE! 

II 

560  END 

570  REM  JOB  QUEUE 
580  TRY=0 

590  PRINT#15. "M-W"CHR*(8)CHR*(0)CHR*(4)C 
HR*  (T)  CHR*  (S)  CHR*  (T)  CHR*  (S) 

600  PRINT#15,  "M-W"CHR*  ( 1 )  CHR*  (O)  CHR*  (DC 

HR*(JOB) 

610  TRY=TRY-H 

620  PRINT#15, "M-R"CHR* ( 1 ) CHR* (O) 

630  GET#15,E* 

640   IFE*=""THENE*=CHR* (O) 

650  E=ASC(E*) 

660  IFTRY=500GaT0690 

670  IFE>127GaTa610 

680  RETURN 

690  CLOSE 15 

700  PRINT"  CDOWNJ  <:RVS>FAILED<R0FF>  " 
710  END 

720  REM  23  ERROR 

730  DATA  169,  4,133,  49,165,  58,170,232 
740  DATA   138,133,    58,    32,143,247,    32,  16 
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750  DATA  245,162,  8,  80,254,184,202,208 
760  DATA  250,169,255,141,  3,  28,173,  12 
770  DATA  28,  41,  31,  9,192,141,  12,  28 
780  DATA  169,255,162,  5,141,  1,  28,184 
790  DATA  80,254,184,202,208,250,160,187 
800  DATA  185,  O,  1,  80,254,184,141,  1 
810  DATA  28,200,208,244,185,  0,  4,  80 
820  DATA  254,184,141,  1,  28,200,208,244 
830  DATA  80,254,  32,  0^254,169,  5,133 
840  DATA     49,169,      1,133,      2,  76,117,249 

FULL  TRACK  23  ERROR  SOURCE  LISTING 


100  REM  23M.PAL 
110  REM 

120  0PEN2,8,2, "@0:23M.B,P,W" 
130  REM 
140  SYS40960 
150  ; 

160   .OPT  P,02 
170  ; 

180  *=  *0500 
190  ; 

200  LDA  #*04 
210  STA  *31 
220  ; 

230  LDA  *3A 
240  TAX 
250  INX 
CKSUM 
260  TXA 
270  STA  *3A 
280  ; 

290  JSR  *F7aF 
R 

300  JSR  *F510 
310  ; 

320  LDX  #*08 

330  WAITGAP  BVC  WAITGAP     ;    WAIT  OUT  GAP 
340  CLV 
350  DEX 


;    INCREMENT  CHE 


;   CONVERT  TO  GC 


FIND  HEADER 
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360 

BNE 

WAITGAP 

370 

i 

380 

LDA 

#*FF 

390 

STA 

*1C03 

400 

LDA 

*1C0C 

410 

AND 

#*1F 

420 

□RA 

#*C0 

430 

STA 

*1C0C 

440 

LDA 

tt*FF 

450 

LDX 

tt*05 

460 

STA 

*1C01 

470 

CLV 

480 

WRITESYNC  BVC 

490 

CLV 

500 

DEX 

510 

BNE 

WRITESYNC 

520 

530 

LDY 

#$BB 

540 

OVERFLOW  LDA 

ENABLE  WRITE 


RFLOW  BUFFER 

550  WAITl   BVC  WAITl 

560  CLV 

570  STA  *1C01 

580   I NY 

590  BNE  OVERFLOW 

600  BUFFER  LDA  *0400,Y  ;  WRITE  OUT  BUF 
FER 

610  WAIT2  BVC  WAIT2 

620  CLV 

630  STA  *1C01 

640   I NY 

650  BNE  BUFFER 

660  WAIT3  BVC  WAIT3 

670  ; 

680  JSR  *FE00  ;    ENABLE  READ 

690  ; 

700  LDA  tt«05 
710  STA  *31 
720  LDA  #*01 
730  STA  *02 
740  JMP  *F975 


Full  Track  23  Error  Source  Annotation 

See  the  annotation  for  23A.PAL.  The  BASIC  driver  loops  to  do  all  sectors  on  a  given 
track. 
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7.1 1  How  to  Create  a  20  Error  on  a  Single  Sector 

Limitations:  Preceding  sector  must  be  intact. 

(See  the  annotation  for  a  single  sector  21  error) 

Parameters:  Track  and  sector  number. 

SINGLE  SECTOR  20  ERROR 

100  REM  20  ERROR  -  1541 
110  DIMD*(11) 

120  PRINT" {CLR>20  ERROR  -  1541" 

130  PRINT" {DOWNJ INSERT  CLONE   IN  DRIVE" 

140   INPUT"  <:D0WN3  DESTR0Y  TRACK  AND  SECTOR 

(T,S) ";t,s 
150  I FT< 1 ORT  >35THENEND 
1 60  NS=20+2*  <  T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 
170  IFS<OORS>NSTHENEND 

180   INPUT"  <:D0WN>ARE  you  SURE     Y^LEFT  3> " 

;q« 

190  ifq*<>"y"thenend 

200  0PEN15,8, 15 

210  PRINT#15, "10" 

220  I NPUT# 15, EN* , EM* , ET« , ES* 

230  IFEN*="00"G0T0280 

240  PRINT" <DOWN> "EN*",    "EM*" , "ET*" , "ES* 

250  CLOSE 15 

260  END 

270  REM  SEEK 

280  IFS=0THENS=NS:G0T0300 

290  S=S-1 

300  J 08=176 

310  G0SUB570 

320  REM  READ 

330  J0B=128 

340  G0SUB570 

350  F0RJ=0T011 

360  F0RI=0T07 

370  READD 

380  D*(J)=D«(J)+CHR*(D) 

390  NEXT I 

400  NEXTJ 

410  1=0 

420  F0RJ=0T011 

430  PRINT#15,  "M-W"CHR*(I)CHR*(5)CHR*(S)D 
*<J) 

440  1=1+8 
450  NEXTJ 
460  REM  EXECUTE 

470  PRINT#15, "M-W"CHR* (2) CHR* (O) CHR*  < 1 ) C 
HR*(224) 
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480  PR I NT# 15," M-R " CHR* ( 2 ) CHR$ ( O ) 

490  eET#15,E$ 

500  IFE$=""THENE$=CHR*(0) 

510  E=ASC(E$) 

520  IFE>127G0TD480 

530  CLOSE 15 

540  PRINT" CDOWNJDDNE! " 

550  END 

560  REM  JOB  QUEUE 
570  TRY=0 

580  PR I NT# 1 5 , " M-W " CHR* ( 8 ) CHR$ ( O ) CHR$ ( 4 ) C 

HR* (T) CHR* (S) CHR* (T) CHR$ (S) 

590  PRINT4*15,  "M-W"CHR*  ( 1 )  CHR$  (O)  CHR*  (DC 

HR*(JOB) 

600  TRY=TRY+1 

610  PRINT#15, "M-R"CHR* ( 1 ) CHR$ (O) 

620  GET#15,E* 

630  IFE*=""THENE*=CHR*(0) 

640  E=ASC(E$) 

650  IFTRY=500GDTD680 

660  IFE>127G0T0600 

670  IFE=1THENRETURN 

680  CL0SE15 

690  PRINT"  {DOWN>  <:RVS>FAILED<R0FF>  " 
700  END 

710  REM  20  ERROR 

720  DATA  32,  16,245,  32,  86,245,160,  20 
730  DATA  165,  25,201,  18,144,  12,136,136 
740  DATA  201,  25,144,  6,136,201,  31,144 
750  DATA  1,136,230,  24,197,  24,144,  6 
760  DATA  240,  4,169,  0,133,  25,169,  O 
770  DATA  69,  22,  69,  23,  69,  24,  69,  25 
780  DATA  133,  26,  32,  52,249,  32,  86,245 
790  DATA  169,255,141,  3,  28,173,  12,  28 
800  DATA  41,  31,  9,192,141,  12,  28,162 
810  DATA  0,1S1,  36,  80,254,184,141,  1 
820  DATA  28,232,224,  8,208,243,  80,254 
830  DATA     32,      0,254,169,      1,  76,105,249 
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SINGLE  SECTOR  20  ERROR  SOURCE  LISTING 


100 

REM 

20. PAL 

110 

REM 

120 

0PEN2,8,2, 

130 

REM 

140 

SYS40960 

150 

» 

160 

.OPT  P,02 

170 

180 

*=  *0500 

190 

200 

JSR 

$F510 

K 

210 

JSR 

*F556 

220 

5 

230 

LDY 

tt*14 

240 

LDA 

*19 

250 

CMP 

tt*12 

260 

BCC 

ZONE 

270 

DEY 

280 

DEY 

290 

CMP 

#*19 

300 

BCC 

ZONE 

310 

DEY 

320 

CMP 

#*1F 

330 

BCC 

ZONE 

340 

DEY 

350 

ZONE  INC 

360 

CMP 

*18 

370 

BCC 

HEADER 

380 

BEQ 

HEADER 

390 

LDA 

4**00 

400 

STA 

*19 

410 

5 

420 

HEADER  LDA 

430 

EOR 

«16 

440 

EOR 

*17 

450 

EOR 

*18 

460 

EOR 

*19 

470 

STA 

*1A 

480 

490 

JSR 

*F934 

tt  IMAGE 

500 

JSR 

*F556 

K 

510 

LDA 

#*FF 

520 

STA 

*1C03 

530 

LDA 

*1C0C 

540 

AND 

#*1F 

FIND  HEADER  BLOC 


FIND  DATA  BLOCK 


CREATE  NEW  HEADER 


FIND  HEADER  BLOC 


WRITE  MODE 
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550  ORA  #*C0 

560  STA  *1C0C 

570  LDX  #*00 

580  WRITE  LDA  *0024, X 

590  WAITl    BVC  WAITl 

600  CLV 

610  STA  *1C01 

620  INX 

630  CPX  tt*08 

640  BNE  WRITE 

650  WAIT2  BVC  WAIT2 

660  ; 

670  JSR  *FEOO  ;    READ  MODE 

680  ; 

690  LDA  tt*01 
700  JMP  *F969 


Single  Sector  20  Error  Source  Annotation 

This  routine  represents  a  halfhearted  attempt  to  rewrite  a  header.  It  is  dependent  upon 
the  preceding  sector  being  intact.  Lines  200-210  sync  up  to  the  preceding  header  and 
data  block.  Lines  230-400  calculate  the  next  sector  in  the  zone.  A  header  image  for  the 
sector  is  created  in  RAM  at  $0024-$002C.  We  sync  up  one  more  time  which  positions 
us  to  the  start  of  the  header  block  we  want  to  destroy.  We  flip  to  write  mode  and  rewrite 
the  header.  We  are  coming  in  just  a  shade  too  slow  and  create  enough  noise  at  the  end 
of  the  sync  mark  to  destroy  the  actual  header  block  identifier.  (Tweaking  the  internal 
clock  reveals  that  the  header  was  completely  rewritten.)  If  the  tail  gap  was  a  constant 
length  our  task  would  be  analogous  to  rewriting  a  sector  where  the  FDC  syncs  up  to 
a  header  block,  reads  the  header,  and  counts  off  eight  bytes.  We  would  similarly  sync 
up  to  a  data  block,  count  off  325  GCR  bytes,  then  count  off  the  tail  gap,  and  flip  to  write 
mode.  However,  it  is  virtually  impossible  to  gauge  the  length  of  the  tail  gap,  so  we're 
stuck.  Rest  assured,  though.  It  still  gets  the  job  done. 


7.12  How  to  Create  20  Errors  on  a  Full  Track 

Limitations:  None. 
Parameters:  Track  number. 
FULL  TRACK  20  ERROR 

100  REM  20M  ERROR  -  1541 
110  DIMD*(24) 

120  PRINT" ^CLR}MULTIPLE  20  ERROR  -  1541" 

130  PRINT" £DOWN> INSERT  CLONE   IN  DRIVE" 
140   INPUT" £DOWN>DESTROY  TRACK" ;T 
1 50   I FT< 1 ORT  >35THENEND 

160   INPUT" £ DO WN> ARE  YOU  SURE     YCLEFT  3> " 
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170  IFQ*<>"Y"THENEND 

180  DPEN15,a, 15 

190  PRINT#15, "10" 

200  INPUT#15,EN*,EM4,ET«,ES* 

210  IFEN*="00"GDT0260 

220  PR  I  NT  "  {:D0WN>  "  EN«  "  ,    "  EM«  "  ,  "  ET«  "  ,  "  ES« 

230  CL0SE15 

240  END 

250  REM  SEEK 

260  NS=20+2*  <  T  > 1 7 )  +  ( T  >24 )  +  <  T  >30 ) 

270  S=NS 

280  JOB=176 

290  GDSUB5a0 

300  FaRI=0T023 

310  READD 

320  D$=D$+CHR* (D) 

330   I*=I«+CHR« <0) 

340  NEXT I 

350  PRINT#15, "M-W"CHR$<0)CHR*(6)CHR*<24) 
D$ 

360  REM  EXECUTE 

370  PRINT" CDOWN><RVS>DESTROYING<ROFFJ  TR 

ACK";T 

330  J0B=224 

390  G0SUB580 

400  PRINT#15, "M-W"CHR*  <0) CHR*  <6) CHR«  <24) 
1$ 

410  FORJ=OTG24 
420  F0RI=0T07 
430  READD 

440  D*<J)=D«<J)+CHR«<D) 
450  NEXTI 
460  NEXTJ 
470  I=0 

480  FORJ=OT024 

490  PRINT#15, "M-W"CHR«<I)CHR«(4)CHR«<8)D 
*<J) 

500  1=1+8 
510  NEXTJ 
520  REM  EXECUTE 

530  PRINT#15, "M-E"CHR*  <0) CHR« (4) 

540  CLOSE 15 

550  PRINT" tDOWN> DONE ! " 

560  END 

570  REM  JOB  QUEUE 
580  TRY=0 

590  PRINT#15, "M-W"CHR« (12) CHR« (O) CHR«  <2) 
CHR*<T)CHR«<S) 

600  PRINT#15, "M-W"CHR*<3)CHR«(0)CHR«<1)C 
HR«(JOB) 
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610  TRY=TRY+1 

620  PRINT#15, "M-R"CHR*(3)CHR*(0) 

630  GET#15,E* 

640  IFE*=""THENE*=CHR*(0) 

650  E=ASC(E*> 

660  IFTRY=500G0T0690 

670  IFE>127G0T0610 

680  RETURN 

690  CLOSE 15 

700  PRINT"  <:down>  •crvsjfailed^roff:-  " 

710  END 

720  REM  21  ERROR 

730  DATA  32,163,253,169,  85,141,  1,  28 
740  DATA  162,255,160,  48,  32,201,253,  32 
750  DATA  0,254,169,  1,  76,105,249,234 
760  REM  20M  ERROR 

770  DATA169,  0,133,127,166,  12,134,  81 
780  DATA134, 128, 166,  13,232,134,  67,169 
790  DATA  1,141,  32,  6,169,  8,141,  38 
800  DATA  6,169,  0,141,  40,  6,  32,  0 
810  DATA193,162,  0,169,  9,157,  0,  3 
820  DATA232,232, 173,  40,  6,157,  O,  3 
830  DATA232,165,  81,157,  O,  3,232,169 
840  DATA  0,157,  0,  3,232,157,  O,  3 
850  DATA232,169,  15,157,  O,  3,232,157 
860  DATA  O,  3,232,169,  O,  93,250,  2 
870  DATA  93,251,  2,  93,252,  2,  93,253 
880  DATA  2,157,249,  2,238,  40,  6,173 
890  DATA  40,  6,197,  67,208,189,138,  72 
900  DATA169,  75,141,  O,  5,162,  1,138 
910  DATA157,  O,  5,232,208,250,169,  O 
920  DATA133,  48,169,  3,133,  49,  32,  48 
930  DATA254, 104, 168, 136,  32,229,253,  32 
940  DATA245, 253, 169,  5,133,  49,  32,233 
950  DATA245,133,  58,  32,143,247,169,  35 
960  DATA133,  81,169,169,141,  O,  6,169 
970  DATA  5,141,  1,  6,169,133,141,  2 
980  DATA  6,169,  49,141,  3,  6,169,  76 
990  DATA141,  4,  6,169,170,141,  5,  6 
1000  DATA169,252, 141,      6,  6,169,224,133 

lOlO  DATA     3,165,      3,    48,252,  76,148,193 
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FULL  TRACK  20  ERROR  SOURCE  LISTING 


100 

REM 

20M.PAL 

110 

REM 

120 

0PEN2,8,2,  "©0:2 

OM. 

B, P, W" 

130 

REM 

140 

SYS40960 

150 

160 

-OPT  P,02 

170 

J 

180 

♦=  *0400 

190 

200 

;  ♦ 

INITIALIZATION 

♦ 

210 

5 

220 

LDA 

#*00 

230 

STA 

*7F 

240 

LDX 

*0C 

250 

STX 

*51 

260 

STX 

*80 

270 

LDX 

*OD 

280 

INX 

290 

STX 

*43 

300 

LDA 

#*01 

310 

STA 

*0620 

320 

LDA 

#*08 

5 

TAIL  GAP 

330 

STA 

*0626 

340 

LDA 

#*oo 

350 

STA 

*0628 

5 

SECTOR  COUNTER 

360 

370 

JSR 

*C100 

IS 

LED  ON 

380 

5 

390 

( 

CREATE  HEADERS 

* 

400 

410 

LDX 

#*00 

420 

HEADER  LDA  #*09 

HBID 

430 

STA 

*0300, X 

440 

INX 

450 

INX 

5 

CHECKSUM 

460 

LDA 

*0628 

470 

STA 

*0300, X 

5 

SECTOR 

480 

INX 

490 

LDA 

*51 

500 

STA 

*0300, X 

5 

TRACK 

510 

INX 

520 

LDA 

#*oo 

530 

STA 

*0300, X 

IDL 

540 

INX 

550 

STA 

*0300, X 

IDH 

560 

INX 

570 

LDA 

#*0F 
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580 
590 
600 
610 
620 
630 


STA 
INX 
STA 
INX 


*0300, X 


GAP 


*0300, X 


;  GAP 


LDA 


#*00 


COMPUTE  CHECKSUM 


640  EOR  *02FA, X 
650  EOR  1i02FB,X 
660  EOR  *02FC,X 
670  EOR  *02FD,X 
680  STA  *02F9, X 
690  ; 

700   INC  *0628 
710  LDA  *0628 
720  CMP  *43 
730  BNE  HEADER 
740  ; 
750  TXA 
760  PHA 
770  ; 

780   ;*  CREATE  DATA  * 
790  ; 

800  LDA  #*4B  ;    1541  FORMAT 

810  STA  *05O0 

820  LDX  4**01  ;    1541  FORMAT 

830  TXA 

840  DATA  STA  *0500, X 

850  INX 

860  BNE  DATA 

870  ; 

880  ;*  CONVERT  TO  GCR  * 
890  ; 

900  LDA  #*00 
910  STA  *30 
920  LDA  4**03 
930  STA  *31 
940  JSR  *FE30 
950  PLA 
960  TAY 
970  DEY 
980  JSR  *FDE5 
990  JSR  *FDF5 
lOOO  LDA  4**05 
lOlO  STA  *31 
1020  JSR  *F5E9 
1030  STA  *3A 
1040  JSR  *F78F 
1050  ; 

1060   ;*  JUMP   INSTRUCTION  * 
1070  ; 
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1080 

LDA 

#*23 

1090 

STA 

*51 

1 100 

mo 

LDA 

#*A9 

1 120 

STA 

$0600 

1 130 

LDA 

#*05 

1140 

STA 

*060 1 

1150 

LDA 

#*85 

1 160 

STA 

*0602 

1170 

LDA 

#*31 

1 180 

STA 

$0603 

1 190 

LDA 

#*4C 

1200 

STA 

$0604 

1210 

LDA 

#*AA 

1220 

STA 

$0605 

1230 

LDA 

#*FC 

1240 

STA 

*0606 

1250 

1260 

LDA 

#*E0 

1270 

STA 

*03 

1280 

1290 

WAIT 

LDA  *03 

1300 

BMI 

WAIT 

1310 

5 

1320 

J  MP 

*C194 

Full  Track  20  Error  Source  Annotation 

This  routine  has  a  real  surprise  in  store.  Initialization  in  lines  220-290  sets  the  drive 
number  to  0  ($007F)  rather  than  rely  on  a  default.  The  track  is  read  from  the  header 
table  location  $000C  and  stored  at  $0051.  (Recall  that  the  driver  set  up  the  header  table.) 
This  memory  location  normally  contains  an  $FF  at  powerup  to  let  the  drive  know  that 
formatting  has  not  yet  begun.  We  must  reset  it  to  the  active  track,  or  the  drive  will 
do  a  BUMP  to  track  one  to  start  the  format.  Similarly,  we  read  the  sector  range  from 
$000D,  incremented  this  number  to  obtain  a  sector  total  for  the  track,  and  stored  it  at 
$0043.  Line  300  is  our  try  counter.  Normally  the  drive  makes  10  attempts  to  format 
a  single  track.  We  either  get  it  right  the  first  time  or  give  up.  (The  driver  erases  the 
track  as  a  safeguard.)  We  cannot  allow  the  FDC  to  reattempt  to  format  the  track  because 
it  will  bypass  our  machine  language  routine  and  re-enter  the  standard  ROM  routine. 
Lines  310-330  arbitrarily  sets  the  tail  gap  to  eight  bytes  in  length.  This  avoids  duplicating 
245  bytes  of  code  from  $FB1D  to  $FC12.  RAM  is  at  a  dire  premium  and  we  have  neither 
the  overhead  nor  the  desire. 

Next  we  turn  on  the  LED  for  cosmetic  purposes  fline  370)  and  build  our  header  table 
and  a  dummy  data  block  flines  410-860).  We  incremented  the  data  block  identifier  in 
line  420.  Binary  to  GCR  conversion  is  done  in  lines  900-1040.  Now  for  the  jump  instruc- 
tion. First  we  reset  the  track  number  to  35  Oines  1080-1090)  to  let  the  FDC  think  that 
this  is  the  last  track  of  a  normal  format.  Why?  We  will  be  passing  control  to  a  standard 
ROM  routine  in  a  minute  and  will  let  the  FDC  execute  it.  In  other  words,  we  are  going 
to  work  the  6502  in  both  IP  and  FDC  modes.  Formatting  is  done  as  a  single  job;  one 
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track  at  a  time.  When  a  track  is  formatted  the  FDC  looks  at  $0051  to  see  if  35  tracks 
have  been  done.  If  not,  it  increments  $0051  and  does  the  next  track  as  another  discrete 
job.  The  IP  is  going  to  wait  for  the  FDC  to  reformat  the  track  and  then  retake  control. 
We  store  the  indirect  buffer  pointer  to  our  data  block  buffer  and  a  jump  to  $FCAA  at 
$0600.  This  ensures  that  the  data  block  will  not  be  lost  in  the  ensuing  shuffle.  We  then 
set  up  the  job  queue  for  an  execute  of  buffer  number  3  ($0600)  and  away  we  go.  The 
IP  monitors  the  FDC  while  it  is  reformatting  the  track.  (Not  only  that,  but  the  FDC 
will  verify  the  track  to  ensure  that  it  was  reformatted  incorrectly!)  When  bit  seven  of 
the  job  code  ($E0)  goes  low,  the  IP  wrestles  control  away  from  the  FDC  and  jumps 
to  ENDCMD  ($C194)  to  terminate  the  routine.  DOS  ist  gut! 

7.13  How  to  Create  27  Errors  on  a  Full  Track 

Limitations:  None. 

Parameters:  Track  number. 

FULL  TRACK  27  ERROR 

100  REM  27M  ERROR  -  1541 
110  DIMD*(25) 

120  PRINT" CCLR] MULTIPLE  27  ERROR  -  1541" 

130  PRINT" CDOWN> INSERT  CLONE   IN  DRIVE" 
140   I NPUT " i D0WN3  DESTROY  TRACK " j  T 
1 50   I FT< 1 ORT  >35THENEND 

160   INPUT"  CD0WN3  ARE  YOU  SURE     Y<:LEFT  3>" 

;q$ 

170  ifd*<>"y"thenend 

180  0PEN15,8, 15 

190  PRINT#15, " 10" 

200  INPUT#15,EN*,EM*,ET*,ES* 

210  IFEN*="00"G0T0260 

220  PR I NT "C DOWN J "EN*",    "EM*" , "ET* " , "ES* 

230  CLOSE 15 

240  END 

250  REM  SEEK 

260  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

270  S=NS 

280  J0B=176 

290  G0SUB5S0 

300  F0RI=0T023 

310  READD 

320  D*=D*+CHR* (D) 

330  I*=I*+CHR*(0) 

340  NEXTI 

350  PRINT#15, "M-W"CHR*(0)CHR*(6)CHR*(24) 
D* 

360  REM  EXECUTE 
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370  PRINT"  <:down>{:rvs>  DESTROY  I  ng<:roff>  tr 
ack";t 

380  J0B=224 
390  G0SUB580 

400  PR  I  NT#  1 5 ,  '■  M-W  "  CHR«  ( O )  CHR$  ( 6 )  CHR$  ( 24 ) 
1$ 

410  F0RJ=0T025 
420  F0RI=0T07 
430  READD 

440  D*(J)=D$(J)+CHR*(D) 
450  NEXTI 
460  NEXT J 
470  1=0 

480  FDRJ=0T025 

490  PRINT#15, "M-W'CHR* ( I ) CHR« (4) CHR* (8) D 
*(J) 

500  1=1+8 
510  NEXTJ 
520  REM  EXECUTE 

530  PRINT#15. "M-E"CHR* (O) CHR* (4) 

540  CLOSE 15 

550  PRINT"  <:D0WN>D0NE  !  " 

560  END 

570  REM  JOB  QUEUE 
580  TRY=0 

590  PRINT#15, "M-W"CHR* (12) CHR* (O) CHR* (2) 
CHR* (T)CHR* (S) 

600  PRINT#15, "M-W"CHR*(3)CHR*(0)CHR*(1)C 

HR*<JOB) 

610  TRY=TRY+1 

620  PRINT#15, "M-R"CHR* (3) CHR* (0) 

630  GET#15,E* 

640  IFE*=""THENE*=CHR*(0) 

650  E=ASC(E*) 

660  IFTRY=500G0T0690 

670  IFE>127G0T0610 

680  RETURN 

690  CLOSE 15 

700  PRINT"  CDOWN}-  ^RVS>FAILEDtROFF>  " 
710  END 

720  REM  21  ERROR 

730  DATA  32,163,253,169,  85,141,  1,  28 
740  DATA  162,255,160,  48,  32,201,253,  32 
750  DATA  0,254,169,  1,  76,105,249,234 
760  REM  27M  ERROR 

770  DATA169,  0,133,127,166,  12,134,  81 
780  DATA134, 128, 166,    13,232,134,  67,169 
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790  DATA  i 
800  DATA  6 
810  DATA193 
820  DATA232 
830  DATA232 
840  DATA  O 
850  DATA232 
860  DATA  O 
870  DATA  93 
880  DATA  2 
890  DATA  40 
900  DATA 186 
910  DATA162 
920  DATA250 
930  DATA  49 
940  DATA229 
950  DATA  49 
960  DATA247 
970  DATA  O 
980  DATA 133 
990  DATA  6 
1000  DATA 14 


S8 
O 


,141,    32,      6,169,  8,141, 
,169,      0,141,    40,      6,  32, 
162,      O, 169,      a, 157,      O,  3 
232,173,    40,      6,157,      O,  3 
165,    81,157,      O,  3,232,169 
157,      O,      3,232,157,     O,  3 
169,    15,157,      O,  3,232,157 
3,232,169,      0,    93,250,  2 
251,      2,    93,252,      2,  93,253 
157,249,      2,254,249,  2,238 
6,173,    40,      6,197,  67,208 
138,    72,169,    75,141,      O,  5 
1,138,157,      O,  5,232,208 
169,      0,133,    48,169,  3,133 
32,   48,254,104,168,136,  32 
253,   32,245,253,169,  5,133 
32,233,245,133,   58,  32,143 
169,   35,133,  81,169,169,141 
6,169,      5,141,      1,  6,169 
141,      2,      6,169,    49,141,  3 
169,    76,141,      4,  6,169,170 
1,     5,      6,169,252,141,      6,  6 


1010  DATA169, 224, 133,      3,165,      3,  48,252 


1020  DATA  76,148,193,234,234,234,234,234 


FULL  TRACK  27  SOURCE  LISTING 


100  REM  27M.PAL 
110  REM 

120  0PEN2,8,2, "@0: 27M. B, P, W" 

130  REM 

140  SYS40960 

150  ; 

160  .OPT  P,02 
170  ; 

180  *=  *0400 
190  ; 

200  ;*  INITIALIZATION  * 
210  ; 

220  LDA  #*00 
230  STA  *7F 
240  LDX  *0C 
250  STX  *51 
260  STX  *80 
270  LDX  *0D 
280  I NX 
290  STX  *43 
300  LDA  #«01 
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310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 


STA  «0620 

LDA  #*oa 

STA  $0626 
LDA  #*00 
STA  *0628 


TAIL  GAP 


;    SECTOR  COUNTER 

JSR  *C100  ;    LED  ON 

;*  CREATE   HEADERS  * 
s 

LDX  #*00 

HEADER  #  LDA  #*08  ;  HBID 
STA  $0300, X 
INX 
INX 

LDA  *062S 
STA  *0300,X 
INX 

LDA  *51 
STA  $0300, X 
INX 

LDA  #$00 
STA  $0300, X 
INX 

STA  $0300. X 
INX 

LDA  #*0F 
STA  $0300, X 
INX 

STA  $0300, X 
INX 

LDA  #*00 
EOR  *02FA,X 
EOR  $02FB, X 
EOR  $02FC, X 
EOR  $02FD,X 
STA  *02F9,X 
? 

INC  *02F9,X 


;  CHECKSUM 

;  SECTOR 

;  TRACK 

;  IDL 

;  IDH 

;  GAP 

;  GAP 

;  COMPUTE  CHECKSUM 


;    INCREMENT  CHECKSUM 


710  ; 

720  INC  $0628 
730  LDA  $0628 
740  CMP  $43 
750  BNE  HEADER 
760  ; 
770  TXA 
780  PHA 
790  ; 
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800  ;»  CREATE  DATA  * 
810  ; 


850  TXA 

860  DATA  STA  *0500. X 

870   I NX 

880  BNE  DATA 

890  ; 

900   ;*  CONVERT   TO  GCR  *■ 
910  ; 

920  LDA  tt$00 
930  STA  *30 
940  LDA  #*03 
950  STA  $31 
960  JSR  *FE30 
970  PLA 
980  TAY 
990  DEY 
1000  JSR  $FDE5 
1010  JSR  *FDF5 
1020  LDA  #*05 
1030  STA  *31 
1040  JSR  *F5E9 
1050  STA  *3A 
1060  JSR  *F7SF 
1070  ; 

1080  ;*  JUMP  INSTRUCTION  * 
1090  ; 

1100  LDA  #*23 
1110  STA  *51 
1120  ; 

1130  LDA  #*A9 
1140  STA  *0600 
1150  LDA  #*05 
1160  STA  *0601 
1170  LDA  #$85 
1180  STA  $0602 
1190  LDA  #*31 
1200  STA  *0603 
1210  LDA  #*4C 
1220  STA  *0604 
1230  LDA  #$AA 
1240  STA  «0605 
1250  LDA  #«FC 
1260  STA  «0606 
1270  ; 

1280  LDA  #$E0 
1290  STA  *03 


820 
830 
840 


LDA  #*4B 
STA  *O500 
LDX  #$01 


1541  FORMAT 


1541  FORMAT 


154 


1300  ; 

1310  WAIT  LDA  $03 
1320  BMI  WAIT 
1330  ; 

1340  JMP  *C194 

Full  Track  27  Error  Source  Annotation 

See  the  annotation  for  20M.PAL.  The  only  major  difference  is  in  line  700  above.  Note 
the  header  block  identifier  ($08)  in  line  420  is  left  alone. 

7.14  How  to  Create  a  22  Error  on  a  Single  Sector 

Limitations:  None. 

Parameters:  Track  and  sector  number. 

SINGLE  SECTOR  22  ERROR 

100  REM  22A  ERROR  -  1541 

110  PRINT"  <:CLR>22A  ERROR  -  1541" 

120  PRINT"  <:D0WN>  INSERT  CLONE   IN  DRIVE" 

130  INPUT"  <:D0WN> DESTROY  TRACK  AND  SECTOR 

(T,S)  ";T,S 
140  IFT<10RT>35THENEND 
150  NS=20+2»(T>17)+(T>24)+(T>30) 
160  IFS<OORS>NSTHENEND 

170  INPUT"  <:D0WN>  ARE  YOU  SURE     YtLEFT  3>" 

;q$ 

180  ifq*<>"y"thenend 

190  0PEN15,a, 15 

200  PRINT#15, "10" 

210  INPUT#15,EN*,EM*,ET*,ES* 

220  IFEN*="00"G0T0270 

230  PRINT"  <:D0WN>  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 

240  CLOSE 15 

250  END 

260  REM  SEEK 

270  J0B=176 

280  G0SUB440 

290  IFEO1G0T0550 

300  REM  READ 

310  J0B=128 

320  G0SUB44O 

330  I  FE<  >  1  ANDE<  .>4 ANDE<  >5G0T0550 

340  PRINT#15, "M-W"CHR*(71)CHR*(0)CHR*(1) 

CHR*(6) 

350  REM  WRITE 

360  J0B=144 
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370  eOSUB440 

380  PRINT#15, "M-W"CHR* (71 ) CHR* (O) CHR* ( 1 ) 
CHR*(7) 

390  IFEO1G0T0550 

400  CLOSE 15 

410  PRINT" CDOWNJDONE ! " 

420  END 

430  REM  JOB  QUEUE 

440  TRY=0 

450  PRINT#15,  '•M-W"CHR*<8)CHR*<0)CHR*(2)C 
HR*(T)CHR*(S) 

460  PRINT*»15,  "M-W"CHR*<1)CHR*<0)CHR*(1)C 

HR*(JOB) 

470  TRY=TRY+1 

480  PRINT#15, "M-R"CHR*(1)CHR*(0) 

490  GET#15,E* 

500  I  FE*=  ■'  "  THENE*=CHR*  ( O ) 

510  E=ASC(E*) 

520  IFTRY=500G0T0540 

530  IFE>127G0T0470 

540  RETURN 

550  CLOSE 15 

560  PRINT"  <:down>  <:rvs>failed<:roff> " 

570  END 

SINGLE  SECTOR  22  ERROR  SOURCE  LISTING 

None.  Line  340  in  the  program  creates  a  single  sector  22  error  by  decrementing  the 
data  block  identifier.  Line  380  restores  the  status  quo. 

7.15  How  to  Duplicate  a  22  Error  on  a  Single  Sector 

Limitations:  None  (requires  disk  swapping). 

Parameters:  Track  and  sector  number. 

DUPLICATE  A  SINGLE  SECTOR  22  ERROR 

100  REM  DUPLICATE  A  22  ERROR  -  1541 

110  PRINT" CCLRJDUFLICATE  A  22  ERROR  -  15 

41  " 

120  PRINT"  <:D0WN>  INSERT  MASTER   IN  DRIVE" 
130  INPUT" CDOWNJ TRACK  AND  SECTOR  (T,S)"; 
T,S 

140  IFT<10RT>35THENEND 

150  NS=20+2*(T>17)+(T>24)+(T>30) 

160  IFS<OORS>NSTHENEND 

170   INPUT" CDOWNJARE  YOU  SURE     YCLEFT  3J " 
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1 80   I FQ*<> " Y " THENEND 

190  OPENlSjB, 15 

200  PRINT#15, "10" 

210  INPUT#15,EN*,EM*,ET*,ES* 

220  IFEN*="00"G0T0270 

230  PRINT" {D0WN3 "EN*",    "EM*" , "ET*" , "ES* 

240  CLOSE 15 

250  END 

260  REM  SEEK 

270  J0B=176 

2B0  G0SUB550 

290  REM  READ 

300  J0B=128 

310  G0SUB550 

320  PR I NT# 1 5 , " M-R " CHR* ( 56 ) CHR*  <  O ) 

330  GET#15,D* 

340  IFD*=""THEND*=CHR*(0) 

350  CLOSE 15 

360  PRINT" tDOWN J  REMOVE  MASTER  FROM  DRIVE 

II 

370  PRINT" INSERT  CLONE   IN  DRIVE" 

380  PRINT"PRESS   {RVS>RETURN<:R0FF>   TO  CON 

TINUE" 

390  GETC*: IFC*=""THEN390 

400  IFC*<>CHR*(13)G0T0390 

410  PRINT"0K" 

420  0PEN15,8, 15 

430  REM  SEEK 

440  J0B=176 

450  G0SUB550 

460  PRINT#15, "M-W"CHR*(71)CHR*(0)CHR*(1) 
D* 

470  REM  WRITE 
480  J0B=144 
490  G0SUB550 

500  PRINT#15, "M-W"CHR*(71)CHR*(0)CHR*(1) 

CHR* (7) 

510  CL0SE15 

520  PRINT"  {:D0WN> DONE!  " 

530  END 

540  REM  JOB  QUEUE 
550  TRY=0 

560  PRINr#15, "M-W"CHR*(8>CHR*(0)CHR*(2)C 
HR*(T)CHR*(S) 

570  PRINT#15,  "M-W"CHR*  ( 1 )  CHR*  (O)  CHR*  (DC 

HR*(JOB> 

580  TRY=TRY+1 

590  PRINT#15, "M-R"CHR*<1)CHR*(0> 

600  GET#15,E* 

610  IFE*=""THENE*=CHR*(0) 
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620  E=ASC(E*> 
630  IFTRY=500G0T0660 
640  IFE>127G0T0580 
650  RETURN 

660  PRINT#15, "M-W"CHR«(71)CHR*(0)CHR«(1) 

CHR*(7) 

670  CLOSE 15 

680  PRINT" {DOWN>  CRVSJFAILED^ROFFJ " 
690  END 

DUPLICATE  A  SINGLE  SECTOR  22  ERROR  SOURCE  LISTING 

None.  Line  320  in  the  program  reads  the  data  block  identifier  from  the  master.  Lines 
460-490  duplicate  the  error  on  the  clone.  Line  500  puts  our  house  back  in  order. 

7.16  How  to  Format  a  Diskette  with  Muitiple  IDs 

Limitations:  None  (requires  disk  swapping). 
Parameters:  None. 

MULTIPLE  ID  FORMATTING 

100  REM  FORMAT  A  DISKETTE  -  1541 
no  DIMT(35)  ,H«(35)  ,L«(35) 

120  PRINT"  <:CLR  J  FORMAT  A  DISKETTE  -  1541" 

130  PRINT"  «D0WN3  INSERT   tRVS> MASTER <:R0FF> 

IN  DRIVE" 
140  G0SUB910 

150  PRINT" <:down><:rvs>fetching<:roff>  form 

ATTING  ID" 

160  0PEN15,8, 15 

170  F0RI=1T035 

180  T(I)=1 

190  NEXTI 

200  J0B=176 

210  F0RT=1T035 

220  IFT(T>=0G0T0340 

230  G0SUB970 

240  IFE=160T0280 

250  H*<T)=CHR«(0) 

260  L*(T)=CHR«<0) 

270  G0T0340 

230  PR I NT# 1 5 , " M-R " CHR*  <  22 ) CHR* ( O ) 
290  GET#15,H«(T) 

300  I FH* ( T ) = " " THENH* ( T ) =CHR« ( 0 ) 
310  PRINT#15, "M-R"CHR*<23)CHR«(0) 
320  GET#15,L*(T) 
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330   I FL* ( T ) = " " THENL* ( T ) =CHR* ( 0 ) 
340  NEXTT 
350  T=18 
360  G0SUB970 
370  CLOSE 15 

380  PRINT" CCLRD FORMAT  A  DISKETTE  -  1541" 

390  PRINT"  { DO WN>  INSERT   <:RVS3  BLANK <:R0FF> 

IN  DRIVE" 

400  G0SUB910 

410  0PEN15,8, 15 

420  F0RJ=0T06 

430  F0RI=0T07 

440  READD 

450  D*(J)=D*(J)+CHR*(D) 

460  NEXT I 

470  NEXTJ 

480  I=0 

490  F0RJ=0T06 

500  PRINT#15, "M-W"CHR$(I)CHR$(4)CHR*(a)D 
$(J) 

510  1=1+8 
520  NEXTJ 
530  F0RI=1T035 

540  PRINT#15, "M-W"CHR* (49+1) CHR$ (4) CHR* ( 
1)L$(I) 

550  PR I NT# 1 5 . " M-W " CHR* (84+1) CHR$ ( 4 ) CHR* ( 

1 ) H$ ( I ) 

560  NEXT I 

570  REM  EXECUTE 

580  PRINT" CD0WN3 iRVS3FDRMATTINGtR0FF>  01 
SKETTE" 

590  PRINT#15, "M-E"CHR* (O) CHR* (4) 
600  INPUT#15,EN*,EM*,ET*,ES* 
610  T=18 
620  S=0 
630  J0B=176 
640  G0SUB970 
650  J0B=128 
660  G0SUB970 

670  PRINT#15, "M-W"CHR*(0)CHR*(4)CHR*(3)C 

HR* (18) CHR* ( 1 ) CHR* (65) 

680  J0B=144 

690  60SUB970 

700  S=l 

710  J0B=128 

720  60SUB970 

730  PRINT#15, "M-W"CHR*(0)CHR*(4)CHR$(2)C 
HR*(0>CHR*(255) 
740  J0B=144 
750  G0SUB970 
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760  CLOSE 15 
770  0PEN15,8, 15 

780  PR I NT# 15, "NO: 1541  FORMAT" 
790  INPUT#15,EN*,EM*,ET$,ES* 
800  S=0 
810  J0B=128 
820  G0SUB970 

830  PRINT#15, "M-W"CHR*<162)CHR*(4)CHR*(2 
)CHR*(50)CHR*(54) 
840  J0B=144 
850  G0SUB970 

860  PRINT#15, "M-W"CHR*<162)CHR*(7)CHR*<2 

)CHR*(50)CHR*(54) 

870  CLOSE 15 

880  PRINT" {DOWN>DONE ! " 

890  END 

900  REM  DELAY 

910  PRINT" {DOWN>PRESS  CRVS>RETURNCR0FF3 
TO  CONTINUE" 

920  GETC*: IFC$=""THEN920 

930   I FC*<  >CHR* (13) G0T0920 

940  PR I NT "OK" 

950  RETURN 

960  REM  JOB  QUEUE 

970  TRY=0 

980  PRINT#15, "M-W"CHR*  <8) CHR*  <0) CHR* (2) C 
HR*<T)CHR*<S) 

990  PRINT#15, "M-W"CHR*<1)CHR*<0)CHR*<1)C 

HR* (JOB) 

1000  TRY=TRY+1 

1010  PRINT#15, "M-R"CHR*(1)CHR*(0) 

1020  GET#15,E* 

1030  IFE*=""THENE*=CHR*(0) 

104O  E=ASC(E*) 

1050  IFTRY=500G0T01070 

1060  IFEM27G0T01000 

1070  RETURN 

1080  REM  NEW 

1090  DATA169,  0,133,127,  32,  0,193,169 
llOO  DATA  76,141,      O,      6,169,199,141,  1 

1110  DATA  6,169,250,141,  2,  6,169,224 
1120  DATA133,  3,164,  81,185,  49,  4,133 
1130  DATA  19,185,  84,  4,133,  18,192,  35 
1140  DATA208, 240, 165,  3,  48,252,  76,148 
1150  DATA 1 93 , 234 , 234 , 234 , 234 , 234 , 234 , 234 


160 


MULTIPLE  ID  FORMATTING  SOURCE  LISTING 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 


REM  FAD. PAL 
REM 

□PEN2, 8,2, "@0: FAD.  B, P,  W" 
REM 

SYS40960 
5 

.OPT  P,02 


*=  *0400 
IDL  =  *0431 
IDH  =  IDL+35 
5 

LDA  #*00 
STA  *7F 
» 

JSR  *C100 
i 

LDA  #*4C 
STA  *0600 
LDA  #*C7 
STA  *0601 
LDA  #*FA 
STA  *0602 
5 

LDA  #*E0 
STA  *03 


;   DRIVE  NUMBER 
;  LED 

;    JUMP  TO  *FAC7 


TABLE  LDY  *51    ;    TRACK  NUMBER 


LDA  IDL.Y 
STA  *13 
5 

LDA  IDH,Y 
STA  *12 
? 

CPY  #*23 
BNE  TABLE 
? 

WAIT  LDA  *03 

BMI  WAIT 

5 

JMP  *C194 


;    ID  LO 


;    ID  HI 


;    TRACK  35 


Multiple  ID  Formatting  Source  Annotation 

This  is  a  modification  of  the  standard  formatting  routine,  NEW  ($EEOD).  Embedded 
IDs  are  read  from  each  track  on  the  master  and  tabled  in  1541  RAM  starting  at  $0431 
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by  the  driver.  The  appropriate  ID  for  each  track  is  stored  as  the  master  disk  ID  ($12/3) 
by  the  IP  before  control  is  passed  to  the  FDC  to  format  a  track.  After  a  track  is  format- 
ted, the  IP  retakes  control,  finds  the  next  ID  in  the  table,  stores  it  at  $12/3,  and  passes 
control  back  to  the  FDC.  Because  we  do  not  have  a  NO:DISK  NAME, ID  command  in 
the  command  buffer,  we  cannot  use  the  later  portions  of  the  standard  formatting  routine 
to  create  the  BAM  and  directory.  Lines  670-780  of  the  driver  clean  up  afterward. 

7.17  How  to  Backup  a  DOS  Protected  Diskette 

Limitations:  Does  not  recreate  any  bad  sectors.  Requires  six  passes  to  backup  a  diskette 
(see  the  annotation  below). 

Parameters:  A  formatted  diskette. 

1541  BACKUP 

100  REM   1541  BACKUP 
110  P0KE56,33 
120  CLR 

130  F0RI=1T0144 

140  RE ADD 

150  P0KE49151-H,D 

160  NEXTI 

170  DIMT(35) 

180  FORI =17035 

190  T(I)=1 

200  NEXTI 

210  READSRW,ERW 

220  PRINT" €CLR> 1541  BACKUP" 

230  PRINT" ^DOWN> INSERT  MASTER   IN  DRIVE" 

240  GOSUBlllO 

250  0PEN15,8, 15 

260  RW=8448 

270  F0RI=1T0126 

280  P0KE8447-H,0 

290  NEXTI 

300  RAM=8704 

310  P0KE252,34 

320  C=0 

330  REM  SEEK 

340  FORT=SRWTOERW 

350  NS=20+2*  ( T  >  1 7 )  +  ( T  .>24 )  +  ( T  >30 ) 

360  IFT(T)=0G0T0410 

370  J0B=176 

380  G0SUB1190 

390  IFE=ieOT0470 

400  T(T)=0 

410  RW=RW-«-(NS+l ) 

420  RAM=RAM+(256*(NS+1 ) ) 
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430  P0KE252, (RAM/ 256) 

440  R=R+(NS+1) 

450  B0T0620 

460  REM  READ 

470  F0RS=0T0NS 

480  G0SUB1300 

490  PRINT"  {:H0ME>-CDCWN   7J  tRVSJREADING<:ROF 

F>   TRACK   "T*"   -  SECTOR  "S* 

500  J0B=128 

510  G0SUB1190 

520  IFE=1G0T0550 

530  R=R+1 

540   I FE<  >4 ANDE<  >5G0T05a0 

550  SYS49165 

560  C=l 

570  POKERW, 1 

580  RW=RW+1 

590  RAM=RAM+256 

600  PaKE252, (RAM/256) 

610  NEXTS 

620  NEXTT 

630  CL0SE15 

640  IFC=0G0Tai010 

650  PRINT"  <:CLR3  1541  BACKUP" 

660  PRINT"  CDOWNi- INSERT   CLONE    IN  DRIVE" 

670  GOSUBlllO 

680  0PEN15,S, 15 

690  RW=S44S 

700  RAM=8704 

710  P0KE252,34 

720  REM  SEEK 

730  FORT=SRWTOERW 

740  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

750  J0B=176 

760  G0SUB1190 

770  IFE=1G0T0S20 

780  RAM=R AM+ ( 256* ( NS+ 1 ) ) 

790  W=W+(NS+1) 

800  G0T0990 

810  REM  WRITE 

820  IFT(T)=1G0T0S70 

830  RW=RW+(NS+1) 

840  RAM=R AM+ ( 256* ( NS+ 1 ) ) 

850  P0KE252, (RAM/256) 

860  G0T0990 

870  FORS=OTONS 

880   I FPEEK ( RW ) =0G0T0950 

890  G0SUB1300 

900  PRINT"  tHOMEXIDOWN  73  <:RVS3  WRITINGCROF 
F>   TRACK   "T*"   -  SECTOR  "S* 
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910  SYS4922S 

920  J0B=144 

930  G0SUB1190 

940  IFE<>1THENW=W+1 

950  RW=RW+1 

960  RAM=RAM+256 

970  P0KE252, (RAM/256) 

980  NEXTS 

990  NEXTT 

1000  CLOSE 15 

1010  IFERWO35G0T0210 

1020  PRINT"  <:  HOME  >£  DOWN  2>READ  ERRORS  :  "R 

II  il 

1 030  PR  I  NT  "  <:D0WN>  WR I TE  ERRORS :  "  W  " 

II 

1040  PRINT"  " 
1050  PR I NT "DONE! " 
1060  PRINT" 

1070  P0KE56, 160 

1080  CLR 

1090  END 

1100  REM  DELAY 

1110  PRINT"  <:D0WN> PRESS  tRVSJRETURNCROFFJ 

TO  CONTINUE" 
1120  IFC=0ANDSRW<>1G0T01160 
1130  GETC* : I FC*<> " " THEN 1 1 30 
1140  GETC*: IFC*=""THEN1140 
1150  IFC*<>CHR*(13)G0T01140 
1160  PR I NT "OK" 
1170  RETURN 
1180  REM  JOB  QUEUE 
1190  TRY=0 

1200  PRINT#15, "M-W"CHR*(8)CHR*(0)CHR*(2) 
CHR*(T)CHR*(S) 

1210  PRINT#15, "M-W"CHR* ( 1 ) CHR* (O) CHR* ( 1 ) 

CHR*(JOB) 

1220  TRY=TRY+1 

1230  PRINT#15, "M-R"CHR*(1)CHR*(0) 

1240  GET#15,E* 

1 250  E= ASC ( E*+CHR* ( O ) ) 

1260  IFTRY=500G0T01280 

1270  IFE>127G0T01220 

1280  RETURN 

1290  REM  STR*(T,S> 

1300  T*=R I GHT* ( " 0 " +R I 6HT* ( STR* ( T ) , LEN ( ST 
R*(T) )-l) ,2) 

1310  S*=RIGHT*("0"+RIGHT*(STR*(S) ,LEN(ST 
R*(S) )-l) ,2) 
1320  RETURN 
1330  REM  *C000 
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1340  DATA  77,  45,  82,  O,  4,255,128,  77 
1350  DATA  45,  87,  O,  4,  32,169,  0,133 
1360  DATA251, 141,  3,192,  32,  34,192,169 
1370  DATA128, 133,251, 141,  3,192,  32,  34 
1380  DATA 192,  96,162,  15,  32,201,255,162 
1390  DATA  0,189,  0,192,  32,210,255,232 
1400  DAT A224,  7,208,245,  32,204,255,162 
1410  DATA  15,  32,198,255,160,  O,  32,207 
1 420  DATA255 ,145,251, 200 , 1 92 , 1 29 , 208 , 246 
1430  DATA  32,204,255,  96,169,  0,141,  10 
1440  DATA 192, 240,  11,173,  10,192,  24,105 
1450  DATA  32,141,  10,192,240,  47,162,  15 
1460  DATA  32,201,255,162,  0,189,  7,192 
1470  DATA  32,210,255,232,224,  6,208,245 
1480  DATA 173,  10,192,133,251,160,  0,177 
1490  DATA251,  32,210,255,200,192,  32,208 
1500  DATA246, 169,  13,  32,210,255,  32,204 
1510  DATA255, 169,  0,240,198,  96,234,234 
1520  REM  TRACK 

1530  DATA1,6, 7, 12, 13, 17, 18,24,25,30,31,3 
5 

1541  BACKUP  SOURCE  LISTING 

lOO  REM  BACKUP. PAL 

110  REM 

120  OPEN  2,8,2,  "(10:M.B,P,W" 

130  REM 

140  SYS40960 

150  ; 

160  .OPT  P,02 

170  ; 
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180  ;   M-R  /  M-W  ROUTINES 
190  ; 

200  *=  *C000 

210  ; 

220  ;  RAM  LOCATIONS  USED 
230  ;   

240  POINT  =  *OOFB   ; POINTER  TO  READ/WRITE 

PAGE 
250  ; 

260  ;  RDM  ROUTINES  USED 
270  ;   

280  CHKOUT  =  *FFC9  ; OPEN  CHANNEL  FOR  OUT 
PUT 

290  CHROUT  =  $FFD2   ; OUTPUT  A  CHARACTER 
300  CLRCHN  =  *FFCC   ; CLEAR  ALL  CHANNELS 
310  CHKIN  =     *FFC6   ; OPEN  CHANNEL  FOR  INP 
UT 


GHRIN  =     J^FFSF  ;  INPUT  CHfiR^iCTER 

330 

340 

;    DISK  M-R 

M-W  COMMANDS 

350 

5 

360 

MR  . 

ASC  "M- 

R" 

370 

.BYTE  *00,*O4,*FF,*80 

380 

390 

MW  . 

ASC  "M- 

W" 

400 

TEMP 

.BYTE 

*00,*04,*20 

410 

420 

;  * — 

 # 

430 

;  ♦ 

READ  FROM  DISK  ROUTINES  * 

440 

;  * — 

 # 

450 

;  M- 

R  ENTRY  POINT 

460 

470 

LDA 

#*00 

400 

STA 

POINT 

; POINT  TO  FIRST  HALF 

490 

STA 

MR+3 

JASK  FOR  FIRST  HALF 

500 

JSR 

READIT 

JREAD  FIRST  HALF 

510 

520 

LDA 

tt«80 

530 

STA 

POINT 

; POINT   TO  SECOND  HALF 

540 

STA 

MR+3 

;ASK  FOR  SECOND  HALF 

550 

JSR 

READIT 

;read  second  half 

560 

• 

570 

RTS 

; RETURN  TO  BASIC 

580 

590 

;    SUBROUTINE  TO  READ   IN  HALF  PAGE 

600 

610 

READIT  LDX 

#*of  ; prepare  channel 

FOR 

OUTPUT 

620 

JSR 

CHKOUT 

630 
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/    A  l~\ 

640 

LDX 

#*00 

65U 

LOOPl   LDA  MR,X    ; SEND  M-R  COMMAND 

1  CD 

J  t3rC 

r'uiDni  IT 

670 

T  M  Y 
1  IN  A 

6SO 

L»r  A 

ff^yj  / 

700 

5 

1  CD 

PI  DPUIKI    •     PI  PAD    TUC  PUAhlKIP^I 

720 

« 

730 

LDX 

#*0F   ; PREPARE  CHANNEL   15  FOR 

UT 

740 

J9R 

CHKIN 

750 

5 

760 

LDY 

#*00 

/  /U 

L00P2  J9R  CHRIN 

-7  Q  /-» 

STA 

(POINT) , Y 

/  vo 

INY 

CPY 

#«81 

BIO 

BNE 

L00P2 

ooO 

JSR 

CLRCHN   ;    CLEAR  THE  CHANNEL 

RTS 

;end  of  read  half  page 

OCT  1^ 

860 

 ^ 

;  *— 

B70 

SEND  TO  DISK  ROUTINES  * 

B80 

 * 

S90 

;    FIRST  M-W  ENTRY  POINT 

900 

910 

MRITE  LDA  #*00   ; INITIALIZE  PART  1 

POINTER 

920 

STA 

TEMP 

930 

BED 

ENTER 

940 

« 

950 

L00P3  LDA  TEMP 

960 

CLC 

970 

ADC 

#*20 

9S0 

STA 

TEMP 

990 

BEQ 

DONE 

1000  ; 

1010  ENTER  LDX  #*0F   ; PREPARE  CHANNEL  15 

FOR  OUTPUT 

1020  JSR  CHKOUT 

1030  ; 

104O  LDX  #*00 

105O  L00P4  LDA  MW, X    ; SEND   "M-W  LO  HI  *20 

II 

1060  JSR  CHROUT 

1070  I NX 

1080  CPX  #*06 

1090  BNE  L00P4 
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1100 

1110 

LDA 

GE 

1120 

STA  1 

1 130 

1 140 

LDY  1 

1150 

1 160 

LOOP! 

TERS 

1 170 

JSR  ( 

1180 

I  NY 

1190 

CPY  ■■ 

1200 

BNE  1 

1210 

? 

1220 

LDA 

1230 

JSR  1 

1240 

JSR  1 

1250 

5 

1260 

LDA 

1270 

BEQ  I 

1280 

1290 

DONE 

DONE  RTS       ;BACK  TO  BASIC 


1541  Backup  Source  Annotation 

The  BASIC  driver  reads  a  sector  from  the  master  diskette  into  1541  RAM  using  the 
job  queue.  The  contents  of  the  RAM  are  transferred  into  the  C64  with  a  machine  language 
memory-read.  After  a  pass  is  complete,  the  clone  is  inserted  into  the  drive.  A  machine 
language  memory-write  command  is  then  used  to  transfer  the  bytes  back  to  1541  RAM. 
The  BASIC  drive  writes  the  buffer  out  to  the  diskette  using  the  job  queue.  The  above 
routine  illustrates  how  to  do  memory-read  and  memory-write  commands  in  machine 
language.  It  is  interesting  to  note  that  reading  256  bytes  from  1541  RAM  appears  to 
take  amost  ten  times  as  long  as  writing  256  bytes  to  1541  RAM.  However,  the  C64  in- 
ternal clock  is  not  reliable  at  all  while  performing  I/O  to  the  disk  drive.  Bypassing  a 
bad  track  can  be  done  anywhere  between  lines  200-340  if  necessary.  Any  of  the  previous 
11  routines  may  be  used  to  recreate  any  errors  that  you  found  on  the  master  diskette 
after  a  backup  is  made. 


7.18  How  to  Copy  a  File 

Limitations:  125  blocks  in  length 

Will  not  copy  a  relative  file 
Wild  cards  are  not  permitted 


Parameters:  File  name  and  file  type. 


168 


1541  COPY 

100  REM   1541  COPY 

110  P0KE56, 16 

120  CLR 

130  P0KE251,0 

140  P0KE252, 16 

150  P0KE253,0 

160  P0KE254, 16 

170  F0RI=1T072 

180  RE ADD 

190  P0KE49151+I,D 

200  NEXTI 

210  PRINT" <CLR> 1541  COPY" 

220  PRINT"  <:D0WN>  INSERT  MASTER   IN  DRIVE" 
230  G0SUB750 
240  G0SUB810 

250  INPUT"  <:down>filename";f* 

260   I FLEN ( F* )<  >0ANDLEN ( F* )< 1 7GOT02SO 
270  GOTOIOOO 

280   INPUT" CDOWNJ FILE  TYPE    (DSPU)  PtLEFT 

3>";t* 

290  ift$="d"0rt*="s"ort*="p"ort*="u"g0to 

310 

300  GOTOIOOO 
310  RW*="R" 
320  G0SUBS90 
330  SYS49152 
340  CL0SE2 

350   I NPUT# 1 5 . EN* , EM* , ET* , ES$ 
360  IFEN$="00"60T0380 
370  G0T0850 
380  CLOSE 15 

390  PRINT" tD0WN> INSERT  CLONE   IN  DRIVE" 
400  60SUB750 
410  G0SUB810 

420  PRINT#15, "M-R"CHR* ( 1 ) CHR* ( 1 ) 

430  GET#15,D* 

440  D= ASC ( D*+CHR* ( O ) ) 

450  IFD=65G0T0490 

460  PRINT"  <:D0WN>73,CBM  DOS  V2.  6  1541,  OO, 
00" 

470  60T0710 

480  PRINT#15,  "M-R"CHR* (250) CHR* (2) CHR*  <3 
) 

490  6ET#15,L* 

500  L=ASC ( L*+CHR* ( O ) ) 

510  GET4il5,B* 

520  GET#15,H* 

530  H=ASC(H*+CHR$(0) ) 
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540  C=L+(H*256) 

550  S=PEEK ( 252 ) + ( ( PEEK ( 253 ) - 1 6 ) *256 ) 
560  B=INT( (S/254)+.5) 
570  IFC-B>=0G0T0600 

580  PRINT" iDOWNi 72, DISK  FULL, 00,00 " 

590  G0T0710 

600  RW*="W" 

610  G0SUB890 

620  SYS49ia2 

630  CL0SE2 

640  INPUT#15,EN*,EM*,ET*,ES* 

650  PRINT"  <:DGWN>bGNE!  " 

660  CLGSE15 

670  PGKE56, 160 

680  CLR 

690  END 

700  REM  CLOSE 

710  CL0SE15 

720  PRINT" ■CDowN>  <:rvs>failed<:roff> " 

730  GGTG670 
740  REM  DELAY 

750  PRINT"  <:dgwn> PRESS  <:rvs>return<:rgff> 

TG  CONTINUE" 

760  6ETC*: IFC$=""THEN760 

770  I FC*<  >CHR* (13) GGTG760 

780  PRINT"GK" 

790  RETURN 

800  REM  INITIALIZATION 

810  0PEN15,8, 15 

820  PRINT#15, "10" 

830  INPUT#15,EN*,EM*,ET*,ES* 

840  IFEN*="00"THENRETURN 

850  PRINT"  <:D0WN>  "EN*".    "EM*"  ,  "ET*"  ,  "ES* 

860  CLOSE 15 

870  G0T0670 

880  REM  FILE  NOT  FOUND  -  FILE  EXISTS 

890  0PEN2,8,2, "O: "+F*+", "+T*+", "+RW* 

900  INPUT#15,EN*,EM*,ET*,ES* 

910  IFEN*="00"THENRETURN 

920  CL0SE2 

930  PRINT"  <:D0WN>" EN*"  ,    "EM*"  ,  "ET*"  ,  "ES* 

940  PRINT" <:down> <:rvs>failed<roff> " 

950  INPUT#15,EN*,EM*,ET*,ES* 

960  CLOSE 15 

970  G0T0670 

980  REM  LOAD  -  SAVE 

990  DATA162,      2,    32,198,255,160,      O,  32 
1000  DATA228, 255, 145,251,    32,183,255,  41 

1010  DATA  64,208,  8,200,208,241,230,252 
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1020  DATA  76,      5,192,132,251,  32,204,255 

1030  DATA  96,162,      2,    32,201,255,160,  O 

1040  DATA177,253,  32,210,255,196,251,240 

105O  DATA     3,200,208,244,230,254,    76,  38 

1060  DATA192, 165,254, 197,252,208,242,  132 

1O70  DATA253,    32,204,255,  96,234,234,234 

COPY  A  FILE  SOURCE  LISTING 

100  REM  COPY. PAL 
110  REM 

120  □PEN2,8,2, "eO:COPY.B,P, W" 

130  REM 

140  SYS40960 

150  ; 

160   .OPT  P,02 
170  ; 

180  ♦=  *C000 
190  ; 

200  ;  LOAD 

210  ; 

220  LDX  #*02 

230  JSR  *FFC6  ;  □PEN2,8,2 

240  ; 

250  LOAD  LDY  #*00 

260  READ  JSR  *FFE4         ;  IN 

270  ST A    ($FB) , Y 

280  JSR  *FFB7  ;  READST 

290  AND  #64 

300  BNE  READY 

310  INY 

320  BNE  READ 

330  INC  $FC 

340  JMP  LOAD 

350  ; 

360  READY  STY  $FB 

370  JSR  $FFCC  ;  CL0SE2 

380  RTS 

390  ; 

400   ;  SAVE 
410  ; 

420  LDX  #$02 

430  JSR  *FFC9  ;  0PEN2,8,2 

440  ; 

450  SAVE  LDY  #*00 
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460  WRITE  LDA  (*FD),Y 

470  JSR  *FFD2  5  OUT 

480  CPY  *FB 

490  BEQ  BREAK 

500  CONT  I NY 

510  BNE  WRITE 

520  INC  *FE 

530  JMP  SAVE 

540  ; 

550  BREAK  LDA  *FE 
560  CMP  *FC 
570  BNE  CONT 
580  ; 

590  STY  *FD 

600  JSR  *FFCC  ;  CL0SE2 

610  RTS 

Copy  a  File  Source  Annotation 

This  routine  emulates  a  LOAD  and  SAVE  from  machine  language. 


Conclusion 

In  conclusion,  we  hope  that  this  chapter  has  taken  some  of  the  mystery  out  of  DOS  pro- 
tection schemes.  We  encourage  serious  readers  to  study  the  program  listings  carefully. 
The  programming  techniques  employed  are  perhaps  the  most  sophisticated  applications 
of  Commodore's  direct-access  commands  that  you  will  ever  see. 
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CHAPTER  8 


GETTING  OUT  OF  TROUBLE 


The  best  way  to  get  out  of  trouble  is  to  stay  out  of  trouble  in  the  first  place!  It  is  much 
easier  to  recover  a  lost  file  by  digging  out  an  archival  copy  than  trying  to  recover  it 
from  a  blown  diskette.  Need  we  remind  you?  BACKUP!  BACKUP!  BACKUP! 

However,  since  we  feel  that  Murphy  was  a  rash  optimist,  the  likelihood  of  you  always 
finding  that  backup  copy  is  minimal,  unless  of  course,  you  manage  to  recover  that  file 
on  the  diskette.  Then,  and  only  then,  will  the  archival  copy  magically  appear  right  where 
you  thought  you  left  it. 

Since  you  are  reading  this  chapter,  you  probably  have  a  problem  and  are  in  desperate 
need  of  help.  Please  read  on. 

8.1  Unscratching  a  File 

Inadvertently  scratching  a  file  is  by  far  the  most  common  problem.  As  long  as  you  have 
not  written  any  new  information  to  the  diskette  since  you  scratched  that  file,  it  can  be 
recovered.  Recall  that  when  a  file  is  scratched,  it  is  not  erased  from  the  diskette.  Only 
two  things  have  happened: 

1.  The  file-type  byte  in  the  directory  entry  is  set  to  $00. 

2.  The  sectors  associated  with  that  file  are  freed  in  the  BAM. 

To  unscratch  a  file,  all  you  have  to  do  is  change  the  file-type  byte  back  to  its  original 
value  and  VALIDATE  the  diskette  to  re-allocate  the  sectors. 

The  programs  VIRTUAL  DIRECTORY  and  EDIT  TRACK  &  SECTOR,  which  are 
listed  in  Appendix  C,  help  you  to  do  this.  Here's  how  you  should  use  these  programs 
to  recover  a  scratched  file. 

STEP  1.  Load  and  run  the  VIRTUAL  DIRECTORY  program  on  the  diskette.  The  direc- 
tory will  be  displayed  in  groups  of  eight  entries.  Scratched  files  are  highlighted 
in  reverse  video.  Each  group  constitutes  a  different  sector  on  track  18.  Count 
the  groups  to  determine  which  group  the  scratched  entry  is  in.  Note  not  only 
which  group  the  scratched  entry  is  in,  but  also  whether  it  is  in  the  first  half 
or  the  last  half  of  the  group.  (One  of  the  first  four  file  entries  or  one  of  the 
last  four.) 

Consult  the  table  below  to  determine  the  number  of  the  sector  containing  the  entry. 
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Group  -  Sector 


Group  -  Sector 


Group  -  Sector 


1 
2 
3 
4 
5 
6 


18,1 

18,4 

18,7 

18,10 

18,13 

18,16 


7 
8 
9 
10 
11 
12 


18,2 

18,5 

18,8 

18,11 

18,14 

18,17 


13 
14 
15 
16 
17 
18 


18,3 

18,6 

18,9 

18,12 

18,15 

18,18 


STEP  2.  Load  and  run  the  EDIT  TRACK  &  SECTOR  program  on  the  diskette  with 
the  scratched  file.  When  asked  for  the  track  and  sector,  enter  track  18  and 
the  sector  number  you  read  from  the  table.  When  prompted  for  the  starting 
byte,  enter  00  if  the  scratched  file  entry  was  one  of  the  first  four  files  in  the 
group.  Enter  an  80  if  the  scratched  file  was  displayed  among  the  last  four  in 
the  group. 

STEP  3.  When  the  hex  dump  of  the  half-sector  is  displayed,  cursor  over  to  the  third 
column  of  hexadecimal  numbers  on  the  display.  Next  locate  the  name  of  the 
file  in  the  ASCII  display  on  the  right-hand  side  of  the  screen.  Move  the  cur- 
sor down  until  it  is  on  the  same  line  as  the  start  of  the  file  name.  If  you  have 
done  things  correctly  you  should  be  on  a  row  labeled  with  a  $00,  $20,  $40,  $60, 
$80,  $A0,  $C0,  or  $E0.  The  byte  under  the  cursor  should  be  a  00.  This  is  the 
file-type  byte.  The  00  indicates  a  scratched  file.  Type  over  the  00  value  with 
the  value  that  corresponds  to  the  correct  file  type  as  indicated  below. 


File  Type  Value 


STEP  4.  Hold  down  the  SHIFT  key  and  press  the  CLR/HOME  key.  This  will  terminate 
the  edit  mode.  When  asked  whether  to  rewrite  this  track  and  sector,  press 
Y  and  the  modified  sector  will  be  written  to  the  diskette  in  a  few  seconds. 

STEP  5.  Load  and  list  the  directory  to  see  if  the  file  name  now  appears.  If  it  does  not. 


you  made  a  mistake  and  things  may  have  gone  from  bad  to  worse.  Hopefully, 
the  file  will  be  listed. 


STEP  6.  VALIDATE  the  diskette  by  entering  in  direct  mode: 
OPEN   15,8, 15, "V0":CL0SE15 


If  the  drive  stops  and  the  error  light  is  not  flashing,  everything  has  gone  according  to 
plan  and  the  file  has  been  recovered  successfully.  (If  the  VALIDATE  command  failed, 
see  sections  8.2  and  8.3.) 


PRG 
SEQ 
REL 
USR 
DEL 


82 
81 
84 
83 
80 
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NOTE:  It  is  a  good  idea  to  practice  these  steps  on  a  test  diskette  before  you  attempt 
to  recover  your  lost  Accounts  Receivable!  To  do  this:  SAVE  a  file  to  disk,  SCRATCH 
it,  and  follow  the  steps  outlined  above. 

8.2  Recovering  a  Soft  Error 

In  Chapter  7  we  described  in  detail  the  read/write  DOS  errors.  We  did  not,  however, 
categorize  these  errors  by  type.  Read/write  errors  fall  into  two  categories:  "hard"  er- 
rors and  "soft"  errors.  A  hard  error  is  one  that  cannot  be  recovered,  period.  Hard  er- 
rors are  errors  that  occur  in  a  header  block.  Recall  that  a  header  block  is  never  rewrit- 
ten after  initial  formatting.  Since  a  header  block  cannot  be  rewritten,  the  data  in  a  sec- 
tor containing  a  hard  error  is  unrecoverable.  (Unfortunately,  this  also  means  that  the 
forward  pointer  has  been  lost  and,  for  all  intents  and  purposes,  the  remainder  of  the 
file  as  well.)  Soft  errors  are  errors  that  occur  in  a  data  block.  Since  data  blocks  can  be 
rewritten,  soft  errors  can  sometimes  be  recovered  if  the  diskette  itself  is  not  flawed 
or  physically  damaged.  The  table  below  indicates  whether  a  read/write  error  is  a  hard 
or  soft  error. 

Soft  Errors  Hard  Errors 


22  Read  Error  20  Read  Error 

23  Read  Error  21  Read  Error 

27  Read  Error 
29  Read  Error 

Appendix  C  contains  two  programs  that  are  useful  in  trying  to  recover  a  sector  that 
has  a  soft  error.  However,  recovery  cannot  be  guaranteed  in  all  cases.  These  two  pro- 
grams are  RECOVER  TRACK  &  SECTOR  and  LAZARUS.  The  first  program  attempts 
to  rewrite  a  damaged  sector.  LAZARUS  will  attempt  to  resurrect  an  entire  diskette. 
The  latter  program  returns  a  status  report  of  the  number  of  read  errors  encountered. 
It  also  reports  the  number  of  write  errors  that  occurred.  A  write  error  indicates  that 
a  soft  error  encountered  along  the  way  was  actually  a  hard  error  in  disguise.  Sorry  about 
that. 

8.3  Recovering  a  IHard  Error 

A  hard  error  does  not  necessarily  mean  that  an  entire  file  is  unrecoverable.  In  all  honesty, 
though,  the  technique  that  we  are  about  to  describe  is  a  shot  in  the  dark.  Before  you 
attempt  the  steps  outlined  below  ask  yourself  the  following  question.  Are  you  experien- 
cing errors  on  other  diskettes  in  your  library?  If  you  answered  yes  to  this  question, 
the  cause  of  these  errors  may  be  in  the  disk  drive  itself.  Your  1541  may  be  out  of  align- 
ment and  a  trip  to  your  nearest  Commodore  dealer  is  in  order.  If  the  problem  occurs 
on  only  one  diskette  read  on. 

NOTE:  This  section  does  not  apply  to  relative  files.  Refer  to  section  8.4  instead. 

WARNING:  The  technique  we  are  about  to  describe  here  is  not  for  the  faint-hearted. 
Consult  with  your  physician  before  attempting  this  exercise. 
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STEP  1.  Load  and  run  the  VALIDATE  A  DISKETTE  program  contained  in  Appen- 
dix C.  This  program  emulates  the  VALIDATE  command  from  BASIC.  It  will 
chain  through  each  active  file  entry  in  the  directory  and  highlight  a  bad  file 
without  aborting. 

STEP  2.  Load  and  run  FIND  A  FILE.  This  program  will  return  the  track  and  sector 
locations  of  where  the  file  resides  in  the  directory  as  well  as  where  it  starts 
on  the  diskette.  The  directory  track  and  sector  is  extraneous  information  for 
our  present  purpose.  Note  only  the  starting  track  and  sector. 

STEP  3.  Load  and  run  DISPLAY  A  CHAIN.  This  program  requires  you  to  input  a 
track  and  sector.  Input  the  starting  track  and  sector  obtained  in  step  2.  The 
program  will  chain  through  all  forward  track  and  sectors  on  the  diskette  from 
this  entry  point  until  an  error  is  encountered.  (If  the  error  is  a  soft  error,  STOP! 
Do  not  pass  GO.  Go  directly  to  section  8.2.)  Ignore  the  sector  where  the  error 
was  encountered.  The  file  is  virtually  lost  from  that  point  on.  (Recall  that  the 
link  has  been  destroyed.)  Make  note  of  the  last  successful  track  and  sector 
displayed. 

STEP  4.  Load  and  run  EDIT  TRACK  &  SECTOR.  You  will  want  to  input  the  track 
and  sector  obtained  in  step  3.  The  starting  byte  is  always  00.  Change  the  first 
two  bytes  to  00  and  FF,  respectively.  Rewrite  the  sector  when  prompted  to 
do  so.  You  have  in  effect  severed  the  forward  track  and  sector  hnk  described 
in  Chapter  4.  This  allows  you  to  manipulate  the  front  end  of  the  file.  It  is  the 
only  portion  of  the  file  that  is  clearly  intact. 

If  it  is  a  BASIC  PRG  file,  the  internal  BASIC  links  have  been  destroyed.  You  can  restore 
the  links  on  the  C64  with  a  machine  language  monitor  or  on  the  diskette  with  the  EDIT 
TRACK  &  SECTOR  program.  If  you  do  not  restore  the  BASIC  links,  the  C64  will  crash 
as  soon  as  you  attempt  to  edit  the  last  line  of  the  program.  Using  EDIT  TRACK  & 
SECTOR,  call  up  the  sector  that  was  just  rewritten.  You  will  have  to  inspect  both  half- 
pages  of  the  block.  Look  for  the  last  00  byte  in  the  page.  Change  the  two  bytes  that 
immediately  follow  it  to  a  00  00  also.  Note  the  position  of  the  last  00  byte  edited  in  hex- 
adecimal. If  you  are  in  the  second-half  of  the  block,  revmte  the  sector  and  then  recall 
the  first-half.  Change  the  forward  sector  pointer  to  the  hexadecimal  position  of  the  last 
00  byte  you  changed.  Revmte  the  sector  a  final  time.  You  will  now  be  able  to  load,  list, 
and  edit  the  program.  Hopefully,  you  will  remember  to  save  it  to  a  different  diskette 
this  time. 

If  it  was  a  SEQ  file,  the  recovered  data  is  intact.  You  will  have  to  read  it  into  C64  RAM 
and  rewrite  it  to  another  file.  If  you  do  not  know  how  to  manipulate  a  sequential  file 
contact  someone  who  does. 

8.4  Recovering  a  Relative  File 

The  only  realistic  way  to  recover  a  REL  file  is  to  open  it  for  a  read  and  copy  it  record 
by  record  into  a  sequential  file.  The  program  to  do  this  should  not  abort  when  an  error 
is  encountered.  Simply  skip  over  the  record  and  go  on.  This  way  only  the  records  that 
reside,  in  whole  or  in  part,  on  the  damaged  sector  are  not  recovered.  If  you  do  not  know 
how  to  do  this,  take  your  diskette  to  an  experienced  programmer  and  see  if  he/she  can 
assist  you. 
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8.5  Recovering  an  Entire  Diskette 


NOTE:  This  section  applies  only  to  a  diskette  that  cannot  be  initialized. 

Chapter  7  contains  a  program  called  1541  BACKUP  (section  7.15).  Run  this  program 
to  make  a  backup  of  your  blown  diskette.  After  you  have  made  a  backup,  load  and  list 
the  directory.  If  the  directory  appears  normal,  you  will  want  to  validate  the  backup. 
If  the  validate  command  fails,  inspect  and  copy  each  intact  file  to  a  new  diskette.  Some 
files  may  be  lost  in  the  process. 

If  the  directory  cannot  be  displayed  in  its  entirety,  a  hard  error  was  encountered  on 
track  18  during  the  backup  operation.  The  sector  containing  the  hard  error  could  not 
be  copied.  As  a  result,  the  directory  on  the  backup  is  corrupt.  Load  and  run  DISPLAY 
A  CHAIN  on  the  backup.  Attempt  to  follow  the  chain  starting  at  track  18,  sector  1. 
The  display  will  indicate  the  location  of  the  uncopyable  sector  by  aborting.  Run  EDIT 
TRACK  &  SECTOR  on  the  backup  to  relink  the  directory  around  this  sector.  Refer 
to  the  table  in  section  8.1  to  determine  which  sector  normally  follows  the  one  in  ques- 
tion. Keep  in  mind  that  eight  files  will  be  lost  by  this  action.  If  all  goes  well  you  should 
be  able  to  list  the  directory  now.  Inspect  and  copy  all  remaining  files  to  a  new  diskette. 

8.6  Recovering  a  Physicaiiy  Damaged  Disl<ette 

If  your  diskette  has  sustained  physical  damage  all  is  not  lost.  The  most  common  forms 
of  physical  damage  are  a  warped  jacket  or  environmental  contamination.  In  either  case, 
the  solution  is  to  don  a  pair  of  plastic  gloves,  carefully  slit  open  the  protective  jacket, 
remove  the  plastic  disk,  wash  it  if  necessary,  and  insert  it  into  another  jacket.  Obtain- 
ing a  new  jacket  may  mean  destroying  a  perfectly  good  diskette,  though.  NOTE:  Some 
brands  of  head  cleaners  come  with  a  reusable  jacket  that  is  just  right  for  this  job. 

Be  sure  to  keep  your  fingers  off  the  recording  surface  at  all  times!  Handle  the  plastic 
disk  only  by  the  edges  or  the  central  hub  ring.  Also  make  a  mental  note  as  to  which 
side  faces  up.  (The  reinforcing  ring  is  usually  affixed  to  this  side.) 

If  the  plastic  disk  is  gummy,  you  will  want  to  wash  it  carefully.  Use  a  small  amount 
of  photographer's  wetting  agent  to  keep  the  water  from  leaving  a  residue.  Allow  the 
plastic  disk  to  air  dry. 

Once  you  have  inserted  the  plastic  disk  inside  a  new  jacket,  attempt  to  initialize  it.  If 
you  cannot  initialize  it,  try  turning  the  diskette  over.  You  may  have  the  wrong  side  up. 

If  the  diskette  can  be  initialized,  make  a  backup  NOW! 

8.7  Recovering  an  Unclosed  File 

An  unclosed  file  is  one  whose  file  type  is  preceded  by  an  asterisk  in  a  directory  listing 
(e.g.,  *SEQ,  *PRG).  Such  files  cannot  be  read  normally.  However,  there  is  an  un- 
documented read  mode  that  will  allow  you  to  read  an  unclosed  file.  This  is  the  M  mode. 
The  M  stands  for  MODIFY.  The  way  to  open  a  file  for  a  read  normally  looks  like  this: 
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SYNTAX: 

OPEN  2,   8,   2,    "file  name,B,R"  (SEQ  file) 

OPEN  2,   8,    2,    "file  name,P,R"  (PRG  file) 

To  read  an  unclosed  file  substitute,  an  M  for  the  R  in  the  OPEN  statement  like  this: 
SYNTAX: 

OPEN  2,   8,    2,    "-file  name,B,M"  (SEQ  file) 

OPEN  2,   8,    2,    "file  name,P,M"  (PRG  file) 

The  file  can  now  be  read  into  the  C64  and  stored  in  RAM.  There  is  one  problem,  though. 
You  will  have  to  display  the  incoming  data  bytes  because  an  EOI  will  not  be  returned 
by  the  disk  drive.  Note  that  the  last  sector  written  to  the  diskette  will  contain  an  er- 
roneous forward  track  and  sector  pointer.  As  a  result,  there  is  no  realistic  way  to  deter- 
mine when  you  have  read  beyond  the  actual  contents  of  the  unclosed  file  itself.  Watch 
the  incoming  data  bytes  carefully.  Your  read  program  should  have  an  embedded  break- 
point. When  you  think  you've  captured  all  of  the  data  bytes,  rewrite  them  to  another 
diskette. 


Once  you  have  the  data  safely  stored  on  another  diskette,  use  the  techniques  described 
at  the  end  of  Section  8.3  to  restore  the  internal  BASIC  links  if  it  was  a  PRG  file. 


Don't  forget  to  VALIDATE  the  diskette  which  has  the  unclosed  file  in  the  directory 
while  you're  at  it.  Recall  that  scratching  an  unclosed  file  poisons  the  BAM. 


8.8  Recovering  from  a  Short  New 

If  you  have  inadvertently  performed  a  short  NEW  on  a  diskette,  there  is  more  hope 
than  you  think.  Recall  that  a  short  NEW  only  zeros  out  the  BAM  and  sector  1  from 
track  18.  Run  the  EDIT  TRACK  &  SECTOR  program  on  the  diskette  in  question.  Call 
up  track  18,  sector  1  and  change  the  forward  track  and  sector  pointer  from  a  00,  FF 
to  a  12,  04. 


Next,  load  and  list  the  directory.  If  your  diskette  contained  more  than  eight  active  files, 
all  but  the  first  eight  files  will  be  displayed  on  the  screen.  (The  first  eight  files  have 
been  lost  for  now.)  Do  not  attempt  to  VALIDATE  the  diskette  because  the  directory 
sectors  will  not  be  reallocated.  Copy  all  of  the  remaining  files  onto  a  new  diskette. 


If  the  first  eight  files  are  very  important,  you  can  attempt  to  recover  them  as  well. 
However,  it  will  not  be  easy!  You  must  find  the  starting  track  and  sector  locations  of 
these  files  yourself  through  a  process  of  elimination.  Begin  by  making  a  grid  with  a  space 
for  each  sector  on  the  diskette  like  this: 
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TRACK 

1       2       3       4       5       6  7 


SECTOR 


Next,  VALIDATE  the  original  diskette  and  then  load  and  run  the  program  DISPLAY 
A  BLOCK  AVAILABILITY  MAP  listed  in  Appendix  C.  Working  from  the  display  on 
the  CRT,  indicate  on  your  chart  which  sectors  are  in  use  by  other  files.  Once  you  have 
done  this,  you  should  see  a  blank  area  centered  around  track  18.  This  is  where  you  lost 
files  reside. 


Now,  load  and  run  the  DISPLAY  A  CHAIN  program.  The  first  file  probably  starts 
on  track  17,  sector  0.  Record  the  chain  displayed  to  the  screen  on  your  chart.  Once  you 
have  recorded  the  first  chain,  begin  looking  for  the  next  one.  It  probably  begins  on  an 
open  space  on  track  17  or,  if  the  first  chain  was  a  long  one,  on  track  19,  sector  0.  Work 
outward  from  track  18  until  you  have  located  all  eight  missing  files. 

Once  you  have  the  starting  track  and  sector  locations  for  the  files,  use  the  EDIT  TRACK 
&  SECTOR  program  to  reconstruct  track  18,  sector  1.  The  tables  and  hex  dumps  from 
Chapter  4  can  be  used  as  a  guide.  Be  sure  to  substitute  the  starting  track  and  sector 
locations  that  you  found  and  not  the  ones  in  this  manual. 

Now  copy  the  eight  files  onto  another  disk.  Once  this  is  done,  take  a  break  and  meditate 
on  the  virtues  of  archival  backups! 


8.9  Recovering  from  a  Full  IMew 

If  you  are  reading  this  section  in  desperation,  relax.  It  is  already  too  late.  However, 
if  it  dawns  on  you  in  the  future  that  you  are  holding  a  blank  diskette  in  your  hand  while 
the  master  that  you  were  going  to  backup  is  being  reformatted,  don't  PANIC!  Attempt 
to  regain  your  composure  and  pop  the  drive  door  open.  At  this  point  you  don't  care 
what  the  1541  User's  Manual  says  about  opening  the  drive  door  when  the  red  activity 
indicator  is  on.  You  are  losing  one  full  track  every  time  you  hear  the  stepper  motor  click. 

Next  attempt  to  make  a  backup  copy  of  the  diskette  using  the  1541  BACKUP  program 
listed  on  page  162.  (Please,  try  to  remember  which  diskette  you  want  to  format  this 
time.)  Recall  that  formatting  works  from  the  outermost  track  (track  1)  to  the  innermost 
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track  (track  35).  If  you  threw  the  door  in  time  track  18  will  still  be  intact  and  so  will 
most  of  your  files.  The  DOS  works  outwards  from  track  18  when  writing  to  a  diskette. 
The  outermost  tracks  were  probably  never  in  use. 

Now  load  and  run  the  VALIDATE  A  DISKETTE  program  to  assess  the  damage.  Often- 
times all  files  are  recovered. 

Conclusion 

In  short,  recovering  a  damaged  diskette  is  more  art  than  science.  The  utilities  that  we 
have  presented  here  can  prove  invaluable  in  time  of  need.  When  all  is  said  and  done, 
however,  it  is  much  easier  to  create  errors  than  to  pick  up  the  pieces  afterward. 
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CHAPTER  9 


OVERVIEW  OF  THE  1541  DOS 


9.1  Introduction  to  1541  DOS 

Recall  that  in  Chapter  2  we  stated  that  the  1541  is  an  intelligent  peripheral.  It  contains 
its  own  6502  microprocessor,  2K  of  RAM,  I/O  chips,  and  the  DOS  program  which  is  per- 
manently stored  in  15.8K  of  ROM.  The  diagram  below  illustrates  how  the  RAM,  ROM, 
and  I/O  chips  are  arranged. 


2K  of  RAM 


Job  queue,  constants, 
pointers  &  work  area 


Stacks,  work  areas 
and  overflow  buffer 


Command  buffer  &  work 


Data  buffer  #0 


Data  buffer  #1 


Data  buffer  #2 


Data  buffer  #3 


Buffer  for  BAM 


$1800 


$180F 


$1C00 


$1C0F 


$C100 

$F259 
$FFFF 


Input-Output  Chips 


6522  VIA  CHIP 
Main  I/O  to  computer 


6522  VIA  CHIP 
Main  I/O  to  disk 


DOS  in  15.8K  of  ROM 


Communications  and 
file  management 


Disk  controller 
routines 


9.2  The  Hard  Working  6502 

The  1541  disk  drive  is  a  new  addition  to  Commodore's  line  of  disk  drives.  Commodore's 
earlier  drives,  the  2040,  4040,  8050  and  8250  had  three  microprocessors:  a  6502  to  han- 
dle communications  with  the  computer,  a  6504  to  act  as  a  disk  controller,  and  a  6532 
to  translate  between  normal  8-bit  characters  and  the  10-bit  GCR  code  that  is  actually 
written  on  the  diskette.  The  1541  has  only  one  6502  to  do  everything. 
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The  6502  in  the  1541  alternates  between  two  modes  of  operation:  Interface  Processor 
(IP)  mode  and  Floppy  Disk  Controller  (FDC)  mode.  The  6502  switches  to  its  FDC  mode 
approximately  every  10  milliseconds.  The  switch  is  made  in  response  to  an  interrupt 
(IRQ)  generated  by  one  of  the  6522  timers.  The  main  IRQ  handling  routine  checks  to 
see  if  the  IRQ  was  generated  by  the  timer.  If  it  was,  the  6502  begins  to  execute  the 
FDC  routines.  Once  in  FDC  mode  the  interrupt  signal  is  disabled  and  the  6502  remains 
in  FDC  mode  until  any  jobs  it  has  to  do  are  completed.  If  the  interrupt  signal  was  not 
disabled,  it  might  disrupt  a  read  or  write  job. 


9.3  Major  IP  Routines 

One  of  the  difficulties  in  using  the  detailed  ROM  maps  in  Appendix  B  is  locating  the 
routine  you  want.  This  section  summarizes  the  major  IP  routines  and  their  entry  points 
to  help  you  find  your  way  around. 


a)  Initfalization 

When  the  disk  drive  is  first  switched  on,  the  RESET  line  is  held  low.  This  causes  the 
6502  to  do  an  indirect  JMP  via  the  vector  at  $FFFC  to  the  initialization  procedure  at 
$EAAO.  The  main  features  of  the  initialization  process  are  shown  below. 

OVERVIEW  OF  INITIALIZATION 


Test  zero  page  RAM 


Do  checksum  test  of  ROM's 


Test  remainder  of  RAM 


Initialize  I/O  chips 


Set  up  buffer  tables 


Set  up  buffer  pointers 


JSR  to  inititialize  FDC 


Initialize  serial  bus 


b)  Mafn  IP  Idle  Loop 

Whenever  the  drive  is  inactive  and  the  6502  is  in  IP  mode,  the  6502  executes  the  code 
from  $EBE7  to  $EC9D  looking  for  something  to  do. 
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OVERVIEW  OF  IP  MODE  IDLE  LOOP  ($EBE7-$EC9D) 


Is  the  command- waiting 
flag  ($0255)  set? 


No 


Is  the  attention  pending 
flag  ($0255)  set? 


No 


Is  there  a  file  open? 


No 


Is  the  error  flag  set? 


No 


JMP  to  start  of  loop 


Yes 


Yes 


Yes 


Yes 


Parse  and  execute 
the  waiting  command 
JSR  PARSXQ  ($C146) 

Service  the 
attention  request 
JSR  ATNSRV  ($E85B) 

Turn  on  the 
drive  active  LED 

Flash  the 
drive  active  LED 


c)  Computer— Disk  Drive  Communications 

The  routines  that  handle  communication  on  the  serial  bus  are  localized  in  one  small  area 
of  ROM,  from  $E853  to  $EA6E.  The  entry  points  for  the  major  routines  are  summariz- 
ed below. 


Entry 


Routine 


Function 


$E853 


$E85B 
$E909 
$E9C9 
$EA2E 


ATNIRQ 


ATNSRV 
TALK 
ACPTR 
LISTEN 


An  IRQ  is  generated  when  the  computer  sets  the 

ATN  line  of  the  serial  bus  low.  Branch  to  here  from 

IRQ  handler  to  set  attention  pending  flag. 

Service  an  ATN  signal  on  the  serial  bus 

Send  data  out  on  the  serial  bus 

Accept  one  byte  of  data  from  the  serial  bus 

Accept  incoming  data  bytes  from  the  serial  bus 


d)  Execution  of  Disic  Commands 

When  the  computer  sends  the  1541  a  disk  command,  such  as  NEW,  VERIFY,  or 
SCRATCH,  the  command  is  stored  temporarily  in  the  command  buffer  ($0200-$0229) 
and  the  command  pending  flag  ($0255)  is  set.  The  next  time  the  6502  works  its  way  though 
the  IP  idle  loop  ($EBE7-$EC9D)  it  finds  that  the  command  pending  flag  has  been  set. 
It  then  does  a  JSR  to  the  PARSXQ  routine  ($C146)  to  parse  and  execute  the  command. 
The  parser  first  checks  the  command  table  ($FE89-94)  to  see  if  this  is  a  valid  command. 
Next  it  checks  the  syntax  of  the  command.  If  the  command  is  correct,  a  JMP  is  made 
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to  the  appropriate  ROM  routine.  The  table  below  summarizes  the  various  disk  commands 
and  their  entry  points. 


Entry 

Command 

$ED84 

V 

VALIDATE 

$D005 

I 

INITIALIZE 

$C8C1 

D 

DUPLICATE 

$CAF8 

M 

MEMORY-OP 

$CC1B 

B 

BLOCK-OP 

$CB5C 

U 

USER  JMP 

$E207 

P 

POSITION 

$E7A3 

& 

UTIL  LDR 

$C8F0 

c 

COPY 

$CA88 

R 

RENAME 

$C823 

S 

SCRATCH 

$EEOD 

N 

NEW 

Effect  

Create  a  new  BAM  based  on  the  directory. 
Initialize  BAM  by  reading  from  disk. 
Make  a  backup  of  a  disk  (not  on  1541). 
Perform  a  memory  operation  (M-R,  M-W, 
M-E). 

Perform  a  block  operation  (B  P,  B-A,  B-F, 
etc.). 

Execute  user  routines  (UO,  Ul,  U2,  etc.). 
Position  to  record  in  relative  file. 
Load  routine  in  disk  RAM  and  execute  it. 
Copy  a  file  (single  disk  only  on  1541). 
Rename  a  file  in  the  disk  directory. 
Scratch  a  file  in  the  directory. 
Format  a  diskette  (short  and  full). 


For  more  details  on  these  routines  see  Appendix  B. 

If  no  errors  are  encountered  during  the  execution  of  a  command,  the  routine  is  terminated 
with  a  JMP  to  the  ENDCMD  ($C194).  If  errors  are  encountered,  .A  is  loaded  with  an 
error  code,  and  the  routine  is  aborted  with  a  JMP  to  the  command  level  error  process- 
ing routine  at  $E645. 


e)  File  Management 

File  management  is  a  major  function  of  the  interface  processor.  As  a  result,  there  are 
many  ROM  routines  that  deal  directly  or  indirectly  with  the  management  of  files,  the 
directory  and  the  BAM.  A  few  of  the  major  entry  points  are  summarized  below. 


Entry 

Routine 

Function  of  File  Management  Routine 

$C5AC 

SRCHST 

Search  directory  for  valid  or  deleted  entry. 

$CBB4 

OPNBLK 

OPEN  a  direct  access  buffer. 

$CEOE 

FNDREL 

Find  a  record  in  a  relative  file. 

$D156 

RDBYT 

Read  byte  from  a  file.  Get  next  sector  if 

needed. 

$D19D 

WRTBYT 

Write  byte  to  file.  Write  sector  if  full. 

$D50E 

SETJOB 

Set  up  read  or  write  job  for  FDC. 

$D6E4 

ADDFIL 

Add  a  file  to  the  directory. 

$D7B4 

OPEN 

OPEN  a  channel  for  read,  write,  load,  or  save. 

$DACO 

CLOSE 

Close  the  file  associated  with  given  channel*. 

$DBA5 

CLSDIR 

Close  directory  entry  for  a  write  file. 

$DC46 

OPNRCH 

OPEN  a  channel  to  read  using  double 

buffering. 
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$DFDO 

$E31F 

$E44E 

$E4FC 

$E645 

$EA6E 

$EAA8 

$EC9E 

$EF5C 

$EF90 

$F11E 


$DCDA 


NXTREC 

ADDREL 

NEWSS 

ERRTAB 

CMDER2 

PEZRO 

DSKINT 

STDIR 

WFREE 

WUSED 

NXTTS 


OPNWCH 


OPEN  a  channel  to  write  using  double 
buffering. 

Set  up  next  record  for  a  relative  file. 

Add  a  new  sector  to  a  relative  file. 

Add  new  side  sectors  to  relative  file. 

IP  mode  error  message  table. 

IP  mode  error  handler. 

Display  error  diagnostics  by  flashing  LED. 

Initialize  IP  side  of  disk. 

Convert  directory  to  pseudo  program  and  load. 

Mark  given  sector  as  free  in  the  BAM. 

Mark  given  sector  as  in  use  in  the  BAM. 

Finds  next  available  sector  from  the  BAM. 


9.4  Using  the  IP  Routines 


The  interface  processor  routines  in  the  154rs  ROM  are  relatively  easy  to  use.  They 
can  be  executed  by  using  the  command  channel  to  send  the  disk  drive  the  appropriate 
memory-execute  (M-E)  command. 

Before  you  try  to  use  one  of  the  IP  routines  you  should: 

1.  Use  the  ROM  maps  in  this  chapter  to  locate  a  routine. 

2.  Use  the  tools  given  in  Section  9.13  to  make  a  copy  of  that  area  of  ROM. 

3.  Disassemble  the  routine. 

4.  Study  the  disassembly  (use  the  ROM  analysis  in  Appendix  B  as  a  guide)  to  deter- 
mine any  setup  that  is  necessary. 

NOTE:  You  cannot  use  the  memory-execute  (M-E)  technique  described  in  this  section 
when  you  are  using  any  routine  that  involves  reading  from  or  writing  to  a  diskette. 
The  reason  for  this  restriction  is  that  memory-execute  commands  are  carried  out  while 
the  processor  is  in  the  IP  mode.  In  this  mode,  the  processor  is  interrupted  every  10 
milliseconds  by  an  IRQ  and  switches  into  FDC  mode.  Any  read  or  write  operation  will 
be  interrupted  if  this  occurs.  See  Section  9.6  for  the  technique  to  use  if  you  want  to 
use  a  routine  that  reads  from  or  writes  to  the  diskette. 

Once  you  are  sure  that  the  routine  performs  the  operation  you  want  and  what  setup 
is  needed,  you  are  ready  to  design  your  program.  Your  program  will  normally  have  three 
parts: 

1.  A  Setup  Section 

This  section  normally  consists  of  one  or  more  memory-write  (M-W)  commands  to  poke 
any  required  setup  values  into  the  1541's  RAM  memory. 

2.  A  Section  to  Execute  the  Routine 

This  section  normally  consists  of  one  memory-execute  (M-E)  command  to  force  the 
1541's  microprocessor  to  execute  the  ROM  routine. 
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3.  An  Information  Retrieval  Section 

This  section  normally  consists  of  one  or  more  memory-read  (M-R)  commands  to  peek 
the  results  of  the  routine  out  of  the  154rs  RAM  for  use  by  your  program. 

Let's  take  a  look  at  a  typical  application  of  this  technique. 

Suppose  we  were  writing  a  data  base  management  program.  One  thing  we  would  like 
to  build  into  our  program  is  a  check  to  be  sure  that  we  can  never  produce  an  unclosed 
file  (*SEQ).  This  would  happen  if  the  user  entered  too  much  data  and  completely  filled 
the  disk.  We  can't  rely  on  checking  the  drive's  error  channel  in  this  situation  because 
the  DOS  sends  the  disk  full  error  too  late;  the  damage  is  already  done.  We  are  going 
to  have  to  have  some  independent  method  of  finding  the  number  of  blocks  free  on  the 
diskette  before  we  write  out  the  file. 

Since  we  know  that  a  directory  listing  shows  the  number  of  blocks  free,  we'll  start  by 
looking  for  some  routines  that  deal  with  the  directory.  The  chart  of  ROM  routines  that 
deal  with  file  management  in  Section  9.3  (e)  has  one  entry  that  looks  promising:  STDIR 
($EC9E),  convert  directory  to  pseudo  program  and  load.  We  now  turn  to  Appendix  B 
and  look  up  this  routine.  Scanning  through  this  routine  doesn't  turn  up  an  algorithm 
that  appears  to  calculate  the  number  of  blocks  free  and  we're  back  to  square  one.  What 
about  the  initialize  routine?  From  the  chart  on  the  execution  of  disk  commands  in  Sec- 
tion 9.3  (d)  we  find  that  this  routine  starts  at  $D005.  Back  to  Appendix  B.  Eureka!  At 
$D075  we  find  the  routine  NFCALC.  A  bit  of  disassembly  indicates  that  this  routine 
probably  needs  very  little  setup  to  calculate  the  number  of  blocks  free  and  that  it  stores 
the  lo-byte  of  the  count  in  NDBL  ($02FA)  and  the  hi-byte  in  NDBH  ($02FC).  Before 
we  set  up  an  elaborate  program,  let's  check  out  these  RAM  locations  using  a  test  pro- 
gram like  this: 

10  OPEN   15,8, 15, "I" 

20  GOSUB   120:REM  CHECK  DISK  STATUS 
30  OPEN   1,8,5,  "li!0:  TEST  FILE,S,W" 
40  GOSUB   120:REM  CHECK  DISK  STATUS 
50  FOR  K=l    TO  300 

60  PRINT#1 , "THIS   IS  TEST  RECORD  NUMBER"; 
K 

70  PRINT  K;: GOSUB   170: REM  CHECK  BLOCKS  F 
REE 

SO  NEXT 

90  CLOSE  1:CL0SE15:END 

100  : 

no  REM  SUB  TO  CHECK  DISK  STATUS 
120   INPUT  E,E*,T,S 

130  PRINT  e;e*;t;s 
140  RETURN 
150  : 

160  REM  SUB  TO  READ  BLOCKS  FREE 

1 70  PR I NT# 1 5 , " M-R " CHR* ( 250 ) CHR* ( 2 ) CHR* ( 3 

) 

180  GET#15,  X*:NL=ASC(X*-i-CHR*(0)  ) 
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190  GET#15, X*:REM  JUNK 
200  GET#15, X*:NH=ASC(X*+CHR*(0) ) 
210  PRINT   "BLOCKS  FREE="  256*NH+NL 
220  RETURN 

After  trying  our  test  program,  we  find  our  problem  is  solved.  As  we  write  out  our  records 
the  DOS  automatically  updates  the  count  in  NDBL  and  NDBH  to  reflect  the  number 
of  blocks  left.  We  don't  really  need  to  execute  a  ROM  routine  after  all.  A  memory-read 
command  is  all  we  need.  The  moral?  A  bit  of  time  spent  studying  and  testing  can  really 
simplify  your  life. 

Since  the  "blocks  free"  example  really  didn't  illustrate  the  use  of  an  IP  routine,  let's 
try  again.  This  time  we  are  interested  in  converting  normal  bytes  into  their  GCR 
equivalents  to  see  what  is  actually  written  out  to  the  disk.  After  snooping  through  the 
IP  tables  in  Section  9.3  without  any  luck,  we  try  the  FDC  tables  in  Section  9.5.  We 
find  what  we  need  in  9.5  (c):  PUT4GB  ($F6D0),  convert  four  data  bytes  into  five  GCR 
bytes.  In  checking  Appendix  B  we  find  that,  although  this  is  nominally  an  FDC  routine, 
it  does  not  involve  reading  from,  or  writing  to,  a  diskette.  This  means  we  can  use  the 
memory-execute  technique. 

After  a  bit  of  disassembly  we  know  what  set-up  is  required: 

1.  The  routine  expects  to  find  four  normal  bytes  stored  in  RAM  from  $52-$55. 

2.  The  pointer  at  $30/31  should  point  to  the  start  of  where  the  five  GCR  bytes  that  result 
from  the  conversion  are  to  be  stored.  We'll  use  $0300-$0304. 

3.  The  GCR  pointer  at  $34  should  be  $00. 

4.  The  entry  point  for  the  routine  is  definitely  $F6D0. 

Now  that  we  know  what  we  have  to  do,  let's  set  up  the  program. 

First,  we'll  start  by  inputting  the  four  bytes  we  want  to  convert  and  storing  them  in 
disk  RAM  from  $52  (82)  to  $55  (85)  using  a  memory-write  command  (M-W).  Second,  we 
will  use  memory-write  (M-W)  commands  to  set  the  pointers  at  $30  (to  0),  $31  (to  3),  and 
$34  (to  0).  Third,  we'll  execute  the  routine  using  a  memory-execute  (M-E)  command. 
Finally,  we  will  peek  the  results  from  $0300-4  of  the  disk  RAM  using  a  memory-read 
(M-R)  command  and  five  GET#  statements.  Here's  what  the  program  looks  like: 

100  REM  CONVERT  BINARY  TO  GCR 

110  PRINT"  <:CLR>ENTER  FOUR  BYTES  (DECIMAL 

)  <:D0WN}" 

120  B* (0) ="0" : BS (1 ) =" 1 " : F0RK=0TD7:  P (K) =2 
-^KZNEXT 

130  F0RK=0T07:P(K)=2'"K:NEXT 
140  OPEN   15,8, 15 

150  : 

160  REM  INPUT  BYTES  &  STORE   IN  DISK  RAM 
(*52/5) 

170  FOR  K=0T03 

180  PRINT"BYTE#"K"="; : INPUT  X 
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190   IF     X<0  OR  X>255  GOTO  180 

200  PRINT" {UP> "TAB (18) ; : G0SUB430 

210  PRINT#15, "M-W"CHR* (82+K) CHR* (0) CHR* ( 

1)CHR*(X) 

220  NEXT 

230  : 

240  REM  SET  UP  POINTER  TO  STORAGE  AREA  ( 
*30/31) 

250  PRINT#15, "M-W"CHR* (48) CHR* (O) CHR* (2) 
CHR* (0) CHR* (3) 
260  : 

270  REM  SET  UP  GCR  POINTER  (*34) 

280  PRINT#15, "M-W"CHR* (52) CHR* (0) CHR* ( 1 ) 

CHR* (O) 

290  : 

300  REM  EXECUTE  PUT4GB    (*F6D0)    IPC  ROUTI 
NE 

310  PRINT#15, "M-E"CHR* (208) CHR* (246) 
320  : 

330  REM  PEEK  OUT  AND  DISPLAY  RESULTS 
340  PRINT#15, "M-R"CHR*(00)CHR*(3)CHR*(5) 

350  PRINT" {DOWN> THE  FIVE  EQUIVALENT  GCR 
BYTES  are: {D0WN>" 
360  FOR  K=l   TO  5 

370  GET#15, X*: X=ASC (X*+CHR* (O) ) 

380  PRINT"BYTE#"K"="X;TAB(18) ; :G0SUB430 

390  NEXT 

400  CLOSE   15: END 
410  : 

420  SUB  TO  DISPLAY  BINARY  EQUIVALENTS 

430  PRINT"-/."; 

440  FOR  L=7T00STEP-1 

450  T=INT  (X/2-'^L) 

460  X=X-T*P(L) 

470  PRINTB* (T) ; 

480  NEXT: PRINT: RETURN 

Many  of  the  other  IP  ROM  routines  are  just  as  easy  to  use.  However,  be  careful  because 
some  are  tricky.  Some  expect  to  find  a  particular  command  in  the  command  buffer.  These 
are  tough  to  use  because  the  memory-execute  command  will  wipe  out  any  set-up  you 
have  done  in  the  command  buffer  area.  In  these  cases  you  will  have  to  store  a  short 
machine  language  routine  in  the  disk  RAM  that  sets  up  the  proper  command  in  the  buf- 
fer before  it  JMP's  to  the  IP  routine.  When  you  execute  the  routine,  it  should  overwrite 
the  M-E  command  in  the  buffer  with  the  command  you  want  there.  Happy  sleuthing! 

9.5  Major  FDC  Routines 

One  of  the  difficulties  in  finding  an  FDC  routine  to  do  the  job  you  want  is  finding  your 
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way  through  the  detailed  ROM  maps  in  Appendix  B.  This  section  summarizes  the  ma- 
jor FDC  routines  and  their  entry  points. 


a)  Initialization 

When  the  disk  drive  is  first  switched  on,  the  reset  line  is  pulsed  lo.  This  causes  the  6502 
to  RESET  and  it  does  an  indirect  JMP  via  the  vector  at  $FFFC  to  the  initialization 
procedure  at  $EAAO.  As  part  of  the  set  up  procedure,  the  variables  and  I/O  chips  for 
the  FDC  are  initialized  by  the  CNTINT  routine  ($F259-AF). 


b)  Main  FDC  Idle  Loop 

Every  10  milliseconds  the  6522  timer  generates  an  interrupt  (IRQ)  and  the  6502  begins 
to  execute  the  main  FDC  loop  looking  for  something  to  do.  The  main  features  of  this 
loop  are  summarized  below. 


OVERVIEW  OF  MAIN  FDC  LOOP  ($F2B0) 

No 


Any  jobs  in  job  queue? 


Yes 


Is  it  a  JMP  job  ($D0)? 


No 


Should  drive  motor  be  ON? 


No 


Is  drive  up  to  speed? 


Yes 


Is  the  head  stepping? 


No 


Is  this  the  right  track? 


No 


Set  #  of  the  tracks  to  the  step 


END  ($F99C) 


Change  in  write  protect? 


No 


Is  head  between  tracks? 


No 


Yes 


Yes 


No 


Yes 


Yes 


Yes 


Yes 


JMP  to 


END 


Do  JMP  job  ($F370) 


Motor  ON  &  JMP  to 


JMP  to 


JMP  to 


END 


END 


DO  THE  JOB 


END 


Set  the  change  in 
status  flag  ($1C) 

Move  the  head 

JMP  DOSTEP  ($FA2E) 
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i 


Turn  drive  motor  OFF? 


No 


Is  the  head  in  step  mode? 


Yes 


Yes 


Turn  OFF  motor 

JMP  to  the  proper 
stepping  routine 


No 


RTS  to  the  IRQ  routine 


At  the  end  of  this  loop,  or  when  the  job  has  been  completed,  the  timer  interrupt  is  re- 
enabled  and  the  6502  leaves  FDC  mode. 


c)  Major  FDC  Entry  Points 

When  in  FDC  mode  the  6502  executes  routines  that  directly  control  the  operation  of 
the  disk  drive.  These  include:  turning  the  drive  motor  ON  or  OFF,  controlling  the  step- 
per motor  that  moves  the  head  from  track  to  track,  formatting  a  blank  diskette,  locating 
a  specific  sector  and  reading  or  writing  data,  and  translating  information  back  and  forth 
between  normal  8-bit  bytes  and  the  10-bit  GCR  code  that  is  actually  recorded  on  a 
diskette's  surface.  The  6502  carries  out  these  tasks  in  response  to  job  requests  placed 
in  the  job  queue  by  the  IP  processor.  The  entry  points  for  the  major  FDC  routines  are 
summarized  below. 


Entry 

Routine 

Function 

$F259 

CNTINT 

Initialize  important  variables  and  the  I/O  chips. 

$F2B0 

LCC 

Main  FDC  idle  loop  (IRQ  entry  every  10 

millisec). 

$F367 

EXE 

Do  execute  job. 

$F37C 

BMP 

Bump  head  to  track  #1  (step  out  45  tracks). 

$F3B1 

SEAK 

Seek  any  header  on  a  track. 

$F4CA 

REED 

Read  in  data  block  of  specified  sector. 

$F56E 

WRIGHT 

Write  out  data  block  of  specified  sector. 

$F691 

VRFY 

Read  back  data  block  to  check  for  good  write. 

$F6D0 

PUT4GB 

Convert  four  data  bytes  into  five  GCR  bytes. 

$F78F 

BINGCR 

Convert  entire  data  buffer  into  GCR  write 

image. 

$F7E6 

GET4GB 

Convert  five  GCR  bytes  into  four  data  bytes. 

$F8E0 

GCRBIN 

Convert  GCR  image  of  data  block  into  normal 

data. 

$F934 

CONHDR 

Convert  header  into  a  GCR  search  image. 

$F99C 

END 

End  of  idle  loop  to  control  drive  &  stepper 

motor. 

$FAC7 

FORMT 

Format  blank  diskette. 
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Since  the  read,  write  and  format  routines  are  of  particular  interest,  let's  look  at  them 
in  more  detail. 


d)  Read  Data  Block  of  Specified  Sector 

Before  the  read  job  code  ($80)  is  placed  in  the  job  queue,  the  IP  puts  the  desired  track 
and  sector  numbers  into  the  header  table  as  indicated  below. 


Job  queue 

Use  buffer 

Track  # 

Sector  # 

location 

# 

address 

address 

address 

$0000 

0 

$0300-FF 

$0006 

$0007 

$0001 

1 

$0400-FF 

$0008 

$0009 

$0002 

2 

$0500-FF 

$000A 

$000B 

$0003 

3 

$0600-FF 

$000C 

$000D 

$0004 

4 

$0700-FF 

$000E 

$000F 

$0005 

5 

NO  RAM 

$0010 

$0011 

Once  the  track  and  sector  values  are  in  place,  the  IP  puts  the  read  job  code  into  the 
job  queue  in  the  location  that  corresponds  to  the  data  buffer  where  the  data  is  to  be 
stored.  The  next  time  the  6502  is  in  FDC  mode  it  finds  the  job  request.  If  necessary, 
it  turns  on  the  drive  motor,  waits  for  it  to  get  up  to  speed,  and  moves  the  head  to  the 
proper  track.  It  then  executes  the  read  routine  outlined  below: 


OVERVIEW  OF  THE  FDC  READ  ROUTINE 


Find  correct  sector 


Read  data:  first  256  into  the 
data  buffer  and  the  rest  into 
the  overflow  buffer 


Convert  GCR  to  normal 


Check  data  block  ID 


Check  data  checksum 


Exit,  read  was  OK 


e)  Write  Data  Biocl<  of  Specified  Sector 

Before  the  write  job  code  ($90)  is  placed  in  the  job  queue,  the  IP  puts  the  desired  track 
and  sector  numbers  into  the  header  table  as  indicated  below. 
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Job  queue 

Use  buffer 

Track  # 

Sector  # 

location 

# 

address 

address 

address 

$0000 

0 

$0300-FF 

$0006 

$0007 

$0001 

1 

$0400-FF 

$0008 

$0009 

$0002 

2 

$0500-FF 

$000A 

$000B 

$0003 

3 

$0600-FF 

$000C 

$000D 

$0004 

4 

$0700-FF 

$000E 

$000F 

$0005 

5 

NO  RAM 

$0010 

$0011 

Once  the  track  and  sector  values  are  in  place,  the  IP  puts  the  write  job  code  into  the 
job  queue  in  the  location  that  corresponds  to  the  data  buffer  containing  the  data  to  be 
written.  The  next  time  the  6502  is  in  FDC  mode  it  finds  the  job  request.  If  necessary, 
it  turns  on  the  drive  motor,  waits  for  it  to  get  up  to  speed,  and  moves  the  head  to  the 
proper  track.  It  then  executes  the  write  routine  outlined  below: 


OVERVIEW  OF  THE  FDC  WRITE  ROUTINE 


$F575 

Calculate  checksum. 

icbL  il  WriLtJ  pruLtrCL  (JIl. 

$F586 

Convert  buffer  to  GCR. 

$F589 

Find  correct  sector. 

$F58C 

Wait  out  header  gap. 

$F594 

Switch  to  write  mode  and 
write  out  five  $FF's  as  sync. 

$F5B1 

Write  out  overflow  buffer. 

$F5BF 

Write  out  data  buffer. 

$F5CC 

Switch  to  read  mode. 

$F5D9 

Convert  GCR  back  to  8-bit. 

$F5DC 

Change  job  code  to  VERIFY. 

$F5E6 

Go  back  to  verify  it. 

f)  Format  a  Blank  Diskette 

The  IP  format  routine  at  $C8C6  sets  up  a  JMP  $FAC7  instruction  at  $0600  and  then 
puts  an  EXECUTE  job  code  ($E0)  into  the  job  queue  ($0003).  On  its  next  pass  through 
the  idle  loop  the  FDC  finds  the  execute  job  code,  executes  the  code  at  $0600,  and  jumps 
to  the  formatting  routine  outlined  below. 
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OVERVIEW  OF  THE  FDC  FORMATTING  ROUTINE 


$FAC7 

Check  if  this  is  first  entry. 
If  not,  branch  to  $FAF5. 

$FACB 

Do  bump  to  track  #1  (CLUNK!) 

$FAE3 

Initialize  error  count  and 
bytes  around  track.  Exit. 

$FAF5 

Check  if  on  right  track. 

$FBOO 

Check  for  write  protect  tab. 

$FBOC 

Erase  track  with  sync. 

$FBOF 

Write  half  of  track  with  sync 
and  other  half  with  non-sync. 

$FB35 

Time  sync  &  non-sync  parts. 

$FB7D 

Compare  times  and  calculate 
how  long  tail  gaps  should  be. 

$FC36 

Create  images  of  headers. 

$FC86 

Create  dummy  data  block. 

$FC8E 

Convert  headers  to  GCR. 

$FC9E 

Convert  data  block  to  GCR. 

$FCAA 

Write  out  sectors  in  sequence. 

$FD24 

Go  to  read  mode  and  verify. 

$FD8B 

All  sectors  OK;  do  next  track. 

$FD96 

All  tracks  done;  exit. 

9.6  Using  the  FDC  Routines 

Some  of  the  floppy  disk  controller  routines  in  the  154rs  ROM  are  relatively  easy  to 
use.  Others  are  much  more  difficult. 

The  easy  ones  are  those  that  do  not  involve  reading  or  writing  to  a  diskette.  An  exam- 
ple of  this  type  of  routine  would  be  the  GET4GB  ($F7E6)  routine  that  converts  5  GCR 
bytes  into  4  normal  8-bit  binary  bytes.  These  routines  can  be  executed  by  using  the 
techniques  described  in  Section  9.4. 
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The  tough  ones  are  those  that  involve  reading  or  writing  to  a  diskette.  To  illustrate 
how  to  do  this,  we'll  try  something  interesting.  How  about  developing  a  routine  that 
allows  us  to  move  the  head  anywhere  on  a  diskette  (say  track  5)  and  read  the  next  header 
(or  whatever)  that  passes  over  the  read/write  head. 

First  we  have  to  find  out  how  to  move  the  head  around.  A  quick  check  of  the  map  of 
the  I/O  chips  at  the  end  of  Appendix  A  tells  us  that  the  stepper  motor  that  moves  the 
head  is  controlled  by  bits  0  and  1  of  DSKCNT  ($1C00).  Cycling  these  two  bits  causes 
the  head  to  move.  Hmm  .  .  .  Cycling  the  bits  must  mean:  00-01-10-11-00  versus 
11-10-01-00-11.  Time  out  for  a  bit  of  testing.  Here's  our  program: 

100  REM  MOVE  THE   1541 'S  HEAD 

110  PRINT"  tCLRXDOWNJCOMMANDS:   U=UP  D=DO 

WN  Q=QUIT" 

120  OPEN  15,8, 15, "I" 
130  PRINT#15, "M-R"CHR*(0)CHR*(28) 
140  GET#15, X*: X=ASC(X*+CHR* (0) ) 
150  BI=X  AND  3 

160  PRINT"  <H0ME><:D0WN  3>BI  =  "BI 
170  GET  A* 

180  IF  A*="U"THEN  BI=BI+1 

190  IF  A*="D"THEN  BI=BI-1 

200  IF  A*="D"THEN  CLOSE   15: END 

210  BI=BI  AND  3 

220  R=(X  AND  252) OR  BI 

230  PRINT#15, "M-W"CHR* <0>CHR*(28)CHR*(1> 

CHR*(R) 

240  GOTO  130 


After  much  peeking  through  the  drive  door  with  a  flashlight  we  discover  that  our  pro- 
gram actually  does  make  the  head  move.  When  we  press  "U"  the  head  moves  closer 
to  the  center  (higher  track  numbers)  and  when  we  press  "D"  the  head  moves  outward 
(lower  track  numbers).  We've  got  it!  Quick  let's  write  it  down  before  we  forget. 

To  move  the  head,  cycle  bits  0  and  1  of  $1C00 


00-^  01-^    10—  11-^ 

0  12  3 

11-*^  10-*^    01—    00  — 

3  2  10 


00     head  moves  inwards 
0 

11     head  moves  outwards 
3 


The  only  problem  that  remains  is  to  find  out  how  much  the  head  moves  each  time. 
Hmm  ...  If  we  read  from  a  track  and  then  peek  at  $1C00  .  .  .  Time  for  more  testing: 

10  REM  CHECK  PHASE  FOR  ALL  TRACKS 
20  OPEN  15,8, 15, "I" 
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30  OPEN   1,8,5, "#" 

40  FOR  TR=1    TO  35 

50  PRINT#15, "Ul:5  0"TR;0 

60  PR I NT# 1 5 , " M-R " CHR* ( O ) CHR* ( 28 ) 

70  GET#15, X*: X=ASC(X*+CHR*(0) ) 

80  PRINT   TR;X   AND  3 

90  NEXT 

lOO  CLOSE 1 : CLOSE 15 


When  we  run  this  test  program,  we  get  a  very  interesting  table: 


1 

0 

2 

2 

3 

0 

4 

2 

5 

0 

6 

2 

7 

0 

8 

2 

9 

0 

10 

2 

11 

0 

12 

2 

13 

0 

14 

2 

15 

0 

16 

2 

17 

0 

18 

2 

19 

0 

20 

2 

21 

0 

22 

2 

23 

0 

24 

2 

25 

0 

26 

2 

27 

0 

28 

2 

29 

0 

30 

2 

31 

0 

32 

2 

33 

0 

34 

2 

35 

0 

The  phase  of  the  stepper  motor  is  always  even  (0  or  2)  when  the  head  is  on  a  track. 
Therefore,  the  head  must  be  moving  half  a  track  at  a  time.  Very  interesting  indeed! 

Now  that  we  can  move  the  head  around,  we  want  to  find  out  how  to  read  something. 
But  before  we  go  rummaging  through  the  ROM's,  wasn't  there  something  about  the 
clock  rate  being  different  for  each  zone?  Ah,  here  it  is.  Bits  5  and  6  of  $1C00  set  the 
recording  density.  Let's  see.  Bit  5  represents  32  and  bit  6,  64.  Let's  change  one  line 
of  our  last  test  program  and  try  again.  Here's  the  new  line: 

80  PRINT   TR;X  AND  96 


When  we  run  our  revised  program,  we  get  another  interesting  table. 


1 

96 

2 

96 

3 

96 

4 

96 

5 

96 

6 

96 

7 

96 

8 

96 

9 

96 

10 

96 

11 

96 

12 

96 

13 

96 

14 

96 

15 

96 

16 

96 

17 

96 

18 

64 

19 

64 

20 

64 

21 

64 

22 

64 

23 

64 

24 

64 

25 

32 

26 

32 

27 

32 

28 

32 

29 

32 

30 

32 

31 

0 

32 

0 

33 

0 

34 

0 

35 

0 

By  George,  we've  got  it. 

$1C00 


Zone 

Tracks 

Bit  6 

Bit  5 

Number 

1 

1-17 

1 

1 

96 

2 

18-24 

1 

0 

64 

3 

25-30 

0 

1 

32 

4 

31-35 

0 

0 

0 

Let's  do  some  digging  in  those  ROM's  now.  A  quick  scan  through  the  table  of  Major 
FDC  Entry  Points  in  Section  9.5  (c)  turns  up  SEAK  ($F3B1),  seek  any  header  on  the 
track.  A  check  of  the  detailed  analysis  in  Appendix  B  looks  promising.  A  careful  study 
of  a  disassembly  of  the  routine  indicates  that  this  is  just  what  we  were  looking  for.  And, 
we  don't  have  to  do  much  setup  either.  Here's  all  the  information  we  need: 
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1.  The  entry  point  is  $F3B1. 

2.  JOB  ($45)  should  be  $30  so  the  branch  at  $F3E6  is  taken. 

3.  JOBN  ($3F)  should  contain  the  correct  buffer  number  so  the  error  handler  routine  at 
$F969  works  properly. 

Now  comes  the  tricky  part.  Since  the  routine  involves  reading  from  or  writing  to  a 
diskette,  we  cannot  execute  the  routine  using  a  memory-execute  command.  We  have 
to  use  a  two  step  process: 

1.  Use  a  memory-write  command  to  store  a  machine  language  routine  (it  does  the  set- 
up and  then  a  JMP  to  $F969)  into  the  start  of  one  of  the  buffers  (we'll  use  buffer 
-0  at  $0300). 

2.  Force  the  6502,  while  in  FDC  mode,  to  execute  our  routine  by  putting  a  JUMP  or 
EXECUTE  job  code  in  the  appropriate  spot  in  the  job  queue  (we'll  put  a  JUMP  code 
into  $0000). 

The  program  listed  below  puts  it  all  together  for  us.  It  may  appear  a  bit  intimidating 
at  first.  But,  if  you  are  interested  in  exploring  the  innards  of  your  drive  it  is  one  of  the 
most  powerful  tools  presented  in  this  manual.  It  allows  you  to  move  the  head  anywhere 
you  want  and  read  the  next  header  passing  over  the  read/write  head.  The  screen  display 
shows  you  where  the  head  is,  what  track  and  sector  was  read,  and  describes  any  read 
errors  that  were  encountered. 


100  PRINT"  <:CLR>{ DOWN >       MOVE  THE   1541 'S 
READ/WRITE  HEAD" 

110  PRINT" <DOWN  2> INSERT  TEST  DISK" 
120  PRINT" ^DOWN  2>PRESS  £RVS>RETURN^ROFF 
>   WHEN  READY" 
130  : 
140  REM 
HEADER 
150  REM 
ISO  : 
170 
180 
190 
200 
210 
220 
230 


DATA 
DATA 
DATA 
DATA 
DATA 


MACHINE  CODE  ROUTINE  TO  READ  A 

RESIDES  AT  *0300    (BUFFER  ^O) 

169,48:  :REM  LDA  #*30 

133,69:  :REM  ST a  *45 

169,00:  :REM  LDA  5**00 

133,63:  :REM  ST A  *3F 

76,177,243   : REM  JMP  *F3B1 


D* (0) ="00" : D* ( 1 ) ="01 " : D$ (2) =" 10" : D* ( 


3)="11" 
240  DIM 

250 
260 
270 
280 
290 
300 
310 


FD* ( 16) 
FD*(0)=" 
FD*(1)="01 
FD*(2)="02 
FD*(3)="03 
FD*(9)="09 

T=ia:Ni$ 


ALL  OK 

HEADER  BLOCK  NOT  FOUND 
NO  SYNC  CHARACTER 
HEADER  BLOCK  CHKSUM  ER 
"?" : N2*="?" : TR=255 


GET  A*: IF  A*<>CHR*(13)    GOTO  310 
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330  OPEN   15,8, 15, "I" 
340  : 

350  REM  DIG  OUT  MASTER  DISK  ID 
360  : 

370  PRINT#15, "M-R"CHR* ( IS) CHR* (O) CHR$ (2) 

380  GET#15, 1 14 : IFI 1«=" "THENI 1«=CHR* (O) 
390  GET# 1 5 , I 2* : I F I 2«= " " THEN I 2*=CHR« ( O ) 
400  : 

410  PRINT" ^CLR>" 
420  : 

430  REM  READ  THE  DISK  CONTROLLER  PORT 
440  : 

450  PR I NT# 15," M-R " CHR* ( 0 ) CHR* ( 28 ) 
460  GET#15,A«:IF  A*=""THEN  A«=CHR4(0) 
470  A=ASC(A$) 
480  CV=3  AND  A 

490  A=(159ANDA) OR (96+32* ( ( T>17) + ( T>24) + < 
T>30) ) ) 

500  FRINT#15, "M-W"CHR* (O) CHR$ (28) CHR$ < 1 ) 
CHR$(A  OR  4) 
510  : 

520  REM  DISPLAY  VALUES 
530  1 

540  PRINT"  <:H0ME>  {DOWND        MOVE  THE   1541 '3 

READ/WRITE  HEAD" 
550  PRINT" CDOWNDCURRENT  PHASE  ="CV 
560  PRINT"BITS   1    8<  O  OF   $1C00  ARE  "D*(CV 
> 

570  PRINT" CDOWNIMASTER  DISK  ID:  "11$; 12$ 
580  PRINT"  <:D0WN]  TRACK  #  FROM  STEPPER:  "T" 

<:left> 

590  PRINT"  <:D0WN>FDC  ERROR:  "FD*  (E) 

600  T$=STR*  (TR)  :  S$=STR$  (SE)  :  IF  EOl  THEN 

7$= " 77 " : N 1 $= " 7 " : N2$= "7" Z S$= " ?? " 
610  PRINT" CDOWN>TRACK  #  AS  READ:  "RIGHT 
$(Tt,2) 

620  PR I NT "SECTOR  #  AS  READ:  "RIGHT* (S$, 2 
> 

630  PRINT" ID  OF  TRACK  READ:  "N1*;N2$ 
640  PRINT" tDOWN  2> COMMANDS : " 
650  PRINT" ^DOWNJ     Fl   =  MOVE  HEAD  OUT  (LO 
WER  TRACK  #) 

660  PRINT"  F3  =  MOVE  HEAD  IN  (HIGHER  TR 
ACK  #) 

670  PRINT"     F5  =  ATTEMPT  TO  READ  TRACK  # 
St  ID" 

680  PRINT"     F7  =  TERMINATE  PROGRAM" 

690  PRINT"        I   =   INITIALIZE    (TO  TRACK  18 

)  " 

700  P=PEEK(197) 
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710   IF  P=3  GOTO  910 

720  IF  P=4  AND  T>1  THEN  C=-1:GOTO  800 
730  IF  P=5  AND  T<35  THEN  C=1:G0T0  800 
740   IF  F-6  GOTO  990 

750   IF  P=33  THEN  PRINT#15, " I " : T=18: E=0: A 
=214:G0T04a0 
760  GOTO  450 
770  : 

730  REM  CHANGE  PHASE   IN  RESPONSE  TO  CDMM 

AND 

790  : 

80O  CV=(CV  +  C)AND3 

810  T=T+C* . 5 : I FT< 1   THENT= 1 

820  IFT>36THENT=36 

830  B=A  AND  252 

840  C=B+CV 

850  PRINTttlS,  "!i-W"CHR*(0)CHR*(28)CHR*<l) 

CHR*<C) 

860  E=0 

870  GOTO  450 

880  : 

890  REM  TERMINATE  PROGRAM   (DRIVE  OFF) 
900  : 

910  PRINT#15, "M-W"CHR*(0)CHR*<28)CHR*(1) 
CHR* (240) 

920  FOR  k=itoio:geta*:next 

930  close   15: end 
940  : 

950  REM  ATTEMPT  TO  READ  ANY  HEADER 
960  : 

970  REM  READ  St  SEND  MACHINE  CODE  ROUTINE 
980  : 

990  RESTORE: C$="" 

1000  FOR  K=i  TO  ll:READ  X : C$=C$+CHR$ ( X ) : 
NEXT 

1010  PRINTttl5, "M-W"CHR* (O) CHR* (3) CHR* ( 1 1 

)C* 

102O  : 

1030  REM  PUT  JMP  JOB   IN  THE  JOB  QUEUE 
1040  : 

1050  PRINTS 15, "M-W"CHR*(0)CHR«(0)CHR*(1) 
CHR« (208) 
1060  : 

1070  REM  WAIT  FOR  JOB  TO  FINISH 
1080  : 

1 090  PR I NT# 1 5 , " M-R " CHR* ( O ) CHRS ( 0 ) 
1 1 00  GET# 1 5 , E* : E= ASC ( E*+CHR* ( O ) ) 
1110   IF  E>127  GOTO  790 
1120  : 
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1130  REM  "E"   IS  FDC  ERROR  CODE  RETURNED 
1140  IF  EOl   GOTO  450 
1150  : 

1160  REM  CLEAN  READ  30  DIG  OUT   ID,  TRAK 
&  SECT 
1170  : 

1180  PRINT#15, "M-R"CHR*<22)CHR*<0)CHR*(4 
) 

1190  GET#15,N1* 
1200  GET#15,N2* 

1210  GET#15, X*: TR=ASC(X$+CHR*<0) ) 
1220  GET#15, X$:SE=ASC(X*+CHR*(0) ) 
1230  GOTO  450 

Although  this  program  allows  you  to  move  the  head  and  read  data  in  half-track  in- 
crements, you  can't  double  the  capacity  of  your  drive  by  using  all  70  "tracks."  The 
magnetic  path  produced  by  the  read/write  head  is  just  too  wide.  However,  it  may  be 
possible  to  devise  a  protection  scheme  in  which  the  "protected  information"  is  recorded 
when  the  head  is  in  an  "odd  phase"  (1  or  3).  Crosstalk  from  the  two  odd-phase  tracks, 
though,  would  make  the  diskette  unreadable  except  by  a  specialized  routine  like  this. 


A  floppy  diskette  consists  of  a  circular  piece  of  plastic.  It  is  coated  on  both  sides  with 
a  thin  layer  of  magnetic  particles,  usually  particles  of  iron  oxide.  Each  particle  is  made 
up  of  a  large  number  of  extremely  small  atomic  magnets  called  "magnetic  domains." 
When  a  floppy  diskette  is  new,  these  magnetic  domains  are  oriented  randomly  and  the 
surface  is  unmagnetized. 

The  record/play  head  consists  of  a  coil  of  wire  wrapped  around  a  ring  of  iron  or  other 
magnetic  material.  A  small  segment  of  the  ring  is  missing.  This  is  the  "gap."  The  gap 
is  the  part  that  comes  in  contact  with  the  surface  of  the  diskette.  Magnified  many  times, 
the  head  looks  something  hke  this: 


9.7  The  Recording  Process 
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Write  Mode: 


In  write  mode  an  electric  current  passes  through  the  coil.  The  current  causes  the  head 
to  become  an  electromagnet  whose  strength  and  polarity  depends  on  the  amount  and 
direction  of  the  electric  current.  The  gap  in  the  ring  interrupts  the  magnetic  field  and 
causes  it  to  flare  outwards.  If  the  gap  is  in  contact  with  the  surface  of  the  floppy  diskette, 
some  of  the  magnetic  domains  on  the  surface  shift  position  and  line  up  with  the  magnetic 
field  of  the  head.  Some  of  these  magnetic  domains  retain  their  new  orientation  even 
after  leaving  the  vicinity  of  the  gap,  i.e.,  the  surface  of  the  diskette  has  become 
magnetized. 


WRITE  MODE 


//////////////////////////// /n ////N/// //////// 


The  amount  and  direction  of  the  current  flowing  through  the  coil  determines  the  strength 
and  polarity  of  the  electromagnet.  The  more  current,  the  stronger  the  electromagnet, 
and  the  greater  the  magnetization  of  the  surface  of  the  diskette.  In  audio  recording, 
the  amount  of  current  flowing  through  the  coil  fluctuates  to  match  the  changing  audio 
signal.  In  digital  recording,  there  are  only  two  possible  currents,  full  current  in  one  direc- 
tion or  full  current  in  the  other  direction.  When  data  is  recorded  onto  the  surface  of 
a  floppy  diskette,  the  track  becomes  a  series  of  bar  magnets  laid  end  to  end. 


Read  mode: 

In  read  mode  the  moving  magnetic  areas  on  the  surface  of  a  diskette  induce  an  elec- 
trical voltage  in  the  head.  Because  of  the  nature  of  electromagnetic  induction,  the 
maximum  induced  voltage  is  NOT  produced  by  the  regions  where  the  magnetic  field 
is  greatest.  The  maximum  signal  occurs  where  the  magnetic  fields  change  most  rapidly. 
The  signal  from  the  head  must,  of  course,  be  amplified  and  shaped  before  it  is  usable. 


200 


Writing  data  to  a  disl<ette: 


When  data  is  being  recorded  onto  a  floppy  diskette,  the  data  is  "clocked  out"  at  a  fixed 
rate.  This  permits  an  interesting  recording  scheme.  The  direction  of  the  current  flow- 
ing through  the  head  changes  only  when  a  "1"  bit  is  to  be  recorded.  Zeros  are  represented 
by  the  absence  of  a  transition  at  a  particular  location.  The  diagram  below  represents 
what  is  actually  recorded  on  a  diskette. 
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Note  that  the  data  recorded  onto  a  diskette  is  not  divided  into  bytes.  There  is  just  one 
continuous  stream  of  bits.  In  order  to  know  where  to  begin  to  read  or  write  bits,  we 
need  some  special  identifying  mark.  This  is  the  function  of  the  SYNC  mark,  a  string 
of  10  or  more  I's  in  a  row.  The  GCR  code  (see  Chapter  7)  is  designed  so  that  no  combina- 
tion of  bytes  can  produce  more  than  eight  "1"  bits  in  a  row.  This  guarantees  the  unique- 
ness of  the  sync  mark. 

The  1541  records  between  4000  and  6000  magnetic  zones  (bits)  per  inch.  Since  the  diskette 
rotates  at  a  constant  angular  velocity  (300  rpm),  you  may  wonder  how  Commodore 
manages  to  get  more  bits  on  the  outer  tracks  than  the  inner  ones.  The  1541  manages 
this  bit  of  magic  by  clocking  out  the  data  at  different  rates  depending  on  the  track.  On 
the  longer  outer  tracks,  the  data  is  clocked  out  faster  than  for  an  inner  track  (see  table 
in  Chapter  3).  However,  the  increase  in  clock  rate  is  not  really  proportional  to  the  in- 
crease in  track  length.  This  means  that  the  outer  tracks  have  a  bit  density  of  only  4300 
bits/inch  while  the  inner  tracks  are  recorded  at  6000  bits/inch.  If  the  clock  were  not  in- 
creased for  the  outer  tracks,  the  bit  density  on  the  outermost  track  would  fall  to  about 
3500  bits/inch. 


Reading  data  from  a  disl<ette: 

When  data  is  being  read  from  a  floppy  diskette,  the  data  is  "clocked  in"  at  a  fixed  rate. 
A  magnetic  transition  is  interpreted  as  a  "1"  bit.  The  lack  of  a  signal  when  data  is  ex- 
pected is  interpreted  as  a  "0"  bit.  Since  the  speed  of  the  drive  is  not  absolutely  con- 
stant, we  can  run  into  problems  if  there  are  too  many  "0"  (no  signal)  bits  in  a  row.  Com- 
modore's GCR  code  is  designed  so  that  no  GCR  byte,  or  combination  of  GCR  bytes, 
ever  contains  more  than  two  consecutive  "0"  bits.  As  a  further  precaution,  the  clock 
is  zeroed  (cleared)  every  time  a  "1"  bit  is  read.  This  re-synchronizes  the  clock  to  the 
bit  stream  and  prevents  small  fluctuations  in  the  speed  of  the  drive  from  causing  read 
errors. 

9.8  Block  Diagram  of  the  1541 

This  block  diagram  of  the  1541  electronics  emphasizes  the  components  involved  in  reading 
and  writing  data. 
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1541  BLOCK  DIAGRAM 
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The  divide-by-N  counter  determines  the  actual  rate  at  which  bits  are  read  or  written. 
For  tracks  1-17  the  clock  divisor  is  13,  for  tracks  18-24  it  is  14,  for  tracks  25-30  it  is  15, 
and  for  tracks  31-35  it  is  16. 


9.9  Writing  Data  to  a  Disl<ette 

The  diagrams  below  highlight  the  important  components  and  waveforms  involved  in 
the  writing  of  a  GCR  encoded  data  byte  to  disk. 
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To  help  clarify  the  recording  process  let's  follow  a  byte  of  data  (10100110)  as  it  is  writ- 
ten to  a  diskette. 


STEP  1.  The  6502  converts  the  header  block  ID  ($07),  the  256  data  bytes,  the  data  block 
checksum,  and  two  null  bytes  into  325  GCR  encoded  bytes. 

STEP  2.  The  head  is  positioned  to  the  appropriate  track  and  the  clock  divisor  is  set 
to  the  correct  value  for  this  track. 

STEP  3.  The  track  is  read  until  the  correct  sector  header  block  is  found.  Wait  out  the 
header  gap. 

STEP  4.  Switch  to  write  mode  by  ANDing  the  contents  of  the  6522's  peripheral  con- 
trol register  (PGR)  with  $1F,  ORing  the  result  with  $C0,  and  storing  the  final 
result  back  in  the  PGR. 

STEP  5.  Write  out  five  $FF  characters  as  the  data  block  sync  mark. 

STEP  6.  Transfer  the  first  8-bit  byte  of  the  GCR  encoded  data  to  the  data  lines  (D0-D7) 
of  the  6522  PIA. 

STEP  7.  Since  Port  A  of  the  6522  is  configured  as  an  output  port,  the  data  appears 
on  the  Port  A  lines  PAO  to  PA7.  This  transfers  the  byte  to  the  74LS165  (UD3) 
parallel  to  serial  shift  register. 

STEP  8.  The  bits  are  clocked  out  of  the  shift  register  (2)  whenever  the  QB  line  (1)  of 
the  74LS193  hexadecimal  counter  (UF4)  makes  a  transition  from  ground  to 
-1-5  volts. 
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STEP  9.  The  bit  stream  from  the  shift  register  (2)  is  presented  to  the  clock  input  of 
the  74LS74  flip  flop  (UF6).  The  output  of  this  flip  flop  (3)  changes  state 
whenever  the  bit  stream  (2)  makes  a  transition  from  ground  to  +5  volts. 


STEP  10.  The  output  of  the  flip  flop  (3)  is  amplified  and  sent  to  the  record/play  head 
of  the  drive.  This  causes  the  magnetic  zones  to  be  written  onto  the  surface 
of  a  diskette.  Note  that  the  direction  of  the  electric  current,  and  hence  the 
direction  of  magnetization,  changes  only  when  a  "1"  is  to  be  written. 

STEP  11.  Once  all  8  bits  have  been  clocked  out  of  the  shift  register,  the  byte  ready 
line  goes  high.  This  sets  the  overflow  flag  in  the  6502  to  indicate  that  it  is 
time  to  send  the  next  data  byte  to  the  6522. 

STEP  12.  Once  all  the  data  bytes  have  been  written,  switch  to  read  mode  by  ORing 
the  contents  of  the  6522's  peripheral  control  register  (PGR)  with  $E0  and 
storing  the  result  back  in  the  PGR. 


9.10  Reading  Data  From  a  Diskette 

The  diagrams  below  highlight  the  important  components  and  waveforms  involved  in 
reading  a  GGR  encoded  byte  of  data. 
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To  help  clarify  the  reading  process  let's  follow  a  byte  of  data  as  it  is  read  from  a  diskette. 

STEP  1.  The  head  is  positioned  to  the  appropriate  track  and  the  clock  divisor  is  set 
to  the  correct  value  for  this  track. 

STEP  2.  The  track  is  read  until  the  correct  sector  header  block  is  found. 

STEP  3.  Wait  for  the  sync  mark  at  the  start  of  the  data  block. 

STEP  4.  As  the  track  passes  over  the  record/play  head  a  stream  of  weak  electrical  pulses 
is  induced  in  the  head.  A  pulse  is  induced  whenever  the  magnetic  field  changes 
its  orientation.  The  pulse  is  amplified  and  shaped  (1). 

STEP  5.  The  stream  of  pulses  from  the  shaper  circuitry  (1)  is  fed  to  the  CLEAR  input 
of  the  74LS193  hexadecimal  counter  (UF4)  and  to  the  74LS02  (UE5)  NOR  gate. 
Whenever  a  pulse  occurs,  the  hexadecimal  counter  (UF4)  and  the  divide  by 
N  counter  (UE7)  are  cleared  to  a  count  of  zero.  This  ensures  that  the  clock 
is  always  synchronized  with  the  incoming  stream  of  pulses. 

STEP  6.  Once  the  hexadecimal  counter  has  been  cleared,  it  begins  to  count  up  the  clock 
pulses  it  receives  from  the  divide  by  16  counter.  QA  (not  shown)  is  the  I's 
bit  of  the  counter.  QB  (2)  is  the  2's  bit  of  the  counter.  QC  (3)  and  QD  (4)  are 
the  4's  and  8's  bits,  respectively. 

STEP  7.  On  each  ground  to  +5  volt  transition  of  QB  (2),  a  bit  is  shifted  into  the  74LS164 
serial  to  parallel  shift  register  (UD2).  The  bit  that  is  shifted  in  (5)  is  found 
by  NORing  the  QC  (3)  and  QD  (4)  lines  of  the  counter.  Note  that  whenever 
a  pulse  clears  the  divide  by  16  counter,  the  next  bit  is  read  as  a  "1."  If  the 
counter  has  not  been  cleared  before  the  next  ground  to  +5  volt  transition  of 
QB  (2),  the  next  bit  is  read  as  a  "0." 

STEP  8.  Once  8  bits  have  been  clocked  into  the  shift  register,  the  byte  ready  line  goes 
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high.  This  sets  the  overflow  flag  in  the  6502  to  indicate  that  it  is  time  to  read 
the  data  byte  from  the  6522. 

STEP  9.  The  6502  reads  the  data  byte  from  the  6522  and  stores  it  in  RAM. 

9.1 1  Summary  of  Bugs  in  DOS  2.6 

Over  the  years,  various  bugs  have  been  reported  in  Commodore's  disk  operating  systems. 
In  some  cases,  the  bugs  have  been  real;  in  other  cases,  imaginary.  This  section  sum- 
marizes our  findings  regarding  the  bugs  in  DOS  2.6.  Please  note  that  this  information 
applies  only  to  the  1541. 

1.  Incorrect  dummy  data  block  produced  during  formatting: 

During  formatting,  all  the  Commodore  disk  drives  (except  the  old  2040's)  write  out 
a  dummy  data  block  for  each  track  and  sector.  On  all  the  drives,  except  the  1541, 
this  dummy  data  block  consists  of  256  null  bytes  ($00).  On  the  1541  the  dummy  data 
block  consists  of  one  $4B  character  followed  by  255  $01  bytes.  This  is  caused  by  an 
unnecessary  INX  instruction  at  $FC86.  If  this  byte  were  replaced  by  a  NOP  ($EA), 
the  normal  dummy  data  block  would  be  produced. 

The  difference  in  the  dummy  data  blocks  does  not  cause  any  real  problems  and  pro- 
vides an  easy  way  to  identify  a  diskette  formatted  on  the  1541. 

2.  The  save  and  replace  command  "@0": 

Over  the  years  numerous  writers  have  advised  Commodore  owners  not  to  use  the 
save  and  replace  command  because  it  contained  a  bug.  Our  study  of  the  ROM  routines 
and  a  lot  of  testing  has  convinced  us  that  the  bug  in  the  replace  command  is  a  myth. 
There  are,  however,  two  situations  in  which  the  use  of  the  @  replacement  command 
can  cause  problems: 

a)  Replacing  an  unclosed  file,  *SEQ,  *PRG,  etc: 

When  you  replace  a  file,  the  new  file  is  written  to  diskette  first.  Then  the  DOS  pro- 
ceeds to  trace  through  the  file  chain  of  the  old  file  and  marks  the  sectors  it  finds 
as  available-for-use  in  the  BAM.  If  the  old  file  was  unclosed,  the  track  and  sector 
links  may  be  incorrect  and  some  of  the  blocks  in  a  different  active  file  on  the  diskette 
may  be  freed  (see  a  more  detailed  description  of  what  happens  in  Section  2.5  on  scratch- 
ing a  file).  If  this  happens,  subsequent  writing  to  the  diskette  will  overwrite  the  data 
in  this  file.  This  is  the  most  likely  cause  of  user  complaints  about  a  bug  in  the  save 
and  replace  command  on  the  2040  and  4040  drives.  The  code  at  $C835  prevents  this 
from  happening  on  the  1541  drive. 

b)  Not  enough  space  on  disk: 

When  a  file  is  replaced,  the  new  file  is  written  to  diskette  before  the  old  file  is  scratched. 
If  there  is  not  enough  space  on  the  disk  for  the  new  copy  of  the  file,  the  process  aborts. 
When  this  occurs,  the  error  light  will  come  on  (72,  DISK  FULL).  Usually,  this  makes 
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people  wonder  if  something  went  wrong;  so  they  VERIFY  to  be  sure  the  file  has 
been  saved  correctly.  The  file  verifies  as  OK.  A  check  of  the  directory  indicates  no 
unclosed  files.  However,  the  file  may  appear  somewhat  shorter  than  before.  This  did 
not  occur  because  your  program  has  been  compacted.  Rather,  it  was  truncated  by 
the  DOS.  It  isn't  all  there!  We  hope  you  have  a  backup  handy.  If  not,  you  may  still 
be  able  to  recover  your  file.  A  printout  of  the  BAM  and  some  quick  work  on  editing 
the  directory  entry's  starting  track  and  sector  are  in  order.  (See  Chapter  8.)  The 
sectors  shown  as  unallocated  (free)  in  the  BAM  hold  the  only  complete  copy  of  your 
program,  the  original  version  that  is.  The  latter  portions  of  the  @  replacement  ver- 
sion of  your  program  have  been  stored  in  disk  WOM  (Write  Only  Memory)  by  the 
DOS.  Bye,  bye. 

3.  The  Block-Read  (B-R)  command: 

This  command  has  been  replaced  by  the  Ul  command  and  with  good  reason.  The 
B-R  command  has  two  serious  bugs  that  make  it  unusable  on  the  1541.  The  use  of 
this  command  is  NOT  RECOMMENDED!  See  Chapter  5  for  the  gory  details. 

4.  The  Block- Write  (B-W)  command: 

This  command  has  been  replaced  by  the  U2  command  and  with  good  reason  too.  The 
B-W  command  is  also  unusable  on  the  1541.  The  use  of  this  command  is  NOT  RECOM- 
MENDED either.  Chapter  5  again  gives  the  scoop. 

5.  The  Block-Allocate  (B-A)  command: 

Although  this  command  seems  to  work  correctly  on  other  Commodore  drives,  it  does 
not  work  properly  on  the  1541.  This  command  really  has  two  functions: 

a)  To  allocate  a  free  sector  in  the  BAM: 

When  the  track  and  sector  specified  in  the  block-allocate  command  is  free  (not  in  use) 
in  the  BAM,  the  block  allocate  command  should  allocate  the  block  in  the  BAM.  The 
B-A  command  appears  to  do  this  correctly  on  the  1541. 

b)  Find  the  next  available  track  &  sector: 

If  the  track  and  sector  specified  in  the  block-allocate  command  is  already  allocated 
(in  use)  in  the  BAM,  the  block  allocate  command  should  not  change  the  BAM  in  any 
way.  It  should  return  a  65,  NO  BLOCK  error  and  report  the  track  and  sector  of 
the  next  available  block  in  the  BAM.  This  feature  of  the  B-A  command  was  included 
to  allow  the  programmer  who  is  creating  his  own  random  access  files  to  determine 
the  next  free  block  that  he/she  can  use. 

This  feature  of  the  B-A  command  does  not  work  correctly  on  the  1541!  The  command 
does  return  the  track  and  sector  of  a  free  block  all  right,  but  with  a  difference! 


1.  It  occasionally  returns  a  sector  on  track  18.  This  should  not  happen  because  track 
18  is  reserved  for  the  directory. 
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2.  It  ALLOCATES  ALL  THE  BLOCKS  on  the  track  that  it  returns  in  the  error 
message  in  the  BAM. 

Because  of  these  bugs,  the  use  of  the  B-A  command  on  the  1541  is  NOT  RECOM- 
MENDED. However,  the  CERTIFY  A  DISKETTE  program  listed  in  Chapter  5 
does  work.  The  reason  for  this  is  that  this  program  stores  a  duplicate  copy  of  the 
BAM  in  C64  RAM  which  is  later  rewritten  to  the  diskette.  This  technique  repairs 
the  damage  done  by  the  B-A  command. 

6.  UJ:  or  U:  command: 

Commodore  disk  drives  have  traditionally  used  one  or  both  of  these  commands  to 
enable  the  user  to  reset  the  drive  (just  as  though  the  drive  were  turned  OFF  and 
then  ON  again).  Neither  command  works  correctly  on  the  1541  drive.  The  drive  goes 
on  a  trip  to  never-never  land  and  must  be  turned  OFF  and  then  ON  again  to  recover 
from  one  of  these  commands.  The  command  "U;"  is  the  one  to  use  to  reset  the  1541. 

7.  UI-  command: 

The  1541  manual  indicates  that  this  command  is  used  to  set  the  disk  drive  to  operate 
correctly  with  the  VIC-20.  Current  1541's  work  with  a  VIC-20,  period. 

Summary 

Despite  its  flaws,  the  DOS  in  the  1541  is  a  remarkably  efficient  peripheral.  The  DOS 
programs  for  most  other  microcomputers  are  vastly  inferior  to  DOS  2.6;  a  little  faster 
maybe,  but  not  as  smart.  The  support  of  relative  file  structures,  read  ahead  buffering, 
and  the  underlying  principles  of  asynchronous  I/O  make  the  1541  an  outstanding  bargain 
in  the  world  of  microcomputing.  These  features  are  normally  found  only  in  multiuser 
or  multiprocess  operating  systems. 


9.12  Write  Incompatability  with  4040 

Programs  or  data  stored  on  a  diskette  formatted  on  a  1541  disk  drive  can  be  READ 
using  a  2040  or  4040  disk  drive.  Conversely,  a  1541  disk  drive  can  READ  a  diskette 
formatted  on  either  a  2040  or  4040  disk  drive.  However,  these  drives  are  not  completely 
write  compatible. 

This  write-incompatibility  problem  appears  to  be  caused  by  two  things: 

1.  Differences  in  the  header  gap  length. 

2.  Alignment  problems  (particularly  with  the  1541). 

Let's  consider  the  differences  in  the  header  gap  length  first. 
Differences  in  f-ieader  Gap  Length 

The  2040  and  4040  drives  use  a  header  gap  that  is  nine  OCR  bytes  long  while  the  1541 
uses  a  header  gap  that  is  only  eight  non-GCR  bytes  long.  On  this  basis  we  would  expect 
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the  header  gaps  to  be  90  and  64  bits  long  respectively.  However,  when  we  use  a  bit- 
grabber  to  view  the  gap  we  find  that  the  actual  header  gaps  as  recorded  on  disk  are 
100  bits  for  the  4040  and  92  bits  for  the  1541.  In  read  mode,  this  makes  no  difference. 
After  reading  the  header  bytes  to  check  that  this  is  the  correct  sector,  all  the  drives 
simply  wait  for  the  next  sync  mark.  The  number  of  bytes  in  the  header  gap  does  not 
matter.  Once  the  sync  mark  is  over,  the  first  character  in  the  data  block  is  read.  This 
is  the  data  block  ID  character.  If  it  is  not  a  $07,  the  DOS  reports  a  22  READ  ERROR 
(data  block  not  found). 

In  write  mode,  however,  the  length  of  the  header  gap  is  important.  After  reading  the 
header  bytes  to  check  that  this  is  the  correct  sector,  all  the  drives  count  off  the  bytes 
that  make  up  the  header  gap.  Once  the  correct  number  of  bytes  have  been  read,  the 
drive  flips  to  write  mode  and  begins  writing  out  the  data  block  sync  character.  Since 
this  is  reputed  to  be  an  important  aspect  of  the  write  incompatibility  problem,  let's  ex- 
amine what  happens  in  some  detail. 

The  last  part  of  the  header  gap  and  the  start  of  the  data  block  sync  mark  in  a  sector 
of  a  diskette  that  has  just  been  formatted  on  a  1541  disk  drive  looks  something  like  this: 

Sync  mark 

1541      xxxxxxxxxxllllllllllllllllllllllllllllllllllll—  92  bits 

The  last  part  of  the  header  gap  and  the  start  of  the  data  block  sync  mark  in  a  sector 
of  a  diskette  that  has  just  been  formatted  on  a  4040  disk  drive  looks  something  like  this: 

Sync  mark 

4040      xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  111111111111-^  100  bits 

When  a  sector  of  a  diskette  that  was  ORIGINALLY  FORMATTED  ON  A  4040/2040 
disk  drive  is  REWRITTEN  ON  A  1541,  the  result  is  as  follows: 

Original  Sync  mark 

4040     xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  111111111111-*- 

Rewrite  Sync  mark 

1541  xxxxxxxxxx-11111111111111111111111111111111111— 

Sync  mark 

Result  xxxxxxxxxx-111111111111111111111111111111111111— 


NOTE:  The  "-"  marks  when  the  drive  switches  into  write  mode.  A  transient  current 
appears  to  flow  through  the  record/play  head  during  this  time  interval. 

The  original  sync  mark  on  the  diskette  has  been  completely  overwritten  by  the  new 
one.  This  sector  can  be  read  cleanly  on  any  drive.  It  appears  that  a  1541  drive  should 
be  able  to  write  data  onto  a  diskette  that  was  originally  formatted  on  a  4040  drive  without 
causing  any  problems. 

When  a  sector  of  a  diskette  that  was  oHginally  formatted  on  a  1541  disk  drive  is  revrrit- 
ten  on  a  4040/2040,  the  result  is  as  follows: 
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Original  Sync  mark 

1541  xxxxxxxxxxllllllllllllllllllllllllllllllllllll-*^ 

Rewrite  Sync  mark 

4040  xxxxxxxxxxxxxxxxx-111111111111111111111111111111-^ 

Pseudo-sync        Sync  mark 
Result  xxxxxxxxxxlllllll-11111111111111111111111111111- 

NOTE:  The  "-"  marks  when  the  drive  switches  into  write  mode.  A  transient  current 
appears  to  flow  through  the  record/play  head  during  this  time  interval. 

In  this  case,  the  original  sync  mark  on  the  diskette  has  NOT  been  completely  overwrit- 
ten by  the  new  one.  The  start  of  the  old  sync  mark  is  still  there.  What  actually  gets 
recorded  at  the  start  of  the  "new"  sync  mark  depends  on  the  speed  of  the  drives,  the 
polarity  of  the  magnetic  field  used  to  record  the  original  "1"  at  that  spot  on  the  diskette, 
and  any  transients  that  flow  through  the  head  as  it  switches  into  write  mode. 

Before  you  read  this  next  section,  be  sure  that  you  understand  Section  9.7  on  the  Record- 
ing Process. 

Let's  take  a  look  at  an  "exploded"  view  of  that  spot  just  before  the  new  sync  character 
is  written.  Remember,  a  "1"  is  not  recorded  as  magnetization  in  a  particular  direction. 
It  is  simply  a  change  in  the  direction.  Now  that  you've  got  that  straight,  here  is  what 
that  spot  might  look  like. 
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Everything  appears  normal.  Now  let's  write  that  sync  mark. 
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Everything  worked  out  just  fine.  We  have  a  clean  sync  mark  and  the  sector  can  be  read 
cleanly  by  either  drive.  However,  suppose  our  74LS74  flip-flop  (UF6)  had  been  in  the 
opposite  state  or  the  speed  of  this  drive  did  not  exactly  match  this  new  one.  What  would 
happen?  Take  a  look. 
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Argh!  Potential  problems.  Because  the  magnetic  polarity  of  the  new  "1"  happened  to 
match  the  polarity  of  the  existing  zone,  we  appear  to  have  just  created  a  double-length 
magnetic  zone.  If  we  have,  this  will  be  interpreted  as  a  "0"  bit.  From  a  study  of  the 
bits  actually  recorded  on  disk,  this  appears  to  happen  every  time!  If  there  are  more 
than  10  preceeding  "1"  bits,  this  single  "0"  will  be  interpreted  as  the  end  of  the  sync 
mark  and  the  drive  will  interpret  the  rest  of  the  sync  bits  as  data.  Since  this  will  definitely 
NOT  be  decoded  as  a  $07  byte,  the  drive  errs  out  with  a  22  READ  ERROR. 

Since  the  header  gaps  only  differ  in  length  by  8  bits,  we  should  always  have  only  seven 
I's  in  the  pseudo-sync.  An  examination  of  the  bits  recorded  on  the  disk  seems  to  sup- 
port this  conclusion.  As  a  further  test  we  did  some  testing  using  recently  aligned  drives. 
We  found  surprisingly  few  errors  when  we  use  a  4040  disk  drive  to  rewrite  all  non- 
directory  sectors  on  a  1541  formatted  disk.  On  a  freshly  formatted  diskette,  we  found 
no  errors  at  all  after  rewriting  over  2400  sectors.  If  the  sectors  of  the  1541  diskette 
had  been  rewritten  several  times  using  a  1541  before  they  were  rewritten  on  a  4040, 
we  did  start  to  find  a  few  errors.  However,  the  error  count  was  low.  Usually  less  than 
two  errors  when  rewriting  all  640  sectors  and  these  tended  to  occur  in  two  specific  areas: 
on  tracks  25  or  26  or  on  tracks  31  or  32.  These  findings  lead  us  to  conclude  that  the 
differences  in  header  gap  length  is  NOT  the  cause  of  write  compatibility  problems  be- 
tween the  1541  and  4040  disk  drives. 

If  for  some  reason  you  want  to  reduce  the  difference  in  header  gap  further  when  writing 
onto  a  1541  formatted  diskette  using  a  4040  drive,  enter  the  following  magic  incantation 
in  either  program  or  immediate  mode. 

OPEN  15,3,15 

PR I NT# 1 5 , " M-W " CHR* (157) CHR*  < 1 6  >  CHR* ( 1 >  CHR*  <  8  > 
CLOSE  15 

This  will  change  the  header  gap  length  of  the  4040  drive  from  9  to  8  GCR  bytes  (actual 
length  =  90  bits).  You  can  now  write  to  the  1541  diskette  with  little  fear  of  damage. 
However,  you  must  remember  to  reset  your  4040  drive  (turn  it  off  or  issue  a  UJ  com- 
mand) before  you  insert  one  of  your  4040  formatted  diskettes.  Otherwise,  a  magnetic 
plague  will  develop  among  your  4040  formatted  diskettes.  Don't  say  you  weren't  warned! 

Head  Positioning  Problems 

Since  we  encountered  so  few  errors  using  properly  aligned  drives,  we  feel  that  most 
of  the  reported  problems  of  incompatibilities  are  the  result  of  head  positioning  errors. 
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If  a  sector  is  rewritten  on  a  different  drive  and  the  position  of  the  read/write  head  is 
different,  the  new  data  will  not  completely  replace  the  old  as  indicated  below. 


Original 

N 

S 

s 

s 

on  one 

N 

1 

S 

s 

1 

0 

s 

drive 

N 

s 

s 

s 

Rewritten 

S 

N 

N 

S 

on  another 

S 

1 

0 

N 

N 

1 

s 

drive 

s 

N 

N 

s 

Original 

N 

1 

s 

s 

1 

0 

s 

Rewritten 

S 

N 

N 

s 

by  another 

S 

1 

0 

N 

N 

1 

s 

drive 

s 

N 

N 

s 

When  this  sector  is  read  on  the  original  drive,  the  head  will  pick  up  both  the  new  signal 
and  the  old  signal.  The  relative  strengths  of  these  two  signals  depend  on  the  amount 
of  the  original  signal  remaining.  If  the  two  drives  are  sufficiently  different,  the  read 
signal  will  be  garbled  and  produce  an  abundance  of  22  and  23  READ  ERROR'S. 

Summary 

In  conclusion,  although  there  is  a  difference  in  header  gap  size  between  the  1541  and 
the  4040  drives,  this  does  NOT  appear  to  be  the  cause  of  vmte  incompatibility  problems. 
Most  complaints  about  the  write  incompatibilities  of  various  disk  drives  are  probably 
due  to  problems  in  head  positioning.  Further  evidence  for  this  is  the  fact  that  some  schools 
are  experiencing  similar  difficulties  when  students  use  several  different  1541  drives  for 
saving  programs  on  a  single  diskette. 

9.13  TOOLS  FOR  EXPLORATION 

To  make  your  exploration  of  the  1541  easier  we  have  developed  two  programs  to  assist 
you. 

a)  Disk  peek  program 

This  program  allows  you  to  look  at  a  hex  dump  of  any  area  of  the  1541's  RAM  or 
ROM.  This  is  a  very  useful  tool  for  examining  the  contents  of  the  1541's  RAM. 

b)  Create  a  file  program 

This  program  allows  you  to  read  out  any  area  of  the  1541's  RAM  or  ROM  and  store 
the  contents  into  a  program  file  with  any  load  address  you  choose.  You  can  then  load 
the  file  into  your  64's  memory  and  examine  it  using  an  extended  machine  language 
monitor  such  as  SUPERMON. 
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NOTE:  Line  160  contains  a  special  character  #184  repeated  21  times.  This  character 
can  be  typed  by  holding  down  the  Commodore  logo  key  in  the  lower  left  corner  and 
pressing  the  U  key. 


1541  DISK  PEEK 

100  REM  1541   DISK  PEEK 
110  REM  BY  GERALD  NEUFELD 

120  C0=0: C2=2: C7=7: CA=10: F=15: CG=16: H0=4 
8:HX=127 

130  Z*=CHR*<0)  :N*='■'■ 
140  M*="    £RVS>         PRESS:      P  TO  PAUSE  Q 

TO  QUIT  £ROFF>" 
150  PRINT" £CLR> "TAB <9) "PEEK  OF  1541 'S  ME 
MORY" 

160  PRINTTAB<9) "£#184  21>" 
170  PRINTTAB(4)"     COPYRIGHT:   G.  NEUFELD, 
1983" 

180  PRINT" £DOWN>  ONE  MOMENT  PLEAS 

E  " 

190  DIM  HX*(255) ,H*(15) 

191  FOR  K=0  TO  9:H*<K)=CHR*<48+K) :NEXT:F 
ORK= 1 OTO 1 5 : H* ( K ) =CHR*  <  55+K ) : NE  X  T 

200  F0RJ=0T0F: FORK=OTOF: HX*  < J*16+K) =H* ( J 

)+H*(K) :NEXT:NEXT 

210  PRINT" £HOME>£DOWN  2>"M* 

220  PRINT" £DOWN>      INPUT  START  ADDRESS  IN 

HEXADECIMAL" 
230  OPEN  15,3, 15 

240  PRINT" £DOWN>   *0000" : PRINT" £UPD " ; 
250  INPUT  H* 

260  HL=C0 : HH=C0 : FORK= 1 T02 : C= ASC ( M I D* ( H* , 
K) )-H0: IFC>CATHENC=C-C7 

270  IF  C<C0  OR  OF  THENPRINT" £UP  23 " ; : GO 
T0240 

280  D= ASC ( M I D* ( H* , K+2 ) ) -HO : I FD  >C ATHEND=D 
-C7 

290  IF  D<C0  OR  D>F  THENPRINT" £UP  2> " ; : GO 
T0240 

300  HH=HH+C*CG'^  ( C2-K )  :  HL=HL+D*CG'"  ( C2-K )  : 
NEXTK 

310  PRINT"£UP>"TAB(6) ; 

320  PRINT#15, "M-R"CHR*<HL)CHR*(HH)CHR*(8 
) 

330  0*="":FOR  K=C0T0C7:GET#15, A*: IF  A*=N 
*THENA*=Z* 

340  A=ASC<A*) :E=AANDHX:E*=". ": IFE>31ANDE 
<97THENE*=CHR* (E) 

350  0*=0*+E*: PRINT"   "HX* < ASC ( A*) ) ; : NEXT: 
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PRINT"  {RVS:"0* 

360  FL=0 : HL=HL+8 : I FHL  >255THENHL=HL-256 :  H 

H=HH+ 1 : FL= 1 : PR I NTM* 

370   IF  HL=128  THEN  FL=1:PRINTM* 

380  PRINT"   *"HX*(HH)HX*(HL) ; : IFFL=1THENP 

R I  NT:  PRINT"  <:UP>";  :G0T0250 

390  GET  A*: IF  A*=""GOTO  320 

400  IF  a*="P"thenprint:print"<:up>";  :GOTO 

250 

410  CL03E15 


CREATE  A  FILE 

10  PRINT"  <:CLR><:D0WN>  "TAB  (6)  "DISK  ROM  TO 
FILE" 

20   INPUT"  <:D0WN>START  at  location  (HEX) 
ClOOtLEFT  6>";A* 

30  Z*=A*:G0BUB280:S=Z: IF   ZF=1   GOTO  20 
40  PRINT"  <:UP>  "TAB  (31 )  Z 

50  INPUT"  <: DOWN > QUIT  AT  LOCATION  (HEX)  F 
FFFtLEFT  6>";A* 

60  Z*=A*:G0SUB280:Q=Z: IF   ZF=1   GOTO  50 
70  PRINT"  <:UP>  "TAB  (31 )  Z 

80  INPUT"  <:D0WN>SAVE  IN  FILE  NAMED  ROM  1 
541<LEFT  10>";F* 

90  INPUT" CDOWNDWITH  LOAD  ADDRESS  OF  (HEX 
)      llOOtLEFT  6>";A* 

100  Z*=A*:G0SUB280:L=Z: IF  ZF=1   GOTO  90 

110  PRINT"  <:UP>  "TAB  (31 )  Z 

120  0PEN15,8, 15, "10" 

130  OPEN   1,8,5, "60: "+F*+",P,W" 

140  INPUT#15,EN,EM*,ET,ES 

150   IF  EN>19  THEN  PRINT" <DOWN>DISK  ERROR 

"EN; EM$; ET; ES: CLOSEl : CL0SE15: STOP 

160  PRINT" tDOWN  2> " 

170  LH=INT(L/256) :LL=L-256«LH 

180  PRINTttl,CHR*(LL) ;CHR*(LH) ; 

190  FOR  K=S  TO  Q 

200  KH=INT(K/256) : KL=K-256*KH 

210  PRINTttlS, "M-R"CHR*(KL)CHR*(KH) 

220  GETttl5,A*:IF  A*=""   THEN  A*=CHR*(0) 

230  PRINTttl,A*; 

240  PRINT"  <:UP>WORKING  ON"K 

250  NEXT 

260  CLOSEl: CLOSEl 5: END 
270  : 

280  Z=0:ZF=0 

290  IF  LEN(Z*)>4  THEN  ZF=1 :  PRINT"  CDOWNX: 

RVS>HEX  STRING  TOO  LONG": RETURN 

300   IF  LEN(Z*)<4  THEN  ZF=1 :  PRINT"  <:D0WN>  < 
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RVS>HEX  STRING  TOO  SHORT" : RETURN 
310  FOR  K=l   TO  4 

320  ZN=ASC(MID*<Z$,K) )-48: IF  ZN>9  THEN  Z 
N=ZN-7 

330  if  zn<0  or  zn>15  then  zf=1 : print" ^do 
wn><:rvs>bad  hex  character": return 

340  Z  =  Z  +  ZN  *  16-^(4-K) 
350  NEXT 
360  RETURN 

HAVE  FUN! 


Late  News 

In  early  1984  Commodore  began  shipping  the  1541  disk  drives  that  contained  a  new 
$EOOO-$FFFF  ROM.  The  part  numbers  of  these  ROMs  are:  original  901229-03  revised 
901229-05.  The  changes  in  the  nevi^  ROM  are: 


$E683  Eliminate  JSR  TO  ITTERR($EA4E)  to  solve  stack  overflow 

$E68B  problems. 

$E780  to  Eliminate  power-on  boot  of  the  utility  loader  to  solve  possible 

$E7A1  problems  during  initialization. 

$E9DC  Insert  JMP  to  patch  at  $FF20. 

$EAA4  Insert  JMP  to  patch  at  $EF10. 

$EBDB/DD/E0/E2  Change  initialization  of  the  serial  bus. 

$FEE6  New  ROM  checksum. 

$FF10  New  patch  to  change  the  initialization  of  the  serial  bus  during  the 
power-up  routine  DSKINT. 

$FF20  New  patch  to  the  serial  bus  hsten  routine  ACPTR. 


The  ROM  in  the  SX-64  has  an  additional  change.  The  header  block  gap  at  $F58D  has 
been  changed  from  $08  to  $09  to  eliminate  the  difference  in  header  gap  size  between 
the  4040  and  SX-64. 
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APPENDIX  A 

1541  RAM  VARIABLE  DEFIIMITIOIMS 
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JOB  QUEUE:  $0000-$0005 
The  job  queue  is  used  to  tell   the  disk  controller  what 
disk  operations  to  perform.   A  disk  command  such  as  LOAD, 
SAVE,   SCRATCH,   etc.    is  interpreted  by  the  drive's  6502 
(while  in  its  normal  mode)    and  broken  down  into  a  set  of 
simple  operations   (jobs)    such  as:   read  track  9  sector  18 
into  data  buffer  #2,  write  the  data  in  buffer  #3  out  to 
track  12  sector  5,   etc.   The  track  and  sector  information 
required  for  the  job  is  placed  into  the  header  table  and 
the  JOB  CODE  corresponding  to  the  job  to  be  done  is  put 
in  the  job  queue.   The  job  code's  position  in  the  queue 
indicates  which  data  buffer    (if  any)    is  to  be  used  and 
where  the  track  and  sector  information  is  stored  in  the 
header  table.  When  the  6502  is  next  in  its  floppy  disk 
controller  mode    (it  switches  every  10  milliseconds),  it 
scans  the  job  queue  looking  for  jobs  to  do.    If  it  finds 
one,   it  carries  it  out  making  use  of  the  track  and  sector 
information  in  the  header  table.  Once  the  job  is  done, 
or  aborted,   the  disk  controller  replaces  the  job  code 
with  an  error  code  that  indicates  the  job  status. 


JOB  CODES 


ERROR  CODES 


$80  READ  a  sector 
$90  WRITE  a  sector 
$A0  VERIFY  a  sector 
$B0  SEEK  any  sector 
$C0  BUMP    (move)  head 

to  track  #1 
$D0  JUMP  to  machine 

code  in  buffer 
$E0  EXECUTE  code  in 

buffer  once  up  to 

speed  &  head  ready 


$01  job  completed  successfully! 

$02  header  block  not  found 

$03  no  SYNC  character 

$04  data  block  not  found 

$05  data  block  checksum  error 

$07  verify  error  after  write 

$08  write  protect  error 

$09  header  block  checksum  error 

$0A  data  block  too  long 

$0B  ID  mismatch  error 

$10  byte  decoding  error 
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JOB  QUEUE  DEFINITIONS 


$0000 
$0001 
$0002 
$0003 
$0004 
$0005 


JOBS 


Use  buffer 
Use  buffer 
Use  buffer 
Use  buffer 
Use  buffer 
Use  buffer 


#0 
#1 
#2 
#3 
#4 
#5 


($0300+) 
($0400+) 
($0500+) 
($0600+) 
($0700+) 
(no  RAM) 


find 
find 
find 
find 
find 
find 


T/S 
T/S 
T/S 
T/S 
T/S 
T/S 


in 
in 
in 
in 
in 
in 


$06/7 
$08/9 
$OA/B 
$OC/D 
$OE/F 
$10/1 


HEADER  TABLE:  $0006-$0011 
This  is  the  area  that  specifies  which  tracks  and  sectors 
are  to  be  used  for  the  jobs  in  the  job  queue.   Tracks  and 
sectors  are  not  needed  for  BUMP  or  JUMP  jobs. 
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$0006/7 
$0008/9 
$OOOA/B 
$OOOC/D 
$OOOE/F 
$0010/1 


Track/ sector 
Track/ sector 
Track/ sector 
Track/ sector 
Track/ sector 
Track/ sector 


for  job  in  $0000 

for  job  in  $0001 

for  job  in  $0002 

for  job  in  $0003 

for  job  in  $0004 

for  job  in  $0005 


(buffer  0) 

(buffer  1) 

(buffer  2) 

(buffer  3) 

(buffer  4) 

(buffer  5) 
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$0012 

DSKID 

Master  copy  of  disk  ID.   This  is  the  ID 

specified  when  the  disk  was  formatted. 

It  is  updated  whenever  a  SEEK  job  is 

performed    (see  ROM  patch  $EF25) .  The 

initialize  command  performs  a  seek  and 

therefore  updates  the  master  ID. 

$0012     first  ID  character 

$0013     second  ID  character 

$0014/5 

Unused  -  Disk  ID  for  drive  #1 

$0016 

HEADER 

Image  of  the  most  recent  header  read. 

The  characters  appear  here  in  the  same 

sequence  that  Commodore's  manual  says 

they  are  recorded  onto  the  disk  surface. 

$0016     first  ID  character 

$0017     second  ID  character 

$0018     track  number 

$0019     sector  number 

$001A     header  checksum 

NOTE:   They  are  actually  recorded  onto 

disk  in  the  opposite  sequence. 

$001B 

ACTJOB 

Not  used 

$001C 

WPSW 

Flag  to  indicate  that  there  has  been  a 

change  in  the  write  protect  status. 

$001D 

UNUSED      (WPSW  for  drive  #1) 

$001E 

LWPT 

last  state  of  the  write  protect  switch 

$001F 

UNUSED      (LWPT  for  drive  #1)    Set  to  $01 

on  power-up 

$0020 

DRVST 

disk  drive  status 

bit  meaning 

4         shut  down  drv  motor?  l=yes  0=no 

5         drive  motor           l=on  O=off 

6         head  stepping       l=on  O=off 

7         drive  ready?         l=no  0=yes 

$0021 

UNUSED      (DRVST  for  drive  #1) 

$0022 

DRVTRK 

Track  currently  under  R/W  head 

$0023 

UNUSED      (DRVTRK   for  drive  #1) 

$0024- 

STAB 

Work  area  for  doing  interconversions  of 

$002D 

binary  data  and  its  GCR  write  images 

$002E/F 

SAVPNT 

Temporary  storage  of  pointers 

$0030/1 

BUFPNT 

Pointer  to  currently  active  buffer 

$0032/3 

HDRPNT 

Pointer  to  active  values  in  header  table 

$0034 

GCRPNT 

Pointer  to  last  character  converted 

$0035 

GCRERR 

Not  used 

$0036 

BYTCNT 

Byte  counter  for  GCR/binary  conversions 

C  A  n  -3  -7 
9  U  U  J  / 

B  i  i  LN  i 

Not  used 

$0038 

BID 

Data  block  ID  character  ($07) 

$0039 

HBID 

Header  block  ID  character  ($08) 

$003A 

CHKSUM 

Storage  of  data  or  header  checksum 
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C  n  n  O  D 

s>  U  U  Jri 

n  1  N  1  D 

Unused 

$003C 

BYTE 

U  nu  s  Gd 

$003D 

DRIVE 

Alwavs   $00   on  1S41 

$003E 

CDRIVE 

Currently  ac t i ve  drive    ($FF  if  inactive) 

$003F 

JOHN 

o  n  fi  4  n 

V  U  VJ  *i  u 

1  r\/\*w(„ 

rsyue  counuer  ror  Ljv^K/Dinary  conversions 

^  \J  \J  H  i. 

NYT  TOR 

trUbXUXUIl              lltrAL.     J  Ot)     Xfl     J  Ot)    C^Ut^Utr      \U  D) 

o  n  n  4  9 

V  U  U  I  z 

IN  A  i  r\l\ 

iNexr.   ujTaCK   uo  move  neau  uo 

•?  U  U  4  J 

Sector  counter.   Used  by  format  routine 

$0044 

WORK 

Temporary  workspace 

$0045 

JOB 

Temporary  storage  of  job  code 

$0046 

CTRACK 

Unused 

$0047 

DBID 

Data  block  ID  code.   Set  on  reset  to  $07. 
This  may  be  changed  to  write  or  read 
data  blocks  with  different  data  block 
ID  codes.   However,   the  first  nybble  of 
the  data  block  ID  code  should  always  be 
a  zero   ($0-).  Otherwise,   the  controller 
will  have  difficulty  detecting  the  end 
of  the  sync  mark  and  the  start  of  DBID. 
If  you  try  to  read  a  sector  whose  DBID 
is  different  from  the  value  stored  here, 
the  disk  controller  will  put  an  error 
code  of  $04  in  the  job  queue  and  the 

y      \  T  ^      T.T  1   T    T       >"  ^      /~\  y  -i-       ^       tr  O  O      ^  y  y      y       (  T~\  A  A 

QZXVt^    wXll     rt^pOZu    a    ffZZ    t^IIOr  lJJ/\l/\ 

BLOCK  NOT  FOUND) . 

$0048 

ACLTIM 

Timer  for  acceleration  of  head 

$0049 

SAVSP 

Temporary  save  of  the  stack  pointer 

$004A 

STEPS 

The  number  of  steps  to  move  the  head  to 
get  to  the  desired  track.  To  move  the 
head  over  1  track,   requires  XX  steps, 
values  DeT-ween  u  ana  iz/  move   une  neaa 

vJUL-      \  L-D     ±UWt:X      L-XaL-IS.     IlUilliJt:!  iD  )   •  VaXUfcJt) 

ovt^z    ±        move   rne  neaci    i^Dovaiue^  sut^ps 
±n    luo  fi±gner    uracK  numocrs^ 

$004B 

TMP 

Temporary  storage 

$004C 

CSECT 

Last  sector  read 

$004D 

NEXTS 

Next  sector  to  service 

$004E 

NXTBF 

Hi  byte  of  a  pointer  to  the  next  buffer 
of  GCR  bytes  to  be  changed  into  binary. 
The  GCR  bytes  in  the  overflow  buffer  are 
uransiar.ea  rirsr..    inis  poinrs   uo  r.ne 
buffer  that  holds  the  rest  of  them. 

$004F 

NXTPNT 

Lo  byte  of  a  pointer  to  the  next  GCR 

uyitr     10v-clU-±011    U-IldL-    ±o     U.  O    Utr  U-IdlloldUcU 

$0050 

GCRFLG 

Flag  to  indicate  whether  the  data  in  the 
currently  active  buffer  has  been  left 
in  binary   (0)    or  GCR   (1)  form. 

$0051 

FTNUM 

Used  by  the  formatting  routine  to  store 
the  number  of  the  track  currently  being 
formatted.   Set  on  reset  to  $FF. 
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$0052/5 

BTAB 

Staging  area  for  the  four  binary  bytes 
being  converted  to  GCR  by  PUT4BG ( $F6D0 ) 

nr-     -f  y  ntm    CCV)    hwr  PFT'APR^<^F7Ff^^ 

$0056/D 

GTAB 

Staging  area  for  the  five  GCR  bytes 
Dexnt)   convex  rea   rroin  Dxnary  Dy  fui'idLj 
^vrDUU^    oi.    L-O   jjxiiaiy   Dy   \jjrji*i\jjr3i9r  /rjOj  ■ 

$005E 

AS 

Number  of  steps  to  use  to  accelerate  or 

r\  ctr""     "]  ciy^'t-ea    x»7h  on     C'f~ciOT~»"inrT     4-ho     hoaH  /^^HA^ 

$005F 

AF 

Acceleration/deceleration  factor  ($04) 

c;  n  n  fi  n 

V  U  V  D  U 

a  CJ  QTI> 

iNuiuiJcr    or    bucps    leru    lo  acceieiraLe  or 
decelerate  when  stepping  the  head 

V  V  V  U  J. 

D  C  rrippc; 
X\0  1  Ij  IT  O 

iNUlUUcL     VJ  J-     ol-C^o     1 1:  J- L     LVJ     o  Lt:^     Lilt:  llt^dU 

in  fast  stepping   (run)  mode. 

$0062/3 

NXTST 

Pointer  to  the  appropriate  head  stepping 
routine.  Normally  $FA05    (not  stepping) 

<^  n  n  6  4 

y  V  U  U  *4 

M  T  MQTP 

nxiixiuuni   iiuiuutrr    ox    oLtrpb    xox    liic    iicaci  lo 
move  to  make  the  use  of  fast  stepping 
iTioae  userui  ^9L-oJ  .    ir   rewer  steps  neeaea  ^ 
use  une  siow  suepping  moue. 

$0065/6 

VNMI 

Pointer  to  start  of  NMI   routine    ($EB2E) . 
Set  on  power  up  or  drive  reset. 

<;  n  n  fi  7 

y  VJ  VJ  D  / 

MM  T  FT  P 
IN  n  ±  r 

r  lag   uo  inuicate  wneuner  inmi   in  progress 

$0068 

AUTOFG 

Flag  to  enable    (0)    or  disable    (1)  the 
auto  initialization  of  a  disk   (read  BAM) 
if   ID  mismatch  detected. 

<^  n  n  6  Q 

y  V  U  U  -7 

QFr*  T  Mr* 

O  I-j  V„  1  IN 

otrCLOx    xncremcnu   xor  use  Dy  0111^^  xout-ine. 
Set  on  reset  to    ($0A) . 

S006A 

RFVfNT 

X\I-J  V  ± 

'^'^uiiLt-X            i.     trXXUX     Xt;t^(JVt;xy      \I1  LI  11  ID  c:  X     (J  X 

attempts  so  far)   Set  on  reset  to  $05 

y  VJ  VJ  D  D  / 

iroinLer  to  tne  staxt  or  tne  user  jump 
taD 1 e 1 9 r r r D J  •    oet  on  power  up  or  reset. 

V  U  \J  D  L-*  /  Hi 

RMPMT 

irointer  to  tne  start  or   tne  Dit  inap 

VyU*4UU^*     Oct    Wlltrll     a    vJXbts.     xb  XllXtxalxZcCl. 

V  w    u  r 

TO -TFMP 

ItJnipvJxaxy    WOxts.    axtra     l^Dr     Oil  xtrSctJ 

S0070 

T1 

iciii^i^xcixy    wuxjs.  cixtrci 

V  V  \J  /  X 

1  ^ 

icnipuxaxy    WOx  ts.  dxtrci 

$0072 

T3 

Temporary  work  area   ($FF  on  reset) 

<;  n  n  7  T 

y  VJ  U  /  J 

i  *i 

lemporary  worK  area 

9  U  U  /  4 

Temporary  work  area 

c  n  n  7  R  /  c 

9  U  U  /  3  /  b 

T  Ti 

Indirect  pointer  variable  ($0100) 
Set  on  power  up  or  reset. 

c;  n  n  7  7 

T  CM  TV  HD 

J-ioIN  AUK 

Liiscener  auuress    (9zo  on  reset) 

c;  n  n  7  R 

9  VJ  VJ  /  O 

rnj      A  n  D 
i  ij l\rtUK 

laiKer  auuress    1940  on  resetj 

9      V  /  17 

J-i  O  IN  rt  V„  i 

ACUXVc     XXoLclltrx  Xiay 

c;  n  n  7  a 

9  V  U  /  A 

Ac t ive  t a 1 ke r  flag 

c;  n  n  7  R 

A  HD  CF  n 

Auuresseu  riag 

9  U  VJ  / 

A  i  IN  It  IN  U 

Attention  pending  flag 

c  n  n  7  n 

9  U  VJ  /  u 

TV  "PXTM  An 
A 1  INrlUU 

6502   in  attention  mode 

c;  n  n  7p 

9  VJ  VJ  /  Ej 

D  "Of  'V'OV 

Last  program  accessed 

$007F 

DRVNUM 

Current  drive  number    (alwav«?   0    in   1  541  ) 

$0080 

TRACK 

Current  track  number   ($00  after  use) 

$0081 

SECTOR 

Current  sector  number   ($00  after  use) 

$0082 

LINDX 

Logical   index    (current  channel*) 
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C:  n  n  0  T 
v>  U  U  o  J 

SA 

Current  secondary  address 

n  n  o  ii 
9  U  U  o  4 

ORGS  A 

Original   secondary  address 

<^  n  n  o  c 
5  U  U  o  D 

DATA 

Temporary  data  byte 

<^  n  n  o  c 
5  U  U  o  D 

RO 

Temporary  result 

<^  n  n  o  "7 
5  U  U  0  / 

Rl 

Temporary  result 

<*■  A  A  o  o 

$  0  0  8  8 

R2 

Temporary  result 

$0089 

R3 

Temporary  result 

$008A 

R4 

Temporary  result 

$008B/E 

RESULT 

Result  area    ( $008B-$008E) 

$008F/ 3 

ACCUM 

Accumulator  ($008F-0093) 

$0094/5 

DIRBUF 

Directory  buffer    ($0094-0095)  $05/$02 

$0096 

ICMD 

IEEE  command  in    (not  used  on  1541) 

<*-  fi  n  Q  "7 

9  u  u  y  / 

MYPA 

MY  PA  tlag  $00 

c*"  n  n  fi  o 
5  U  U  y  0 

CONT 

Bit  counter  for  serial  $00 

Buffer  byte  pointers 

These  pointers    (one  for  each  buffer)  are 

used  to  point  at  the  next  byte  in  the 

buffer  to  be  used.   The  B-P  command  sets 

these  pointers. 

$  0  09  9  /  A 

BUFTAB 

Points  to  next  byte  in  buffer  #0  ($0300) 

$009B/C 

Points  to  next  byte  in  buffer  #1  ($0400) 

$  0  0  9D/ E 

Points  to  next  byte  in  buffer  #2  ($0500) 

$009F/0 

Points  to  next  byte  in  buffer  #3  ($0600) 

$00Al/2 

Points  to  next  byte  in  buffer  #4  ($0700) 

5  0  OA J / 4 

Points  to  next  byte  in  CMD  buffer ($0200) 

50  OAb / 6 

Points  to  next  byte  in  ERR  buf f er ( $0 2D6 ) 

$00A7/D 

BUFO 

m       IT                     ^1                            Till                                 ■                      Ti  lf~ 

Table  of  channel!  s  assigned  to  each  of 

the  buffers.   $FF  is  inactive  buffer. 

$OOAE/ 4 

BUFl 

Table  of  channel! 's  assigned  to  each  of 

the  buffers.   $FF  is  inactive  buffer. 

$00B5/A 

RECL 

Table  of   lo  bytes  of  record  numbers  for 

each  buffer 

(*"  A  A  1~»  1~»   /  A 

5  0  (J BE/  0 

RECH 

Table  of  hi  bytes  of  record  numbers  for 

each  buffer 

5  0  (JC  I/O 

NR 

Table  of  next  record  numbers  for  buffers 

RS 

Table  of  record  size  for  each  buffer 

$OOCD/ 2 

SS 

Table  of  side  sectors  for  each  buffer 

$  0  0D3 

FIPTR 

File  stream  1  pointer 

$00D4 

RECPTR 

Pointer  to  start  of  record 

$00D5 

SSNUM 

Number  of  side  sector 

$00D6 

SSIND 

Index  to  side  sector 

$00D7 

RELPTR 

Relative  file  pointer  to  track 

$  0  0D8 / C 

ENTSEC 

Sector  of  directory  entries 

$OODD/ 1 

ENTIND 

Index  of  directory  entries 

$  0  0E2 / 5 

F I LDRV 

Default  flag,   drive  #    (all   0  on  1541) 

P  U  Ub  /  /  B 

PATTYP 

Pattern,   replace,   closed-flags,  type 

<i  0  OFT  /  1 

P  T  T  T VP 

$00F2/7 

CHNRDY 

Channel  status 

$00F8 

EIOFLG 

Temporary  for  EOI 

$00F9 

JOBNUM 

Current  job  number 
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$OOFA/E 

LRUTBL 

Least  recently  used  table 

SOOFF / 0 

•y*  W  W  L    L    1  \J 

NOnRV 
vi  \j  u  r\  V 

No   H  r  i  ve    "Fl^n    "FoT   HTivec:    0    and  1 

$0101/2 

DSKVER 

DOS  version  taken  from  track  18   sector  0 
for  drives  0  and  1 

$0103 

ZPEND 

Unused 

STACK  AREA  $0104-$01FF 

$0200- 

CMDBUF 

Command  buffer  ($0200-$0229) 

$0229 

Disk  commands  such  as:     NO:GAMES  #1,01 
that  are  sent  to  the  disk  drive  from 
the  computer  over  the  serial  bus  are 
stored  here.   The  command   is  parsed  to 
locate  special  characters  such  as   :  , 
Once  the  command  has  been  interpreted, 
ROM  routines  are  executed  to  do  it. 

$02  2A 

CMDNUM 

Command  code  number 

$022B/D 

LINTAB 

SA:LINDX  table    ( $0 2 2B-$ 0 2 3D) 
This  table  indicates  the  current  status 
of  each  data  channel    (secondary  address) 
Each" pos ition  represents  one  channel, 
channel   0=$022B;    1=$022C;    2=$022D;  etc. 
Possible  channel   status  values  are: 
$FF  -  inactive       $81  -  open  for  write 
$41  -  read/write  $01  -  open  for  read 

$022E/ 3 

CHNDAT 

Channel  data  byte  ($023E-$0243) 
The  most  recent  byte  read  or  written 
for  each  channel 

$0244/9 

LSTCHR 

Channel   last  character  pointer 
Points  to  the  last  character  read  or 
written  in  the  buffer  for  each  channel 

$024A 

TYPE 

Active  file  type 

$024B 

STRSIZ 

Length  of  the  string 

$024C 

TEMPSA 

Temporary  secondary  address 

$024D 

CMD 

Temporary  job  command 

$024E 

LSTSEC 

Work  area  for  finding  best  sector  to  do 

$024F/0 

BUFUSE 

Buffer  allocation 

$0251/2 

MDIRTY 

BAM  dirty  flag    (drives  0/1) 

$0253 

ENTFND 

Directory  entry  found  flag 

$0254 

DIRLST 

Directory  listing  flag 

$0255 

CMDWAT 

Command  waiting  flag 

$0256 

LINUSE 

LINDX  use  word 

$0257 

LBUSED 

Last  buffer  used 

$0258 

REC 

Record  size.   Used  by  directory  routines 

$0259 

TRKSS 

Side  sector  track.  Used  by  dir  routines 

$025A 

SECSS 

Side  sector  sector.   Used  by  dir  routines 

$025B/F 

LSTJOB 

Last  job  by  buffer  ($025B/C/D/E/F) 

$0260/5 

DSEC 

Sector  of  directory  entry  by  buffer 

$0266/B 

DIND 

Index  of  directory  entry  by  buffer 

$026C 

ERWORD 

Error  word  for  recovery 

$026D 

ERLED 

Error  LED  mask  for  flashing 

$026E 

PRGDRV 

Last  program  drive 

$026F 

PRGSEC 

Last  program  sector 
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$0270 

WLINDX 

Write  LINDX 

$0271 

RLINDX 

Read  LINDX 

$0272/3 

NBTEMP 

#  blocks  temp 

$0274 

CMDSIZ 

Command  string  size 

$0275 

CHAR 

Character  under  the  parser 

$  0  2  7  6 

LIMIT 

PTR  limit  in  comparison 

$0277 

FICNT 

File  stream  1  count 

$0  2  78 

F2CNT 

File  stream  2  count 

$0279 

F2PTR 

File  stream  2  pointer 

PARSER  TABLES    ( $027A-$0289 ) 

$027A/F 

FILTBL 

Table  of  filename  pointers 

$0280/4 

FILTRK 

First  file  link  (Track) 

$0285/9 

FILSEC 

First  file  link  (Sector) 

$028A 

PATFLG 

Pattern  presence  flag 

$028B 

IMAGE 

File  stream  image 

$028C 

DRVCNT 

Number  of  drive  searches 

$028D 

DRVFLG 

Drive  search  flag 

$028E 

LSTDRV 

Last  drive  w/ o  error.   Used  as  the 

default  drive  number. 

$028F 

FOUND 

Found  flag  in  directory  searches 

$0290 

DIRSEC 

Directory  sector 

$0291 

DELSEC 

Sector  of  first  available  entry 

$0292 

DELIND 

Index  of  first  available  entry 

$0293 

LSTBUF 

=0   if   last  block 

$0294 

INDEX 

Current  index  in  buffer 

$0295 

FILCNT 

Counter  of  file  entries 

$0296 

TYPFLG 

Match  by  type  of  flag 

$0297 

MODE 

Active  file  mode  (R,W) 

$0298 

JOBRTN 

Job  return  flag 

$0299 

EPTR 

Pointer  for  recovery 

$029A 

TOFF 

Total   track  offset 

$029B/C 

UBAM 

Last  BAM  update  pointer 

$029D/ 0 

TBAM 

Track  #  of  BAM  image    (drive  0/1) 

$02Al/0 

BAM 

BAM  images  ($02A1-02B0) 

OUTPUT  BUFFERS    (  $02B1-$02F8 ) 

$02Bl/4 

NAMBUF 

Directory  buffer    ( $02Bl-$02D4 ) 

$02D5/8 

ERRBUF 

Error  message  buffer  ($02D5-$02F8) 

$02F9 

WBAM 

Don't  write  BAM  flag.   Set  to  0  at  start 

and  end  of  any  disk  command. 

$02FA/B 

NDBL 

#  of  disk  blocks  free   (lo  byte  0/1) 

$02FC/D 

NDBH 

#  of  disk  blocks  free    (hi  byte  0/1) 

$02FE/F 

PHASE 

Current  phase  of  head  stepper  motor 
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ADDRESS 


NAME 


1541   RAM  VARIABLE  DEFINITIONS 


$0300 

BUFO 

$0400 

BUFl 

$0500 

BUF2 

$0600 

BUF3 

$0700 

BUF4 

DATA  BUFFERS    {  $0 300-$0 7FF ) 


Data  buffer  #0 
Data  buffer  #1 
Data  buffer  #2 
Data  buffer  #3 
Data  buffer  #4 


{$0300-$03FF) 
($0400-$04FF) 
($0500-$05FF) 
($0600-$06FF) 
{$0700-$07FF) 


BAM  ONLY! 


ADDRESS 


NAME 


1541   I/O  DEFINITIONS 


SERIAL   I/O  6522      ( $1800-$180F) 

$1800 

PB 

DATA  PORT  B  -  Serial  data  I/O 

BITS  FOR  SERIAL  HANDSHAKE 

DATIN 

Bit  0  -  $01     Data  in  line 

DATOUT 

Bit   1  -  $02     Data  out 

1  ine 

CLKIN 

Bit   2  -  $04     Clock  in 

1  ine 

CLKOUT 

Bit  3  -  $08     Clock  out 

1  ine 

ATNA 

Bit   4  -  $10  Attention 

acknowledge  line 

ATN 

Bit   7  -  $80  Attention 

in  line 

$1801 

PAl 

DATA  PORT  A  -  Unused 

$1802 

DDRBl 

DATA  DIRECTION  FOR  PORT 

B 

$1803 

DDRAl 

DATA  DIRECTION  FOR  PORT 

A  -  Unused 

$1804 

TlLCl 

TIMER   1  LOW  COUNTER 

$1805 

TlHCl 

TIMER   1  HIGH  COUNTER 

$1806 

T1LL2 

TIMER   1  LOW  LATCH 

$1807 

T1HL2 

TIMER   1  HIGH  LATCH 

$1808 

T2LC1 

TIMER  2  LOW  COUNTER 

$1809 

T2HC1 

TIMER  2   HIGH  COUNTER 

$180A 

SRI 

SHIFT  REGISTER 

$180B 

ACRl 

AUXILIARY  CONTROL  REGISTER 

$180C 

PCRl 

PERIPHERAL  CONTROL  REGISTER 

$180D 

IFRl 

INTERRUPT  FLAG  REGISTER 

$180E 

lERl 

INTERRUPT  ENABLE  REGISTER 

$1C00 


DSKCNT 


DISK  CONTROLLER  6522      {  $ lCOO-$ ICOF  ) 


DATA 

PORT 

B  - 

Disk  controller  I/O 

Bit 

0  - 

$01 

Bits  0  St   1  are  cycled  to 

Bit 

1  - 

$02 

step  the  head 

Bit 

2  - 

$04 

Motor  on    (1)    or  off  (0) 

Bit 

3  - 

$08 

Drive  active  LED  on/off 

Bit 

4  - 

$10 

Write  protect  sense 

Bit 

5  - 

$20 

Density  select  (0) 

Bit 

6  - 

$40 

Density  select  (1) 

Bit 

7  - 

$80 

SYNC  detect  line 
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IRiJI     T/n    DFPTNITTT  DNIC: 

XOIX     1/W     UEjIrXiNXJ-X  WIN  O 

$  ICO  1 

DATA2 

DATA  PORT  A  -  GCR  data  I/O  to  aisXette 

$1C02 

DDRB2 

DATA  DIRECTION  FOR  PORT  B 

$  1C03 

DDRA2 

DATA  DIRECTION  FOR  PORT  A 

$  ICO  4 

T1LC2 

TIMER  1  LOVJ  COUNTER 

$  ICO  5 

T1HC2 

TIMER  1  HIGH  COUNTER 

$1C(Jd 

T1LL2 

m  T  HjT  TP  n       1        T  /^T»T      T    TV  m  /"I  O 

TIMER   1   LOW  LAILH 

$1C07 

T1HL2 

m  T  \ll  1~>  T~l        1         T  T  T        T  T       T    TV  m       T  T 

TIMER   1   HIGH  LATCH 

$  1C08 

T2LC2 

TIMER   2   LOW  COUNTER 

$  ICO  9 

T2HC2 

TIMER   2   HIGH  COUNTER 

$  ICOA 

SR2 

SHIFT  REGISTER 

$1C0B 

ACR2 

AUXILIARY  CONTROL  REGISTER 

$1C0C 

PCR2 

PERIPHERAL  CONTROL  REGISTER 

$1C0D 

IFR2 

INTERRUPT  FLAG  REGISTER 

$1C0E 

IER2 

INTERRUPT  ENABLE  REGISTER 
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APPENDIX  B 

ANALYSIS  OF  THE  15415  ROM 


Here  he  dragons  and  ogres! 
Travelers,  walk  not  alone. 
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NAME 


ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


SETLDA 


LEDSON 


ERROFF 


ERRON 


PARSXQ 


PS5 


PSIO 


PS20 


$C100 


$C118 


$C123 


$C12C 


$C146 

$C150 

$C153 
$C15D 
$C160 

$C163 
$C16A 

$C17A 


$C181 


Turn  on  drive-active  LED: 

Set  bit  3  of  DSKCNT    ($1C00)    to  turn  on 

LED  for  the  current  drive    (DRVNUM;    $7F) . 

Turn  on  drive-active  LED: 

Set  bit  3  of  DSKCNT    ($1C00)    to  turn  on 

drive  active  LED  for  drive  0. 

Turn  off  error  LED: 

Store  $00  in  ERWORD    ($026C)    and  in  ERLED 
($026D)    to  clear  any  error  status  and 
turn  off  drive-active/error  LED. 

Turn  on  error  LED: 

Store  $80  in  ERWORD    ($026C)    to  ensure 
LED  will  continue  to  flash  and  set  bit 
3  of  DSKCNT  to  turn  the  LED  on  using 
the  LED  mask  from  LEDMSK    ($FECA) . 

Parse  string  in  command  buffer: 

Clear  the  "don't  write  BAM"   flag,  WBAM 

($02F9)    and  move  the  drive  number  of  the 

last  successful   job  from  LSTDRV  ($028E) 

($028E)    to  DRVNUM    ($7F).   This  makes  the 

last  used  drive  the  default  drive. 

JSR  to  OKERR   ($E6BC)    to  clear  any  errors 

and  move  the  OK  error  message  into  the 

error  buffer. 

Check  if  the  command's  secondary  address 
(ORGSA;    $84)   was  $0F    (command  channel) . 
If  it  was  not  $0F,   exit  with  a  JMP  to 
OPEN    ($D7B4) . 

If  the  secondary  address  was  $0F,   JSR  to 
CMDSET    ($C2B3)    to  interpret  the  command 
and  set  up  the  necessary  variables  and 
registers   (on  return  .Y=0). 
Move  first  character  of  command  from  the 
command  buffer    ($0200)    to  CHAR   ($0275)  . 
Search  the  command  table    (CMDTBL;  $FE89) 
for  this  character.    If  not  found,  exit 
by   loading   .A  with  a  #$31    (BAD  COMMAND) 
and  jumping  to  the  command  level  error 
handler    (CMDERR;  $C1C8). 
If  found,   store  the  command's  position 
in  the  table    (the  command  number)  into 
CMDNUM    ($022A) .   Check  if  this  command 
must  be  parsed  by  comparing  the  command 
number  with  $09.    If  parsing  is  required 
(NEW,    RENAME,    SCRATCH,    COPY,    &  LOAD) , 
JSR  to  TAGCMD    ($C1EE)    to  set  tables, 
pointers  and  patterns. 
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NAME 


ADDRESS 


DESCRIPTION  OF  WHAT   ROM  ROUTINE  DOES 


PS30 


$C184 


Move  the  address  of  the  appropriate  ROM 
routine  from  the  tables,   CJUMPL  ($FE95) 
and  CJUMPH    ($FEA1)    into  $6F/$70    (TEMP) . 
Exit  with  an  indirect  JMP  to  the  routine 
via  the  vector  at  TEMP  ($6F). 


Terminate  command  successfully: 
Clear  the  "don't  write  BAM"   flag,  WBAM 
($02F9) .   Load   .A  with  the  error  status 
from  ERWORD    ($026C) .    If  non-zero,  an 
error  has  occurred  so  exit  with  a  JMP 
to  CMDERR    ($C1C8)  . 

If  command  completed  with  no  errors,  set 
TRACK    ($80)  ,    SECTOR    ($81)  ,   and  the 
pointer  into  the  command  buffer,  CB($A3) 
to  $00.   JSR  to  ERRMSG    ($E6C7)    and  ERROFF 
($C123)    to  clear  any  error  status. 
Move  current  drive  number  from  DRVNUM 
($7F)    to  last  used  drive  number,  LSTDRV 
($028E) .   Set  the  drive-busy  flag,  NODRV 
($FF)    to  $00  to  indicate  that  the  drive 
is  inactive.   JSR  to  CLRCB    ($C1BD)  to 
zero  the  command  buffer.   JMP  to  FREICH 
($D4DA)    to  clear  the  internal  channel. 


ENDCMD 


SCREND 


SCRENl 


CLRCB 


CMDERR 


SIMPRS 


PRSCLN 


$C194 


$C1A3 


$C1AD 


$C1BD 


$C1C8 


$C1D1 


$C1DB 


$C1E5 


Clear  the  command  buffer  ($0200-$0228) 
Erase  any  old  command  information  by 
overwriting  the  old  command  with  $00. 


Command   level  error  handling: 

Set  TRACK    ($80)    and  SECTOR    ($81)    to  $00 

and  JMP  to  CMDER2    ($E645) . 


Simple  parser: 

Initialize   .X  and  the  file  table  pointer 
FILTBL    ($027A)    to  $00.   Load   .A  with  a 
$3A    (:)    and  JSR  to  PARSE    ($C268)    to  scan 
the  command  string  for  a  colon. 
On  return  Z=l  if   ":"   found  and   .Y  points 
to  its  position  in  the  command.    If  not 
found,    leave  FILTAB=$00  and  exit.    If  ":" 
was  found,    set  FILTAB=(":"  position  -  1) 
and  exit.  All  exits  are  with  a  JMP  to 
SETANY    ($C368)    to  set  the  drive  number. 


Find  colon    (:)    in  command  string: 
Load   .X  and   .Y  with  $00  and   .A  with  $3A 
(:)    and  JMP  to  PARSE  ($C268). 


Tag  command  string,  set  up  CMD  structure 
and  file  stream  pointers: 
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NAME 


ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


COMMAND  STRUCTURE    (Bit  mapped) 


The  disk  commands,    RENAME,    SCRATCH,  NEW, 
and  LOAD,   are  analyzed  by  this  routine 
to  determine  the  command  structure.  As 
the  command  is  parsed,   bits  in  IMAGE 
($028B)    are  set  or  cleared  to  indicate 
the  presence  or  absence  of  various  parts 
of  the  command.   Once  the  command  has 
been  analyzed,    its  structure  image  is 
checked  against  the  correct  structure 
for  that  command  given  in  STRUCT ( $FEA5 + ) 


Bit  Name  Meaning 


7  PI  Wild  cards  present  {Y=l) 

6  Gl  More  than  one  file  implied  (Y=l) 

5  Dl  Drive  #  specified    (not  default) 

4  Nl  Filenamel  given 

3  P2  Wild  cards  present  (Y=l) 

2  G2  More  than  one  file  implied  {Y=l) 

1  D2  Drive  #  specified    (not  default) 

0  N2  Filename2  given 


NOTE:   Bits  7-4  refer  to  file  #1 
Bits  3-0  refer  to  file  #2 


TAGCMD 


TC25 


TC30 


TC35 


$C1EE 

$C1F3 

$C1F8 
$C1FD 
$C1FE 
$C200 


TC40 


$C20A 


JSR  to  PRSCLN  ($C1E5)  to  locate  the 
position  of  the  colon  (:)  that  is  a 
necessary  part  of  all   these  commands. 

e.g.      RO :NEWNAME=OLDNAME  (Rename) 
If  no  colon  was  found,    load   .A  with  $34 
to  indicate  a  bad  command  and  exit  with 
a  JMP  to  CMDERR    ($C1C8)  . 

If  a  colon  was  found,  set  FILTAB  to  the 
colon  position  -  1. 

Check  if  a  comma  was  found  before  the 
colon    {.X  >  0  on  return  from  PARSE). 
If  a  comma  was  found,   the  syntax  is  bad 
so  exit  via  TC25  {$C1F3). 
Load   .A  with  $3D    {=)    and  JSR  to  PARSE 
($0268) .   On  return   .X=0  indicates  that 
no  wild-card  characters    (?  or  *)  were 
found.    If  any  were  found,   set  bit  6  (Gl) 
of  IMAGE    ($0283)    to  indicate  that  the 
command  applies  to  more  than  one  file. 
In  all  cases,   set  bit  5    (Dl)    of  IMAGE 
to  indicate  that  a  drive  #  is  present 
and  set  bit  0    (N2)    to  indicate  that  a 
second  file  name  is  given   (fixed  later) 
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NAME 

ADDRESS 

DESCRIPTION  OF  WHAT   ROM  ROUTINE  DOES 

$C20F 

Increment   .X  and  use  it  to  set  the 
lengths  of  filenames  1  and  2,   FICNT  and 
F2CNT    ($0277/8) .   Filename  2  will  default 
to  the  same  length  as  filename  1. 

$C216 

Check  if  PARSE  found  any  wild  cards  by 
loading  PATFLG    ($028A) .   If  any  found, 
set  bit   7    (PI)    of   IMAGE    ($028B) . 

$C223 

Set  pattern  flag,   PATFLG    ($028A)    to  $00 
to  prepare  for  parsing  the  rest  of  the 
command . 

TC50 

$C228 

Check  if  there  is  any  command  left  to 
parse  by  checking  the  value  of   .Y  set  by 
PARSE.    If   .Y=0,   nothing  left  so  branch 
to  TC75    ($C254)    to  check  structure. 

$C22B 

Store  value  from   .Y  in  filetable,  FILTBL 
($027A) ,X.   Set  the  pointer  to  the  start 
of  filename  #2,   F2PNT    ($0279)    from  the 
current  value  of  FICNT    ($0277)  . 

$C234 

Load   .A  with  $8D    (shifted  CR)    and  JSR  to 
PARSE    ($C268)    to  parse  the  rest  of  the 
command.   On  return  increment    .X  so  it 
points  to  the  end  of  the  string  and  put 
the  value  into  F2CNT    ($0278).  Decrement 
the  value  of   .X  to  restore  its  former 
value . 

$C23E 

Check  if  any  wild  cards  were  found  by 
PARSE  in  filename  2  by  checking  the 
pattern  flag,   PATFLG    ($028A) .    If  any 
were  found,   set  3    (P2)    of  IMAGE  ($028B). 

TC60 

$C245 

Check  if  there  was  a  second  filename  by 
checking  if   .X  =  FICNT.    If  second  file 
name  is  only  1  chr   long,   branch  to  TC70. 

$C24A 

Set  bit  2   to  indicate  that  the  command 
implies  more  than  one  second  file  name. 

TC70 

$C24C 

Set  bit  1  to  indicate  that  a  second 
drive  is  specified  and  bit  0  to  indicate 
that  a  second  file  name   is  given.  EOR 
this  with  IMAGE    (clears  bit  0)    and  store 
the  result  back  into  IMAGE  ($028B). 

TC7  5 

$C254 

Check   IMAGE  against  the  entry  for  that 
command    (CMD  number  from     CMDNUM,  $022A) 
in  the  structure  table,   STRUCT  ($FEA5+) 
If  match,   syntax  is  OK;   exit  with  an  RTS 

TC80 

$C  2  6  0 

Store  IMAGE  in  ERWORD    ($026C) .   Load  .A 
with  a  $30  to  indicate  a  bad  syntax  and 
exit  with  a  JMP  to  CMDERR    ($C1C8)  . 
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ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


PARSE 
PRIO 


PR20 
PR25 


$C268 
$C26B 

$C270 

$C278 
$C280 
$C283 


Parse  string: 

On  entry,    .A  contains  the  character  to 
be  found  in  the  string,    .Y  points  to  the 
the  character  in  the  string  where  the 
scan  is  to  start,  and  .X  points  into  the 
file  table,  FILTAB,X. 

The  routine  scans  the  string  for  special 
characters  "*",   "?",   and  ","  as  well  as 
the  desired  character.   In  scanning  the 
string  .Y  is  used  as  a  pointer  to  the 
character  in  the  command  string  being 
examined  and   .X  is  a  pointer  into  the 
file  table,   FILTAB   ($027B+)    for  storing 
the  positions   (.Y  value)   of  the  start  & 
end  of  file  names  that  are  found.  V?hen  a 
wild  card   (*  or  ?)    is  found,   the  pattern 
flag  PATFLG    ($028A)    is  incremented.  When 
a  comma  is  found,   its  position  is  noted 
in  the  file  table,  FILTAB  and  a  check  is 
made  to  ensure  that  not  too  many  file 
names  are  present. 

When  the  special  character  is  found  or 
the  end  of  the  command  is  reached,  the 
routine  ends.   If  no  wild  cards  have  been 
found,   the  pattern  type,   PATTYP,X  is  set 
to  $80.  Otherwise  it  is  left  unchanged. 
On  exit,    .Y=0  and  the  Z  flag  =0  if  the 
desired  character  has  not  been  found.  If 
it  has  been  found,    .Y  =  the  position  of 
the  character  and  the  Z  flag  is  set. 

Store  the  desired  character  in  CHAR 
($0275)  . 

Start  of  loop  using  .Y  as  a  counter  to 
scan  the  command  string.    If   .Y  is 
greater  than  or  equal  to  the  length  of 
the  command  string,   CMDSIZE    ($0274) , 
branch  to  PR30    ($C29E) . 
Load  command  string  character  into  .A 
and  increment   .Y  counter.  Check  if  it  is 
the  desired  character.   If  it  is,  branch 
to  PR35    ($C2A0) . 

Check  if  it  is  a  wild  card   ("*"  or  "?"). 
If  not,   branch  to  PR25  ($C283). 
Increment  the  pattern  flag,  PATFLG 
($028A)    to  count  the  #  of  wild  cards. 
Check  if  it  is  a  comma   (",")•   If  not, 
branch  back  to  PRIO  to  get  next  command 
string  character. 
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NAME 


ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


$C287 


PR28 


$C292 


$C299 


PR30 
PR35 


$C29E 
$C2A0 


PR40 


$C2AD 
$C2B1 


CMDSET 


CS07 


$C2B3 

$C2B7 
$C2BA 

$C2C1 

$C2CA 


Transfer  character  count  from   .Y  to  .A 
and  store  in  the  file  table,  FILTAB+1,X 
($027B,X)    to  indicate  where  the  file 
name  ends.   Load   .A  with  the  pattern  flag 
PATFLG  and  AND  it  with  $7F.    If  the 
result  is  zero   (no  wild  cards  found) , 
branch  to  PR28. 

Wild  cards  were  present,   so  store  $80 
in  PATTYP,X    ($E7,X)    to  indicate  this. 
Also  store  $80   into  PATFLG  to  zero  the 
count  of  wild  cards  but  indicate  that 
there  are  wild  cards  in  the  string. 
Increment  .X   (counts  number  of  files  & 
points  into  FILTAB)    and  compare  it  to 
$04   (the  maximum  number  of  file  names 
allowed  in  a  command  string).    If  the 
maximum  has  not  been  exceeded,  branch 
back  to  PRIO  to  continue  the  scan. 
Load   .Y  with  $00  to  indicate  that  the 
desired  character  was  not  found. 
Store  a  copy  of  the  command  size,  CMDSIZ 
($0274)    into  the  file  table,  FILTAB+1,X 
($027B,X) .   Load  the  pattern  flag,  PATFLG 
and  AND  it  with  $7F.    If  the  result  is  0, 
no  wild  cards  have  been  found  so  branch 
to  PR4  0. 

Wild  cards  were  present,   so  store  $80 
in  PATTYP,X    ($E7,X)    to  indicate  this. 
Transfer  character  count  from   .Y  to  .A. 
This  sets  the  Z  flag  if  the  desired 
character  has  not  been  found. 


Initialize  command  tables  &  pointers 
Find  length  of  command  string  and  zero 
all  variables  and  pointers. 
Load    .Y  from  BUFTAB+CBPTR    ($A3) .   This  is 
the  length  of  the  command  that  was  sent 
from  the  computer.    If   .Y=0,   branch  to 
CS08    ($C2CB) . 

Decrement  .Y  and  if  .Y=0,  branch  to  CS07 
($C2CA) . 

Load   .A  with  the  character  from  the 
command  buffer,   CMDBUF,Y    ($0200, Y)  and 
see  if  it  is  a  carriage  return   ($0D) .  If 
it  is,   branch  to  CS08    ($C2CB) . 
Decrement   .Y  and  load  the  next  character 
from  the  command  buffer.    If  this  is  a 
carriage  return   ($0D) ,   branch  to  CS08 
($C2CB) .    If  not,    increment  .Y 
Increment   .Y  pointer  into  command  buffer 
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DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


CS08 


CMDRST 


$C2CB 


$C2D4 


$C2DC 


ONEDRV 


$C312 


ALLDRS 
ADIO 


$C320 
$C325 

$C32A 

$C32D 
$C335 


SETDRV 


$C33C 


Store  length  of  command    (.Y)    in  CMDSIZ 
($027B) .   Compare  length    (.Y)   with  the 
maximum  allowable  length   ($2A)    to  set 
the  carry  flag.   Load   .Y  with  $FF.  If 
command   length  was  OK,   branch  to  CMDRST. 
Command  over-size  so  set  command  number 
($022A)    to  $FF,    load   .A  with  $32  to 
indicate  a  TOO  LONG  ERROR  and  exit  with 
a  JMP  to  CMDERR    ($C1C8) . 


Zero  all  important  variables 
BUFTAB+CBPTR  ($A3)  REC 
FILTBL  ($027A-7F) 
ENTSEC  ($00D8-DC) 
ENTIND  ($00DD-E1) 
FILDRV  ($00E2-E6) 
PATTYP  ($00E7-EB) 
($0280-84) 


FILTRK 
FILSEC  ($0285-89) 


TYPE 

TYPFLG 

FIPTR 

F2PTR 

PATFLG 

ERWORD 


&  pointers 
($0258) 
($024A) 
($0296) 
($00D3) 
($0279) 
($028A) 
($026C) 


Set  first  drive  &  table  pointers: 
Change  pointer  to  end  of  the  first  file 
name    (FICNT;   $0277)    to  point  to  the  end 
of  the  second  file  name   (use  value  from 
F2CNT;    $0278) .   Store  $01  in  F2CNT  and  in 
F2PTR   ($0279)    to  clear  these  variables 

Set  up  all  drives  from  F2CNT: 

Load   .Y  with  last  drive  used  from  LSTDRV 

($028E)    and   .X  with  $00. 

Save   .X  into  FIPTR    ($D3).   Load   .A  from 

FILTAB,X    ($027A,X)    so  it  points  to  the 

start  of  the  Xth  file  specified  in  the 

command  string. 

JSR  to  SETDRV    ($C33C)    to  set  drive  #. 
On  return  .Y  contains  the  drive  number 
specified  in  the  command  or  the  default. 
NOTE:   Bits  represent  drives    (If  bit  7 
set,   use  default.   Bit  0  =  drive  #0/1) 
Recover   .X  pointer  from  FIPTR.   Store  .A 
in  FILTAB,X    ($027A,X) .   Move  drive  #  from 
.Y  to   .A  and  store  in  FILDRV, X  ($027A,X) 
Increment   .X  pointer  and  compare  it  to 
F2CNT    ($0278)    to  see  if  any  more  files 
were  specified.    If  more,   branch  back,  to 
ADIO  to  do  the  next  one.    If  not,  RTS 


Set  drive  #  from  text  or  default  to  0 
On  entry  and  exit  .A  is  an  index  into 
the  command  buffer. 

On  entry   .Y  is  the  default  drive  #.  On 
exit  it  is  the  drive  specified  or  the 
default  drive. 
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SD20 
SD22 

SD24 


$C33C 
$C33D 
$C33F 
$C341 

$C346 

$C34B 

$C34C 
$C34D 

$C34F 


SD40 


$C352 
$C355 
$C357 
$C35B 


SD50 


$C3  61 
$C362 


SETANY 
SA05 


$C368 
$C36D 
$C370 


Move  pointer  into  command  buffer  from 
.A  to  .X 

Load   .Y  with  $00  to  ensure  that  the 
1541 's  default  drive  is  ALWAYS  DRIVE  #0 
Load   .A  with  $3A    (:)    to  prepare  to  hunt 
for  a  colon    (drive  #   is  just  before   :) . 
Check  for  colon  in  command  string  at 
CMDBUF+1,X    ($0201, X).   Picks  up  syntax: 

X#: FILENAME  as   in  SO: JUNK 
If  found,   branch  to  SD40. 
Check  for  colon  in  command  string  at 
CMDBUF,X    ($0200, X).   Picks  up  default 
drive  syntax  as  in  S:JUNK 
If  colon  NOT  found,   branch  to  SD40. 
Colon  found  so  increment  pointer    (.X)  so 
it  points  to  the  first  character  in  the 
f i lename . 

Transfer   .Y  to   .A  to  set  up  the  default 
drive 

AND   .A  with  $01  to  ensure  drive  number 
in  ASCII  form    ($30  or  $31)    is  converted 
to  $00  or  $01. 

Transfer   .A  to   .Y  to  restore  drive  #. 
Transfer   .X  to   .A  to  restore  index  into 
command  string  and  exit  with  an  RTS. 


Set  drive  #  from  command  string  with  the 
syntax:     X#:FILENAME.   On  entry   .X  points 
to  the  #  in  the  command  string. 
Load   .A  with  the  drive  number    (in  ASCII) 
from  CMDBUF,X    ($0200, X). 
Increment   .X  twice  so  it  points  to  the 
first  character  in  the  file  name. 
Compare   .A   (drive  number)    to  $30  (dr#0). 
If  equal,   branch  back  to  SD22  ($C34D) 
Compare   .A   (drive  number)    to  $31  (dr#l). 
If  equal,  branch  back  to  SD22  ($C34D) 
If  not  equal,   must  be  default  drive  so 
branch  back  to  SD20    ($C34C) . 


Set  drive  #  from  command  string  with  the 
syntax:     X#,FILE  or  xx=FILE. 
Transfer  the  drive  number  from   .Y  to  .A. 
OR   .A  with  $80  to  set  the  default  drive 
bit  and  then  AND  the  result  with  $81  to 
mask  off  any  odd  bits.   Branch  back  to 
SD24    ($C34F)    to  terminate  routine. 


Set  drive  #  from  any  configuration: 

Set   IMAGE    ($028B)    to  $00. 

Load   .Y  from  FILTBL    ($027A) . 

Load   .A  with  the    (CB),Y  character  from 

the  command  string  and  JSR  to  TSTOVl  to 

test  for  a  "0"  or  "1". 
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SAIO 


SA20 


TOGDRV 


$C371 
$C377 

$C37D 

$C383 
$C388 
$C38C 

$C38F 


FSISET 


$C398 
$C39D 

$C3A2 


FSIO 


$C3AC 
$C3B0 


On  return   .A  contains  $00  or  $01   if  the 
drive  was  specified.    If  not  specified, 
•A  is  $80  or  $81.    If  the  drive  number 
was  given,   branch  to  SA20    ($C388) . 
Increment  the  pointer  into  the  command 
string    (.Y).   Compare  the  pointer  value 
to  the  command  length   (CMDSIZ;  $0274) 
to  see  if  we  are  at  the  end.    If  we  are, 
branch  to  SAIO  ($C383). 

If  not  "0"  or  "1",   set  the  pointer  (.Y) 
to  the  end  of  the  command  less  one  (so 
it  points  to  the   last  character  before 
the  RETURN  to  pick  up  things   like  VO) 
and  loop  back  to  SA05    ($C370) . 
Decrement  IMAGE    (becomes  $FF)    to  flag  a 
default  drive  status  and  load   .A  with  a 
$00  to  ensure  default  to  0  on  the  1541. 
AND  the  drive  number  in   .A  with  $01,  and 
store  the  result  in  the  current  drive 
number,   DRVNUM    ($7F)  . 

Exit  with  a  JMP  to  SETLDS    ($C100)  to 
turn  on  the  drive  active  light. 


Toggle  drive  number: 

Load   .A  with  current  drive  number  from 
DRVNUM    ($7F) .   EOR  it  with  $01   to  flip 
bit  #0,   AND  it  with  $01  to  mask  off  the 
bits  1-7,   and  store  the  result  back  in 
DRVNUM    ($7F)  . 


Set  pointers  to  one  file  stream  and 
check  type: 

Zero   .Y  and   load   .A  with  the  pointer  to 
the  end  of  file  name  1    (FICNT;    $0277)  . 
Compare   .A  to  the  pointer  to  the  end  of 
file  name  2    (F2CNT;   $0278).    If  equal, 
there  is  no  second  file  so  branch  to 
FS15    ($C3B8) . 

Decrement  F2CNT  and  load   .Y  with  its 
value.   Load   .A  with  the  pointer  to  the 
filetype  in  the  command  string  from 
FILTAB,Y    ($027A,Y) .   Transfer  this  value 
to   .Y  and  use  it  to  load  the  file  type 
into   .A  from  the  command  string    (CB) ,Y. 
Load   .Y  with  $04    (the  number  of  file 
types   less   1)  . 

Loop  to  compare  the  file  type   in   .A  to 
the  list  of  possible  file  types , TYPLST , Y 
When  a  match  occurs,   branch  to  FS15 
($C3B8).    If  no  match  found  this  time, 
decrement   .Y  and,    if  there  are  any  file 
types   left,    loop  back  to  FSIO.  NOTE:  if 
no  match  occurs,   file  assumed  to  be  DEL. 
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FS15 


TSTOVl 


TOVl 


OPTSCH 


OSIO 


0815 


OS30 


0835 


0845 


$C3B8 
$C3BD 


$C3C7 


$C3CA 


$C3D5 


$C3E0 

$C3E8 

$C3EB 
$C3EF 


$C3FE 
$C400 

$C409 

$C41B 


Transfer  file  type  from   .Y  to   .A  and 
store   in  TYPFLG    ($0296) . 

Test  if  character  in   .A  is  ASCII  0  or  1 : 
Compare   .A  to  ASCII   "0"    ($30)    and  then 
to  ASCII   "1"    ($31) .    If  a  match  in  either 
case,   branch  to  TOVl, 

OR   ,A  with  $80  to  set  bit  7  to  indicate 
no  match  was  found. 

AND   .A  with  $81   to  convert  ASCII   to  HEX 
and  preserve  bit  7, 


Determine  optimal   search  for  LOOKUP  and 
FINFIL: 

Zero  TEMP    ($6F)    and  DRVFLG    ($028D)  and 
push  $00  onto  the  stack.   Load   .X  with 
value  from  F2CNT    ($0278)  .   Note:   TEMP  is 
the  drive  mask. 

Pull    .A  from  the  stack  and  OR  it  with 
the  value  in  TEMP    ($6F) .   Push  the  result 
back  onto  the  stack.   Load   .A  with  $01 
and  store  this  value  in  TEMP.  Decrement 
.X    (pointer  into  file  table) .    If  no 
files   left    (.X=$FF),   branch  to  $OS30. 
Load   .A  with  the  drive  for  the  file  from 
FILDRV,X    ($E2,X).    If  this  file  uses  the 
default  drive    (bit  7  set),   branch  to 
0S15.    Do  two  ASL's  on  TEMP  ($6F). 
Do  one  LSR  on   .A.    If  drive  num.ber  in  .A 
was  1,   the  carry  bit   is  set  so  branch 
back  to  OSIO. 

Since  drive  number  was  0,   do  one  ASL  on 
TEMP    ($6F)    and  branch  back  to  OSIO. 
Pull    .A  from  the  stack  and  transfer  this 
value  to   .X.   Use  this  value  as  an  index 
and   load   .A  with  a  value  from  the  search 
table,   SCHTBL-1,X    ($C43F,X).   Push  this 
value  onto  the  stack,   AND  it  with  $03, 
and  store  the  result   in  DRVCNT  ($028C). 
Pull   the  original  value  off  the  stack 
and  do  an  ASL.    If  bit  7  is  not  set, 
branch  to  OS40. 

If  bit  7  was  set,  load  A.  with  the  value 
from  FILDRV    ($E2) . 

AND   .A  with  $01  and  store  the  result  in 
DRVNUM    ($7F) .   Load   .A  with  DRVCNT ($ 0 2 8C ) 
and  if  $00,   only  one  drive  is  addressed 
so  branch  to  OS60. 

JSR  to  AUTOI    ($C63D)    to  check  the  drive 
status  and  initialize  it  if  necessary. 
On  return,   branch  to  OS70   if  the  drive 
is  ready    ( . A=0 ) . 

Drive  is  not  ready  so  load  .A  with  $74 
to  indicate  the  drive  is  not  ready  and 
JSR  to  CMDERR    ($C1C8)  . 
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OS50 


OS60 

OS70 
0845 

SCHTBL 


LOOKUP 
LK05 


LKIO 


LK15 


LK20 


$C420 


$C42D 
$C434 

$C439 
$C43C 

$C440 


$C44F 
$C452 

$C45A 
$C45C 

$C461 
$C462 

$C470 
$C473 


JSR  to  TOGDRV    ($C38F)    to  switch  drives 
and  JSR  to  AUTOI    ($C63D)    to  check  this 
drive's  status  and  init  it  if  necessary. 
On  return,   save  the  processor  status  on 
the  stack.   JSR  to  TOGDRV  to  switch  back 
to  the  first  drive.   On  return,   pull  the 
status  back  off  the  stack.   If  the  second 
drive  is  active,   branch  to  OS70. 
Since  second  drive  is  not  active,  set 
DRVCNT    ($020C)    to  $00  to  indicate  only 
one  drive  addressed  and  branch  to  OS70. 
JSR  to  AUTOI    ($C63D)    to  check  the  drive 
status  and  initialize  it  if  necessary. 
On  return,   branch  to  OS45   if  the  drive 
is  NOT  ready    (  .AOO)  . 

Teminate  routine  with  a  JMP  to  SETLDS 
($C100)    to  turn  on  the  drive  active  LEDs 
Do  a  ROL  on  the  value  in   .A  and  JMP  to 
OS35    ($C400) . 


Search 

Table 

BYTES 

$00,  $80, 

$41 

BYTES 

$01,  $01, 

$01, 

$01 

BYTES 

$81,  $81, 

$81, 

$81 

BYTES 

$42,  $42, 

$42, 

$42 

Look  up  all  files  in  command  string  in 
the  directory  and  fill   tables  with  info, 
JSR  to  OPTSCH  to  find  optimal  search 
pattern  and  turn  on  drive  active  LEDs. 
Store  $00  in  DELIND    ($0292) ,   to  indicate 
that  we  are  NOT  looking  for  a  deleted  or 
unused  directory  entry.   But,   for  one  or 
more  specific  file  names.   JSR  to  SRCHST 

($C5AC)    to  start  the  search  process. 
On  return,   branch  to  LK25   if  a  valid 
file  name  was  found    (Z  flag  =0) 
Since  no  file  name  was  found,  decrement 
DRVCNT    ($028C) ,   the  number  of  drive 
searches  to  be  made.    If  any  more  left 

(DRVCNT  >=  0),   branch  to  LK15. 

Since  there  are  no  more  drive  searches 

to  be  done,   exit  with  an  RTS. 

Store  $01   in  DRVFLG    ($028D)    and  JSR  to 

TOGDRV    ($C38F)    to  switch  drives.   JSR  to 

SETLDS    ($C100)    to  turn  on  the  other  LED. 

Then  JMP  back  to  LK05  to  begin  the 

search  on  the  other  drive. 

JSR  to  SEARCH    ($C617)    to  read  the  next 

valid  file  name  in  the  directory. 

On  return,   branch  to  LK30  to  abandon  the 

search  if  a  valid  file  name  was  NOT 

found    { Z  flag  =   1 ) . 
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LK25 


LK26 


LK30 


FFRE 


FF15 


FFST 


FFIO 


FNDFIL 


$C475 

$C478 

$C47D 
$C47E 


$C485 


$C48A 


$C48B 

$C48E 
$C490 

$C492 


$C49D 


$C4A5 

$C4A7 
$C4AA 

$C4AF 


$C4B5 


JSR  to  COMPAR    ($C4D8)    to  compare  the 
list  of  files  found  with  list  of  those 
required.   On  return,   FOUND    ($028F)    is  0 
if  all  files  have  NOT  been  found. 
Load   .A  with  the  value  from  FOUND.  If 
not  all  the  files  have  been  found  yet, 
branch  to  LK26   to  continue  the  search. 
All  files  have  been  found  so  exit  from 
the  routine  with  an  RTS. 
Load   .A  with  the  value  from  ENTFND 
($0253)    to  check  if  the  most  recent 
compare  found  a  match.    If  not  (.A=$FF), 
branch  to  LK20  to  search  directory  for 
another  valid  file  name.    If  a  match  was 
found,   branch  back  to  LK25  to  try  again. 
Load   .A  with  the  value  from  FOUND.  If 
not  all  the  files  have  been  found  yet, 
branch  to  LKIO  to  continue  the  search. 
All   files  found  so  exit  with  an  RTS. 


Find  next  file  name  matching  any  file 
in  stream  &  return  with  entry  stuffed 
into  tables: 

JSR  to  SRRE    ($C604)    to  set  up  and  read 
in  the  next  block  of  directory  entries. 
If  no  files  found,   branch  to  FFIO. 
If  files  were  found,   branch  to  FF25. 


Store  $01   in  DRVFLG    ($028D)    and  JSR  to 

TOGDRV   ($C38F)    to  switch  to  the  other 

drive.   JSR  to  SETLDS    ($C100)    to  turn  on 
the  new  drive  active  light. 

Find  starting  entry  in  the  directory: 
Store  $00  in  DELIND    ($0292)  ,   to  indicate 
that  we  are  NOT  looking  for  a  deleted  or 
unused  directory  entry.   But,   for  one  or 
more  specific  file  names.   JSR  to  SRCHST 
($C5AC)    to  start  the  search  process. 
On  return,   branch  to  FF25  if  a  valid 
file  name  was  found    (Z  flag  =0) 
Store   .A  value  in  FOUND    ($028F)  . 
Load   .A  from  FOUND    ($028F) .    If  non-zero, 
all  files  found  so  branch  to  FF40  &  exit 
Since  there  is  nothing  more  on  this 
drive,   decrement  DRVCNT  by  1.    If  any 
more  drives   left,  branch  to  FF15  to  try 
the  other  drive.    If  none  left,   do  an  RTS 


Continue  scan  of  directory: 

JSR  to  SEARCH    ($C617)    to  retrieve  the 

next  valid  file  name  from  the  directory. 
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FF25 


FF30 


FF40 


COMPAR 


$C4B8 
$C4BA 
$C4BD 


$C4C7 
$C4C9 

$C4CE 


$C4D7 


$C4D8 


CP02 
CP05 


CPIO 


$C4E6 
$C4E7 


$C4EC 


$C4F3 


On  return,   branch  to  FFIO  if  no  more 
entries  available  on  this  drive. 
JSR  to  COMPAR    ($C4D8)    to  see  if  any  of 
the  names  found  match  the  ones  needed. 
On  return,    load   .X  from  ENTFND  ($0253). 
If  a  match  on  a  name  was  found    (.X<128) , 
branch  to  FF30  to  check  the  file  type. 
If  no  match  found    (.X>127) ,    load   .A  with 
the  value  from  FOUND ($028F)    to  check  if 
all   files  have  been  found.    If  not(.A=0), 
branch  back  to  FNDFIL  to  load  another 
name  from  the  directory. 
If   .AOO,   all  files  have  been  found  so 
branch  to  FF40  and  exit  with  an  RTS. 
Check  the  file  type  flag,   TYPFLG (S0296) . 
If  it  is  $00,   there  is  no  file  type 
restriction  so  branch  to  FF40  and  exit. 
Load  the  file  pattern  type  from  PATTYP,X 
($E7,X),   AND  it  with  the  file  type  mask 
#$07,   and  compare  it  to  the  value  in 
TYPFLG    ($0296) .    If  the  file  types  do  not 
match,   branch  back  to  FNDFIL  to  continue 
the  search. 

Terminate  the  routine  with  an  RTS. 


Compare  all   file  names  in  command  list 
with  each  valid  entry  in  directory. 
Any  matches  are  tabulated. 
Set  the  found-entry  flag,   ENTFND  ($0253) 
to  $FF  and  zero  the  pattern  flag  PATFLG 
($028A) .   JSR  to  CMPCHK    ($C589)    to  check 
the  file  table  for  unfound  files.  If 
there  are  unfound  files    (Z  flag  =  1), 
branch  to  CPlO  to  begin  comparing. 
Terminate  routine  with  an  RTS. 
JSR  to  CCIO    ($C594)    to   set  F2PTR  ($0279) 
to  point  to  the  next  file  needed  on  this 
drive.   On  return,   branch  to  CP02  to  exit 
if  no  more  files  needed  on  this  drive. 
Load   .A  with  the  current  drive  number 
from  DRVNUM    ($7F)    and  EOR  it  with  the 
drive  number  specified  for  the  file, 
FILDRV,X    ($E2,X) .   LSR  the  result.    If  the 
carry  flag  is  clear,   the  drive  number  is 
correct  for  this  file  so  branch  to  CP20 
to  find  the  name  in  the  directory  list. 
AND  the  value  in   .A  with  $40  to  check  if 
we  are  to  use  the  default  drive  (NOTE: 
$40  rather  than  $80  because  of  the  LSR) . 
If  we  can  not  use  the  default  drive, 
branch  back  to  CP05  to  set  up  the  next 
file  name  on  our  list  of  files  needed. 
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CP20 


$C4F7 
$C4FE 


CP30 


$C502 


$C50A 


CP32 
CP33 


CP34 


CP40 


$C511 


$C515 


$C51B 
$C51D 


$C522 

$C529 
$C52B 

$C52F 

$C535 
$C53B 


Compare  DRVCNT    ($028C)   with  $02.  If 
equal,   don't  use  default  drive  so  branch 
back  to  CP05, 

At  this  point  we  have  a  match  on  the 
drive  numbers  so  check  the  directory 
entries  to  see  if  we  can  match  a  name. 
Load   .A  with  the  pointer  to  the  position 
of  the  required  file  name  from  FILTBL,X 
($027A,X)    and  transfer  this  value  to  .X. 
JSR  to  FNDLMT  to  find  the  end  of  the 
command  string.   On  return,    load  the 
pointer  into  the  directory  buffer  (.Y) 
with  $03    (so  it  points  past  the  file 
type,   track  and  sector)    and  JMP  to  CP33. 
Compare  the   .Xth  character  in  the 
command  string    (the  required  filename) 
with  the   .Yth  character  in  the  directory 
buffer    (the  directory  entry).    If  equal, 
branch  to  CP32  to  set  up  for  the  next 
character . 

No  exact  match  so  check  if  the  command 

buffer  character  is  a  "?"  which  will 

match  any  character.    If  not,   branch  to 

to  CP05  to  try  the  next  file  name. 

Compare  the  character  we  just  used  from 

the  directory  buffer  with  $A0  to  see  if 

we've  reached  the  end  of  the  name.  If 

we  have,   branch  to  CP05  to  try  the  next 

file  name. 

Increment   .X  and  .Y 

Compare   .X  with  the  length  of  the 

command  string,   LIMIT    ($0276).    If  we  are 

at  the  end,   branch  to  CP34. 

Check  if  the  new  character  in  the  file 

name,   CMDBUF,X    ($0200, X)    is  a  "*".    If  it 

is,    it  matches  everything  so  branch  to 

CP40  to  tabulate  this  match. 

If  not  a  "*",   branch  to  CP30  to  keep  on 

matching . 

Compare   .Y  to  $13  to  see  if  we  are  at 
the  end  of  the  name  in  the  directory. 
If  we  are,  branch  to  CP40  to  tabulate. 
If  not  at  the  limit,  check  the  character 
in  the  directory  entry  name.    If  it  isn't 
an  $A0,  we  did  not  get  to  the  end  of  the 
name  so  branch  back  to  CP05  to  try  again 
The  filenames  match  so  keep  track  of  it 
by  storing  the  pointer  to  the  entry  from 
F2PNT    ($0279)    into  ENTFND    ($0253)  . 
Get  the  file  type  pattern    ( $80 , $8 1 , etc ) 
from  PATTYP,X    ($E7,X),   AND   it  with  $80, 
and  store  it  in  PSTFLG. 
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CP42 


$C542 
$C547 
$C54B 


$C55A 
$C55C 


$C562 


$C56A 


CMPCHK 


CCIO 


CC15 


$C572 

$C578 
$C57D 
$C582 

$C589 

$C594 
$C59A 


Get  the  pointer  to  the  directory  entry 
from  INDEX    ($0294)    and  store  it  in  the 
entry  index,   ENTIND,X  ($DD,X). 
Get  the  sector  on  track  18  on  which  the 
entry  is  stored  from  SECTOR   ($81)  and 
store  it   in,   ENTSEC,X  ($D8,X). 
Zero   .Y  and   load   .A  with  the  file  type 
of  this  directory  entry  from    (DIRBUF) ,Y 
($94), Y.    Increment   .Y.   Save  the  type  on 
the  stack.   AND  the  type  with  $40  to  see 
if  this  is  a   locked  file  type,   and  store 
the  result  in  TEMP    ($6F).   Pull   the  file 
type  off  the  stack  and  AND  it  with  $DF 
($FF-$20) .    If  the  result   is  >  127  (the 
replacement  bit  not  set),   branch  to  CP42 
OR  the  result  with  $20. 

AND  the  result  with  $27  and  OR  it  with 
the  value  stored  in  TEMP    ($6F)    and  store 
the  final   result  back  in  TEMP. 
Load   .A  with  $80,   AND   .A  with  the  file 
pattern  type  from  PATTYP,X    ($E7,X),  OR 
the  result  with  the  value  in  TEMP    ($6F)  , 
and  store  the  final  result  back  in 
PATTYP,X. 

Load   .A  with  the  file's  drive  number 
from  FILDRV,X    ($E2,X).   AND   it  with  $80 
to  preserve  the  default  drive  bit,   OR  it 
with  the  current  drive  number,  DRVNUM 
($7F)    and  store  the  result  back  into 
FILDRV,X    ($E2 ,X) . 

Move  the  file's  first  track  link  from 
(DIRBUF) ,Y ( .Y=I)    to  FILTRK,X    ($0280)  and 
increment  .Y. 

Move  the  file's  first  sector  link  from 
(DIRBUF) ,Y ( .Y=2)    to  FILSEC,X  ($0285). 
Check  the  current  record  length,  REC 
($0258).    If  NOT  $00,   branch  to  CMPCHK. 
Set   .Y  to  $15  and  move  the  file  entry's 
record  size  from    (DIRBUF) ,Y  to  REC. 

Check  table  for  unfound  files 
Set  all-files-found  flag,   FOUND  ($028F) 
to  $FF.   Move  the  number  of  files  to  test 
from  F2CNT    ($0278)    to  F2PTR  ($0279). 
Decrement  the  file  count,   F2PTR  ($0279). 
If  any  files   left,   branch  to  CC15. 
If  none   left,   exit  with  an  RTS. 
Load   .X  with  the  number  of  the  file  to 
test  from  F2PTR.   Load   .A  with  the  file's 
pattern  type  from  PATTYP,X    ($E7,X).  If 
file  has  not  been  found  yet   (bit  7  is 
still   set)    abort  search  by  branching  to 
CC20 . 
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CC20 


SRCHST 


SRIO 


SR15 


$C5A6 


$C5AC 


$C5B5 


$C5C1 


$C5C4 


$C5C9 
$C5CA 


$C5CF 


SR20 


$C5D7 


Load   .A  with  the  file's  first  track  link 
from  FILTRK,X    ($0280, X).    If  non-zero, 
the  file  has  been  found,   so  branch  back 
to  CCIO  to  test  the  next  file. 
Load   .A  with  $00  and  store  it  in  the 
all-files-found  flag,   FOUND    ($028F)  to 
indicate  that  all  files  have  NOT  been 
found  and  exit  with  an  RTS. 

Initiate  search  of  directory: 
Returns  with  valid  entry    (DELIND=0)  or 
with  the  first  deleted  entry  (DELIND=1) 
Load   .Y  with  $00  and  store  it  in  DELSEC. 

($0291).   Decrement   .Y  to  $FF  and  store 
it  in  the  f ound-an-entry  flag,  ENTFND 

($0253)  . 

To  start   search  at  the  beginning  of  the 
directory,   set  TRACK    ($80)    to  $12  (#18) 
(from  $FE79)    and  SECTOR    ($81)    to  $01. 
Also  store  $01   in  last-sector-in-f i le 
flag,   LSTBUF    ($0293)  . 
JSR  to  OPNIRD    ($D475)    to  open  the 
internal  channel    (SA=16)    for  a  read  and 
to  read  in  the  first  one  or  two  sectors 
in  the  file  whose  T/S   link  is  given  in 
TRACK    ($80)    and  SECTOR  ($81). 
Test  LSTBUF    ($0293)    to  see  if  we  have 
exhausted  the   last  sector  in  the 
directory  file.    If  not    (LSTBUF  <>  $00), 
branch  to  SR15. 
Exit  with  an  RTS. 

Set  the  file  count,   FILCNT    ($0295)  to 
$07   to  indicate  that  there  are  8  entries 
(0-7)    left   to  examine  in  the  buffer. 
Load   .A  with  $00  and  JSR  to  DRDBYT  to 
read  the  first  byte  in  the  sector  (the 
track  link).   On  return  store  this  value 
into  LSTBUF    ($0293).    This   sets  LSTBUF  to 
$00  if  there  are  no  more  blocks   left  in 
in  the  directory  file. 
JSR  to  GETPNT    ($D4E8)    to  set  the 
directory  pointer,   DIRBUF    ($94/5)    to  the 
data  that  was  just  read  into  the  active 
buffer,   BUFTAB,X  ($99/A,X). 


NOTE:   DIRBUF  does  NOT  point  to  the  start  of  the  data 

buffer    ($0300,   $0400,...).    It  points  to  the  first 
data  byte    ($0302,   $0402,...).   As  the  entries  are 
examined,    it  is  update  to  point  to  the  start  of 
the  entry   ($0x02,   $0x22,  $0x42,...). 
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$C5DA 

Decrement   the  entry  count,   FILCNT  and 
load   .Y  with  $00  to  begin  examination  of 
the  first  directory  entry. 

$C5DF 

Test  the  entry's  file  type  in    (DIRBUF) ,Y 
If  non-zero,    this   is  NOT  a  deleted  or 
blank  entry  so  branch  to  SR30. 

$C5E3 

Process  a  scratched  or  blank  entry 
Test  DELSEC    ($0291)    to  see  if  a  deleted 
entry  has  already  been  found.    If  it  has 
(DELSEC   <>   $00),   branch  to  SEARCH ( $C6 1 7 ) 

$C5E8 

This   is  first  deleted  entry  so  JSR  to 
CURBLK    ($DE3B)    to  set  up  the  current 
sector  in  SECTOR    ($81) .   Save  the  sector 
number  in  DELSEC    ($0291)  . 

$C5F0 

Load   .A  with  the   low  byte  of  the  pointer 
to  the  start  of  this  entry    (its  position 
in  the  data  buffer)    from  DIRBUF    ($94)  , 
Load   .X  v/ith  the  current  value  of  DELIND 
($0292) .   This  sets  the  Z   flag  to  1  if 
only  valid  entries  are  desired. 
Store  the  pointer  in   .A  into  DELIND. 

$C5F8 

If  the  Z   flag  is  set,   we  need  valid 
entries,   not  deleted  ones,   so  branch  to 
SEARCH  to  continue  the  search. 

$C5FA 

We  wanted  a  deleted  entry  and  we  found 
one  so  terminate  routine  with  an  RTS. 

SR30 

$C5FB 

We  have  found  a  valid  entry.   Check  if  we 
are   looking  for  one  by  comparing  DELIND 
($0292)    to  $01.    If  not  equal,   we  want  a 
valid  entry  so  branch  to  SR50. 

$C602 

If  DELIND  =  1 ,   we  want  a  deleted  entry, 
not  a  valid  one,   so  branch  to  SEARCH  to 
continue  the  quest! 

Re-enter  the  directory  search: 

SRRE 

$C604 

Set   TRACK    ($80)    to  $12    (#18)    from  $FE85 
Set  SECTOR    ($81)    from  the   last  directory 
sector  used,   DIRSEC    ($0290)  . 

$C60E 

JSR  to  OPNIRD    ($D475)    to  open  the 
internal  channel    (SA=16)    for  a  read  and 
to  read  in  the  first  one  or  two  sectors 
in  the  file  whose  T/S   link  is  given  in 
TRACK    ($80)    and  SECTOR  ($81). 

$C611 

Load   .A  with  the  pointer  INDEX  ($0294) 
that  points  to  the  start  of  the  last 
entry  we  were  examining  and  JSR  to 
SETPNT    (SD4C8)    to  set   the  DIRPNT  ($94/5) 
to  point  to  the  start  of  the  entry. 
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SEARCH 


$C617 


$C621 


SR40 


SR50 


AUTOI 


$C629 

$C62F 

$C634 
$C637 

$C63C 
$C641 


$C647 
$C64C 


$C64F 
$C651 


$C655 
$C659 
$C65D 


Continue  search  of  entries: 

Set   found-entry  flag,   ENTFND    ($0253)  to 

$FF.   Load    .A  with  number  of  entries  left 

in  the  buffer  from  FILCNT    ($0295).  If 

none   left,   branch  to  SR40  to  get  the 

next  buffer  of  directory  entries. 

There  is  at   least  one  more  entry  left  in 

this  buffer  so  load   .A  with  $20    (the  # 

of  characters  in  each  entry)    and  JSR  to 

INCPTR    ($D1C6)    to  set   DIRPTR    ($94/5)  to 

point  to  the  start  of  the  next  entry. 

JMP  to  SR20    ($C5D7)    to  process  it. 

Get  next  buffer  of  entries: 

JSR  to  NXTBUF    ($D44D)    to  read  in  the 

next  directory  sector  and  JMP  to  SRIO 

to  begin  processing  it. 

We  have  found  a  valid  entry  so  save 

how  far  we  got  and  return. 

Save   low  byte  of  the  pointer  to  the 

entry,    from  DIRBUF($94)    in   INDEX ( $0294 ) . 

JSR  to  CURBLK    ($DE3B)    to  store  the 

sector  we  are  checl<.ing  in  SECTOR  ($81). 

Save  the  current  sector  number  from 

SECTOR    ($81)    in  DIRSEC    ($0290)    and  RTS. 

Chectt  drive  for  active  disttette,  init 
if  needed.   Return  no  drive  status. 
Test  auto-initialization  flag,  AUTOFG 
($68) .    If  AUTOFG  <>   0,   auto-init  is 
disabled  so  branch  to  AUT02  ($C669). 
Load   .X  with  the  current  drive  number 
from  DRVNUM    ($7F) .   Test  whether  the 
diskette  has  been  changed  by  doing  an 
LSR  on  the  write-protect-change  flag  for 
the  current  drive,   WPSW,X    ($1C/D) .  If 
the  carry  flag,   C,    is  clear,   the  distt 
has  not  been  changed  so  branch  to  AUT02. 
Load   .A  with  $FF.   Store  this  value  as 
the  job  return  code  in  JOBRTN    ($0298)  . 
JSR   to   ITRIAL    ($DOOE)    to  do  a   SEEK  to 
the  current  drive  to  determine  if  a 
diskette  is  present. 

Load   .Y  with  $FF    (default  to  true) . 
Compare  the  value  in  return  job  code  in 
.A  with  $02.    If  equal,   NO  SYNC  was  found 
so  branch  to  AUTOI  to  abort. 
Compare  the  value  in  return  job  code  in 
.A  with  $03.    If  equal,  NO  HEADER  was 
found  so  branch  to  AUTOI  to  abort. 
Compare  the  value  in  return  job  code  in 
.A  with  $0F.    If  equal,   NO  DRIVE  was 
found  so  branch  to  AUTOI  to  abort. 
Seems  OK  so  load   .Y  with  $00. 
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AUTOl 


AUT02 


TRNAME 


TNIO 
TN20 


TRCMBF 


TRIO 


TR20 


$C65F 


$C666 
$C669 


$C66E 
$C66F 

$C672 

$C675 

$C67A 

$C67F 
$C681 
SC687 


$C688 
$C68B 


$C697 
$C69C 
$C69F 
$C6A5 


Load   .X  with  the  current  drive  number 
DRVNUM    ($7F) .   Transfer  the  value  of  .Y 
into   .A    ($00   if  OK;$FF  if  BAD)    and  store 
in  the  current  drive  status,  NODRV,X 
($FF,X).    If  status  is  bad    (not  $00), 
branch  to  AUT02  to  abort. 
JSR  to  INITDR    ($D042)    to  initialize  the 
current  drive. 

Load   .A  with  the  current  no-drive  status 
and  terminate  routine  with  an  RTS. 
NOTE:    Z  flag  set  if  all   is  OK. 

Transfer  filename  from  CMD  to  buffer: 
On  entry,    .A=string  size;  .X=starting 
index  in  command  string;  .Y=buffer  # 
Save   .A    (string  size)    on  the  stack. 

JSR  to  FNDLMT    ($C6A6)    to  find  the  limit 
of  the  string  in  the  command  buffer  that 
is  pointed  to  by  .X. 

JSR  to  TRCMBF    ($C688)    to  transfer  the 
command  buffer  contents  from   .X  to  LIMIT 
to  the  data  buffer  whose  number  is  in  .Y 
Restore  the  string  size  into   .A  from  the 
stack.    Set  the  carry  flag  and  subtract 
the  maximum  string  size,   STRSIZ    ($024B) . 
Transfer  the  result  from   .A  to   .X.  If 
the  result  is  0  or  negative,   the  string 
does  not  need  padding  so  branch  to  TN20. 
String  is  short  and  needs  to  be  padded 
so  load   .A  with  $A0 . 

Loop  to  pad  the  string  in  the  directory 
buffer  with   .X  $AO's. 
Terminate  routine  with  an  RTS. 

Transfer  CMD  buffer  to  another  buffer: 
.X=index  to  first  chr  in  command  buffer 
LIMIT=index  to   last  chr+1   in  CMD  buffer 
.Y=buffer#.   Uses  current  buffer  pointer. 
Multiply   .Y  by  2    (TYA; ASL; TAY) . 
Use  current  buffer  pointers,  BUFTAB,Y 
($99/A,Y)    to  set  the  directory  buffer 
pointers,   DIRBUF  ($94/5). 
Zero   .Y    (index  into  directory  buffer) 
Move  character  from  CMDBUF,X    ($0200, X) 
to    (DIRBUF)  ,Y    ;  ($94)  ,Y. 

Increment   .Y.    If   .Y  equals  $00,  branch 
to  TR20  to  abort. 

Increment   .X.    If    .X  <  LIMIT  ($0276) 
branch  back  to  TRIO  to  do  next  character 
Terminate  routine  with  an  RTS. 
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FNDLMT 


FLOS 


FLIO 


GETNAM 


GNSUB 


$C6A6 

$C6AD 

$C6B0 

$C6B4 

$C6B8 
$C6BC 

$C6C3 

$C6C8 
$C6CB 
$C6CD 

$C6CE 
$C6D1 
$C6D4 

$C6D7 
$C6DD 

$C6DE 
$C6E2 
$C6E5 

$C6E8 
$C6ED 


Find  the  limit (end)   of  the  string  in  the 
command  buffer  that   is  pointed  to  by  X 
Zero  the  string  size,   STRSIZ  ($024B). 
Transfer  the  starting  pointer  from  .X 
to   .A  and  save  it  on  the  stack. 
Load   .A  with  the  Xth  command  string 
character,   CMDBUF,X    ($0200, X). 
Compare  the  character  to  a  If  they 

match,  we're  at  the  end.   Branch  to  FLIO. 
Compare  the  character  to 
match,   we're  at  the  end. 
Increment  STRSIZ  ($024B) 
Check  if  the  string  size 
reached  the  maximum  size  of  $0F    (#15)  . 
If  it  has,   branch  to  FLIO  to  quit. 
Compare   .X  to  the  pointer  to  the  end  of 
the  command  string,   CMDSIZ    ($0274).  If 
we're  NOT  at  the  end.   Branch  to  FLOS. 
Store  the   .X  value    (the  last  character 
plus   1)    into  LIMIT    ($0276) . 
Pull   the  original    .X  value  off  the  stack 
into   .A  and  transfer  it  to  .X 
Terminate  routine  with  an  RTS. 


a  "=".    If  they 
Branch  to  FLIO. 
and   .  X 

,    STRSIZ,  has 


Get  file  entry  from  directory: 
(called  by  STDIR  and  GETDIR) 
Save  secondary  address,   SA    ($83)    on  the 
stack . 

Save  the  current  channel*,   LINDX  ($82) 
on  the  stack. 

JSR  to  GNSUB    ($C6DE)    to  get  a  directory 
entry  using  the  internal  read  channel 
SA=$11 (#17) . 

Pull   the  original   SA  and  LINDX  values 
from  the  stack  and  reset  these  variables 
Terminate  the  routine  with  an  RTS. 


Get  file  entry  subroutine: 
Set  current  secondary  address,   SA  ($83) 
to  $11    (internal  read  secondary  address) 
JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 
read  channel . 

JSR  to  GETPNT    ($D4E8)    to  set  the 
directory  buffer  pointer,   DIRBUF  ($94/5) 
from  the  pointer  to  the  currently  active 
buffer  using  values  from  BUFTAB    ($30/1)  . 
Test  the  found  entry  flag,   ENTFLG ( $0 25 3 ) 
to  see  if  there  are  more  files.    If  there 
are  more    (ENTFLG  >   127),   branch  to  GN05. 
No  more  entries  so  test  DRVFLG  ($028D) 
to  see  if  we  have  the  other  drive  to  do. 
If  DRVFLG  <>   0,    branch  to  GN050   to  do 
the  other  drive. 
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GN0  5 
GN050 


GN051 


GNIO 


GN12 


$C6F2 
$C6F5 
$C6F7 
$C6FC 

$C701 
$C704 
$C707 

$C70A 

$C70E 

$C716 
$C719 
$C71B 

$C71D 
$C71F 

$C726 
$C728 

$C729 

$C72E 

$C732 
$C736 
$C737 
$C73B 


JSR  to  MSGFRE  ($C806)  to  send  the  BLOCKS 
FREE  message. 

Clear  carry  bit  and  exit  with  an  RTS. 


DRVFLG    {$028D) . 
to  switch  drives, 
to  send  the  BLOCKS 


Test  drive  flag,  DRVFLG  ($028D),  If  $00, 
branch  to  GNIO. 

Decrement  drive  flag,   DRVFLG    ($028D) .  If 
not   $00,   branch  to  GN051  to  do  a  new 
directory . 

Decrement  drive  flag, 
JSR  to  TOGDRV  {$C38F) 
JSR  to  MSGFRE  ($C806) 
FREE  message. 

Set  the  carry  flag  and  exit  with  a  JMP 
to  TOGDRV   ($C38F)    to  switch  drives. 
Load   .A  with  $00  and  zero  the  hi  byte  of 
the  number  of  blocks  counter,  NBTEMP+1 
($0273)    and  the  drive  flag  DRVFLG ( $028D) 
JSR  to  NEWDIR   ($C7B7)    to  begin  a  new 
directory  listing. 

Set  the  carry  flag  and  exit  with  an  RTS. 

Load   .X  with  $18    (#24),   the   length  of  an 
entry  in  a  directory  listing 
e.g.'       114   "PROGRAM  FILENAME"  PRG 
Load   .Y  with  $1D,   the  position  of  the 
hi  byte  of  the  #  of  blocks  in  the  file. 
Load   .A  with  the  hi  byte  of  the  #  of 
blocks  in  the  file.   Store  this  into  the 
hi  byte  of  the  block  counter,  NBTEMP+1 
($0273).    If  zero,  branch  to  GN12. 
Load   .X  with  $16    (#22)    the  directory 
length  less  2. 

Decrement  Y  so  it  points  to  the  position 
of  the   lo  byte  of  the  #  of  blocks  in 
the  file. 

Load   .A  with  the   lo  byte  of  the  #  of 
blocks  in  the  file.   Store  this  into  the 
lo  byte  of  the  block  counter,  NBTEMP 
($0272)  . 

Compare   .X  to  $16    (#22)    the  directory 
length  less  2.    If  they  are  equal,  branch 
to  GN14. 

Compare   .A    (the  lo  byte  of  the  blocks) 
with  $0A    (#10)  .   If   .A<10  branch  to  GN14 
Decrement   .X    (we  will  need  less  padding 
since  #  of  blocks  is  at   least  2  digits. 
Compare   .A    (the   lo  byte  of  the  blocks) 
with  $64    (#100).    If  A<100  branch  to  GN14 
Decrement   .X    (we  will  need  less  padding 
since  #  of  blocks  is  at  least  3  digits. 
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GN14 


$C73C 
$C73F 

$C742 

$C743 


JSR  to  BLKNB    ($C7AC)    to  clear  the  name 
buffer  for  the  next  entry.   On  return  Y=0 
Load   .A  with  the  file  type  from  the 
directory  buffer    (DIRBUF) ,Y  and  save  the 
file  type  onto  the  stack. 
Do  an  ASL  of  the  value  in   .A  to  set  the 
carry  bit  if  this  is  a  valid  file  that 
has  not  been  closed,    (see  BCS  $C764) 
If   .A<128,   branch  to  GN15. 


NOTE:  The  branch  at  $C742  and  the  code  following  is  what 
produces  the  PRG<,  SEQ<,  etc.  file  types.  Note  that 
these  file  types  are  LOCKED  and  can't  be  SCRATCHED! 
The  locking  and  unlocking  of  files  is  NOT  supported 
by  any  Commodore  DOS.  To  lock  a  file,  change  its 
file  type  in  its  directory  entry  from  $80,  $81,  etc 
to  $C0,   $C1,   etc.   Reverse  the  process  for  unlocking 


GN15 


GN20 


GN2  2 


$C745 
$C747 


$C74A 
$C74E 


$C754 
$C755 


$C75B 
$C75C 


$C762 
$C764 

$C766 

$C768 
$C76B 

$C771 

$C773 


$C77E 
$C780 


Load   .A  with  a  $3C    (a   "<") . 

Store  this  value  into  the  name  buffer 

NAMBUF+1,X  ($02B1,X). 

Pull   the  file  type  off  the  stack  and  AND 
it  with  $0F  to  mask  off  the  higher  bits. 
Transfer  it  to   .Y  to  use  as  an  index. 
Move  last  character  in  file  type  name 
from  TP2LST,Y    ($FEC5,Y)    to  the  name 
buffer,   NAMBUF,X  ($02B1,X). 
Decrement  .X 

Move  middle  character  in  file  type  name 
from  TP1LST,Y    ($FECO,Y)    to  the  name 
buffer,   NAMBUF,X  ($02B1,X). 
Decrement  .X 

Move  first  character  in  file  type  name 
from  TYPLST,Y    ($FEBB,Y)    to  the  name 
buffer,   NAMBUF,X  ($02B1,X). 
Decrement   .X  twice 

If  carry  bit   is  set    (indicates  valid 
entry;    see  $C742)    branch  to  GN20. 
Load   .A  with  $2A   (a   "*")    to  indicate  an 
improperly  closed  file. 

Store  the  "*"   in  NAMBUF+1,X  ($02B1,X). 
Store  a  shifted  space,   $A0  in  the  buffer 
(between  name  &  type)    and  decrement  .X 
Load   .Y  with  $12    (#18)    so  it  points  to 
the  end  of  the  name  in  the  dir  buffer. 
Loop  to  transfer  the  16  characters  in 
the  file  name  from  the  directory  buffer 
to  the  name  buffer. 
Load   .A  with  $2  2    (a    ""  ) 
Store  quotation  mark  before  the  name. 
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GN3  0 


GN40 
GN45 

BLKNB 
BLKNBl 

NEWDIR 


NDIO 


ND15 


ND20 


$C783 


$C7A7 
$C7AB 

$C7AC 
$C7B0 
$C7B6 

$C7B7 

$C7BA 

$C7BD 

$C7C0 
$C7C4 

$C7C9 
$C7CE 

$C7D0 
$C7D5 


$C7DA 
$C7DC 


$C7E2 

$C7E4 
$C7E5 


$C7EB 
$C7ED 


Loop  to  scan  up  the  name   looking  for  a 
quote  mark($22)    or  a  shifted  space ($A0). 
When  either  character  is  found  or  the 
end  of  the  name  is  reached,   store  a  $22 
(quote  mark)    at  that  location.   Then  AND 
any  remaining  characters  in  the  name 
with  $7F  to  clear  bit  7  for  each  one. 
JSR  to  FNDFIL    ($C4B5)    to  find  the  next 
entry.   On  return,   set  the  carry  bit. 
Terminate  the  routine  with  an  RTS. 

Blank  the  name  buffer: 

Load   .Y  with  $1B,   the  length  of  the  name 
buffer,   and   .A  with  $20,   a  space. 
Loop  to  store  $20's  in  all   locations  in 
the  name  buffer,  NAMBUF  ($02B1-CB) 
Terminate  the  routine  with  an  RTS. 

New  directory  in  listing 

JSR  to  BAM2X    ($F119)    to  set  BAM  pointer 
in  buffer  0/1  tables  and   leave  in  .X 
JSR  to  REDBAM    ($FODF)    to  read   in  the  BAM 
to  $0700-FF  if  not  already  present. 
JSR  to  BLKNB    ($C7AC)    to  blank  the  name 
buffer,   NAMBUF    ($02B1-CB) . 
Set  TEMP    ($6F)    to  $FF 

Set  NBTEMP    ($0272)    to  the  current  drive 
number  from  DRVNUM  ($7F) 
Set  NBTEMP+1    ($0273)    to  $00 
Load   .X  with  the  position  of  the  read 
BAM  job  in  the  queue  from  JOBNUM    ($F9) . 
Set  high  byte  of  the  pointer  to  the 
directory  buffer,   DIRBUF    ($94/5)    using  a 
value    (3,4,5,6,7,7)    from  3UFIND , X ( $FEEO ) 
Set   low  byte  of  the  pointer  to  the 
directory  buffer,   DIRBUF    ($94/5)  using 
the  value    ($90)    from  DSKNAM  ($FE88). 
DIRBUF  now  points  to  the  start  of  the 
disk  name  in  the  BAM  buffer  ($0x90) 
Load   .Y  with  $16    (#22) ,   the  name  length. 
Load   .A  with  character,    (DIRBUF) ,Y  and 
test  if  it  is  a  shifted  blank    ($A0) . 
If  not,   branch  to  ND20. 

Since  it  is  not  a  shifted  blank,    load  .A 
with  a  $31    (ASCII   "1")    for  version  #1. 
BYTE  $2C  here  causes  branch  to  ND20. 
Load   .A  with  character,    (DIRBUF) ,Y  and 
test  if  it  is  a  shifted  blank  ($A0). 
If  not,   branch  to  ND20. 

Since  it  is  not  a  shifted  blank,    load  .A 
with  a  $20    (ASCII  space). 
Store  the  character  in   .A  into  the  name 
buffer,   NAMBUF+2,Y  ($02B3,Y). 
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MSGFRE 


FREMSG 


$C7F1 

$C7F3 
$C7F8 
$C7FD 
$C800 
$C805 


$C806 

$C809 
$C80B 


$C814 


$C817 


If  more  characters  left  (.Y>=0)  branch 
back  to  ND15. 

Store  a  $12    (RVS  on)    in  NAMBUF  ($02B1) 
Store  a  $22    (quote)    in  NAMBUF+1  ($02B2) 
Store  a  $22    (quote)    in  NAMBUF+18 ($02C3) 
Store  a  $20    (space)    in  NAMBUF+19 ( $02C4 ) 
Terminate  routine  with  an  RTS. 

Set  up  message  "BLOCKS  FREE" 

JSR  to  BLKNB    ($C7AC)    to  clear  the  name 

buffer . 

Load   .Y  with  $0B    (message  length  -1) . 
Loop  using   .Y  as  index  to  iT'Ove  message 
from  FREMSG, Y    ($C817,Y)    to  NAMBUF, Y 
($02B1,Y)  . 

Terminate  routine  with  a  JMP  to  NUMFRE 
($EF4D)    to  calculate  the  number  free. 


Message   "BLOCKS  FREE" 
SCRATCH  ONE  OR  MORE  FILES 


_   *   _  * 


*   _   *  _ 


SCRTCH 


NOTE: 


SC15 


$C823       JSR  to  FSISET    ($C398)    to  set   up  for  one 

file  stream. 
$C826       JSR  to  ALLDRS    ($C320)    to  all  drives 

needed  based  on  F2CNT. 
$C829       JSR  to  OPTSCH    ($C3CA)    to  determine  best 

sequence  of  drives  to  use. 
$C82C       Zero  file  counter,   RO  ($86) 
$C830       JSR  to  FFST    ($C49D)    to  find  the  first 
directory  entry.    If  not  successful, 
branch  to  SC30. 

THE  FOLLOWING  CODE  PREVENTS  FREEING  THE  SECTORS 
OF  AN  UNCLOSED  FILE. 


$C835 
$C838 


JSR  to  TSTCHN  ($DDB7)  to  test  for  active 
files  from  index  table. 

If  file  active   (carry  clear) ,  branch  to 
SC25 . 


NOTE:    THE  FOLLOWING  CODE  PREVENTS  THE  SCRATCHING  OF 
A  LOCKED  FILE    (BIT   6   OF  THE  FILE  TYPE  SET). 


$C83A 
$C83C 

$C83E 

$C840 

$C842 


Load   .Y  with  $00. 

Load   .A  with  file  type  from   (DIRBUF) ,Y 
($94, Y) . 

AND  the  file  type  with  $40  to  test  if  it 
is  a  locked  file  (bit  6  of  filetype  set) 
If  a  locked  file,   branch  to  SC25. 


JSR  to  DELDIR   ($C8B6)    to  delete  the 
directory  entry.   Stores  $00  as  the  file 
type  and  rewrite  the  sector  on  disk. 
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$C845       Load   .Y  with  $13  (#19). 

$C847       Test  whether  this  is  a  relative  file  by 
loading   .A  with  19th  character  of  the 
entry    (the  track  of  the  side-sector 
pointer  for  a  REL  file)    from    (DIRBUF) ,Y 
$C849       If  $00,   not  a  REL  file  so  branch  to  SC17 
$C84B       Store  track  pointer  into  TRACK    ($80)  . 
$C84D       Increment   ,Y  and  move  sector  pointer 

from    (DIRBUF)  ,Y   into  SECTOR    ($81)  . 
$C852       JSR  to  DELFIL    ($C87D)    to  free  the  side 
sectors  by  updating  and  writing  the  BAM 


NOTE:    THE  FOLLOWING  CODE   PREVENTS  FREEING  THE  SECTORS 
OF  A  FILE   IF   ITS  REPLACEMENT  WAS   INCOMPLETE    (BIT   5  SET) 


SC17 


SC20 
SC25 


SC30 


DELFIL 


$C855 
$C85A 

$C85C 

$C85E 

$C863 

$C868 

$C86B 
$C86D 

$C870 

$C872 


$C876 
$C87A 


$C87D 
$C880 

$C883 
$C886 


Load   .X  with  the  directory  entry  counter 

ENTFND    ($0253)    and    .A  with  $20. 

AND   .A  with  the  file  pattern  type  in 

PATTYP,X    ($E7,X)    to  check  if  this  is  an 

opened  but  unclosed  file. 

If  unclosed  file,   branch  to  SC20. 


Move  initial   track  link  from  FILTRK,X 
($0280, X)    into  TRACK  ($80). 
Move  initial   sector  link  from  FILSEC,X 
($0285, X)    into  SECTOR  ($81). 
JSR  to  DELFIL    ($C87D)    to  free  the  file 
blocks  by  updating  and  writing  the  BAM 
Increment  the  file  counter,   RO  ($86). 
JSR  to  FFRE    ($C48B)    to  match  the  next 
filename  in  the  command  string. 
If  a  match  found,  branch  to  SC15 

All  done.   Store  number  of  files  that 
have  been  scratched,   RO    ($86)  into 
TRACK  ($80) 

Load   .A  with  $01  and   .Y  with  $00 
Exit  with  a  JMP  to  SCREND  ($CiA3) 


Delete  file  by  links: 

JSR  to  FRETS    ($EF5F)    to  mark  the  first 

file  block  as  free  in  the  BAM. 

JSR  to  OPNIRD    ($D475)    to  open  the 

internal  read  channel    (SA=17)    and  read 

in  the  first  one  or  two  blocks. 

JSR  to  BAM2X    ($F119)    to  set  BAM  pointers 

in  the  buffer  tables. 

Load   .A  from  BUFO,X    ($A7,X)    and  compare 
it  to  $FF  to  see  if  buffer  inactive. 
If   inactive    (.A=$FF),   branch  to  DEL2 
Load  write  BAM  flag,  WBAM    ($02F9),   OR  it 
with  $40  to  set  bit  6  and  store  it  back 
in  WBAM  to  indicate  both  buffers  active. 
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DEL2  $C894       Zero   .A  and  JSR  to  SETPNT ( $D4C8 )    to  set 

pointers  to  the  currently  active  buffer. 
$C899       JSR  to  RDBYT    ($D156)    to  direct   read  one 

byte    (the  track   link  from  the  buffer) 
$C89C       Store  track  link  into  TRACK  ($80) 
$C89E       JSR  to  RDBYT    ($D156)    to  direct  read  one 

byte    (the  sector  link  from  the  buffer) 
$C8A1       Store  sector  link  into  SECTOR  ($81) 
$C8A3       Test  track  link.    If  not  $00    (not  final 

sector  in  this  file) ,   branch  to  DELI 
$C8A7       JSR  to  MAPOUT    ($EEF4)    write  out  the  BAM. 
$C8AA       Exit  with  a  JMP  to  FRECHN    ($D227)  to 
free  the  internal  read  channel. 

DELI  $C8AD       JSR  to  FRETS($EF5F)    to  de-al locate ( free) 

specified   in  TRACK    ($80)    &   SECTOR  ($81) 
in  the  BAM. 

$C8B0       JSR  to  NXTBUF    ($D44D)    to  read   in  the 

next  block  in  the  file    (use  T/S  link). 
$CBB3       JMP  to  DEL2  to  de-allocate  the  new  block 

Delete  the  directory  entry: 
DELDIR       $CBB6       Load   .Y  with  $00    (will  point  to  the  0th 

character  in  the  entry;   the  file  type) . 
$C8B8       Set  the  file  type,    (DIRBUF)  ,Y;    ($94)  ,Y 

to  $00  to  indicate  a  scratched  file. 
$C8BB       JSR  to  WRTOUT    ($DE5E)    to  write  out  the 

directory  block. 
$C8BE       Exit  with  a  JMP  to  WATJOB    ($D599)  to 

wait  for  the  write  job  to  be  completed. 


DUPLICATE  DISK 


NOT  AVAILABLE  ON  THE  1541 


$CBC1 


Load  .A  with  a  $31  to  indicate  a  bad 
command  and  JMP  to  CMDERR   ($C1CB) . 


_  *  _  *  _ 


FORMAT  DISKETTE  ROUTINE 


This  routine  sets  up  a  jump  instruction  in  buffer  0 
that  points  to  the  code  used  by  the  disk  controller 
to  do  the  formatting.  It  then  puts  an  exectute  job 
code  in  the  job  queue.  The  routine  then  waits  while 
the  disk  controller  actually  does  the  formatting. 


FORMAT 


$C8C6 
$C8D5 

$CBDA 


Store  JMP  $FABB    ($4C , $BB, $FA)    at  the 
start  of  buffer  0  ($0600/1/2). 
Load   .A  with  $03  and  JSR  to  SETH  ($D6D3) 
to  set  up  header  of  active  buffer  to  the 
values   in  TRACK    ($80)    and  SECTOR    ($B1)  . 
Load  drive  number,   DRVNUM    ($7F) ,   EOR  it 
with  $E0    (execute  job  code)   and  store 
the  result   in  the  job  queue    ($0003) . 
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FMT105 


FMTllO 


$C8E0       Load   .A  from  the  job  queue    ($0003) .  If 
.A  >   127,   the  job  has  not  been  finished 
yet  so  branch  back  to  FMT105. 
$C8E4       Compare   .A  with  $02.    if   .A  <  2,   the  job 

was  completed  OK  so  branch  to  FMTllO. 
$C8E8       Error  code  returned  by  disk  controller 
indicates  a  problem  so  load   .A  with  $03 
and   .X  with  $00  and  exit  with  a  JMP  to 
ERROR    ($E60A) . 
$C8EF       Job  completed  satisfactorily  so  exit 
with  an  RTS. 


_  *  _ 


COPY  DISK  FILES  ROUTINE 


DSKCPY 


DXOOOO 
DX0005 


DXOOlO 


$C8F0 
$C8F5 
$C8F8 
$C8FB 
$C8FF 
$C904 
$C907 
$C909 

$C90C 
$C90F 
$C912 


$C919 

$C91F 
$C923 


Store  $E0  in  BUFUSE  ($024F)  to  kill  the 
BAM  buffer. 

JSR  to  CLNBAM    ($F0D1)    to  set  track  and 
sector  links  in  BAM  to  $00. 
JSR  to  BAM2X    ($F119)    to  return  the  BAM 
LINDX   in  .X. 

Store  $FF  in  BUF0,X  ($A7,X)  to  mark  the 
BAM  as  out-of -memory . 

Store  $0F  in  LINUSE  ($0256)  to  free  all 
LINDXs. 

JSR  to  PRSCLN    ($C1E5)    to  parse  the 
command  string  and  find  the  colon. 
If  colon  found    (Z  flag  =0) ,   branch  to 
DXOOOO . 

Colon  not  found  in  command  string  so 
command  must  be  CX=Y.   This  command  is 
not  supported  on  the  1541  so  exit  with 
a  JMP  to  DUPLCT  ($C8C1). 


JSR  to  TC30  ($C1F8)  to  parse  the  command 
string . 

JSR  to  ALLDRS    ($C320)    to  put  the  drive 
numbers  into  the  file  table. 
Load   .A  with  the  command  pattern  image 
as  determined  by  the  parser  from  IMAGE 
($028B) .   AND  the  image  with  %01010101 
($55).    If  the  result  is  not  $00,  the 
command  must  be  a  concatenate  or  normal 
copy  so  branch  to  DX0020. 
Check  for  pattern  matching  in  the  name 
(as  in  cl:game=0:*)    by  loading   .X  from 
FILTBL   ($027A)    and  then  loading   .A  from 
the  command  string,   CMDBUF,X    ($0200, X). 
The  value  in   .A  is  compared  to  $2A  ("*") 
If  there  is  no  match,    there  is  no  wild 
so  branch  to  DX0020. 
Load   .A  with  the  $30  to  indicate  a 
syntax  error  and  JMP  to  CMDERR   ($C1C8) . 
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DX0020  $C928 


PUPSl 


COPY 


COPOl 


$C92F 
$C932 

$C952 
$C955 

$C95C 

$C962 

$C968 


$C96E 
$C971 

$C979 
$C97E 
$C982 


Load   .A  with  the  command  pattern  image 
as  determined  by  the  parser  from  IMAGE 
($028B) .   AND  the  image  with  %11011001 
($D9) .    If  the  result  is  not  $00,  the 
syntax  is  bad  so  branch  to  DXOOlO  and 
abort • 

JMP  to  COPY  ($C952)  to  do  the  file  copy, 
syntax  error  and  JMP  to  CMDERR   ($C1C8) , 

Subroutine  used  to  set  up  for  copying 
entire  disk    (C1=0).   Not  used  on  1541. 

Copy  file(s)    to  one  file: 
JSR  to  LOOKUP    ($C44F)    to  look  up  the 
file(s)    listed  in  the  command  string  in 
the  directory. 

Load   .A  with  the  number  of  filenames  in 
the  command  string  from  F2CNT($0278)  and 
compare  it  with  $03.    If  fewer  than  three 
files,   this   is  not  a  concatenate  so 
branch  to  COPIO  ($C9A1). 

Load   .A  with  the  first  file  drive  number 
from  FILDRV   ($E2)    and  compare  it  to  the 
second  drive  number  in  FILDRV+1  ($E3). 
If  not  equal,   this  is  not  a  concatenate 
so  branch  to  COPIO    ($C9A1) . 
Load   .A  with  the  index  to  the  first  file 
entry  from  ENTIND    ($DD)    and  compare  it 
to  the  second  file's  index  in  ENTIND+1 
($DE) .    If  not  equal,   this  is  not  a 
concatenate  so  branch  to  COPIO    ($C9A1) . 
Load   .A  with  the  first  file's  sector 
link  from  ENTSEC    ($D8)    and  compare  it 
to  the  second  file's   link  in  ENTSEC+1 
($D9) .    If  not  equal,   this  is  not  a 
concatenate  so  branch  to  COPIO    ($C9A1) . 

CONCATENATE  FILES 

JSR  to  CHKIN    ($CACC)    to  check  if  input 
file  exists. 

Set  F2PTR    ($0279)    to  $01   and  JSR  to 
OPIRFL   ($C9FA)    to  open  the  internal  read 
channel,   read  in  the  directory  file,  and 
locate  the  named  file. 

JSR  to  TYPFIL   ($D125)    to  determine  the 
file  type.    If  $00,   a  scratched  file  so 
branch  to  COPOl    (file  type  mismatch). 
Compare  the  file  type  to  $02.    If  not 
equal,   it  is  not  a  deleted  program  file 
so  branch  to  COP05  to  continue. 
Bad  file  name.   Load   .A  with  $64  to 
indicate  a  file  type  mismatch  and  JSR 
to  CMDERR    ($C1C8) . 
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COP05 


COPIO 


CY 


CYIO 


CYIOA 

CY15 

CY20 


$C987 
$C98B 

$C991 

$C996 
$C999 

$C99E 

$C9A1 
$C9A3 

$C9A7 

$C9AA 

$C9B0 
$C9B3 


$C9B6 
$C9B9 
$C9BC 


$C9BF 

$C9C3 

$C9C6 

$C9C9 

$C9CB 

$C9CE 
$C9D2 
$C9D5 

$C9D8 

$C9DB 


Set  secondary  address,   SA    ($83)    to  $12 
(#18,   the  internal  write  channel) 
Move  the  active  buffer  pointer  from 
LINTAB+IRSA    ($023C)    to  LINTAB+IWSA 
($023D) . 

Deactivate  the  internal  read  channel  by 
storing  $FF   in  LINTAB+IRSA  ($023C). 
JSR  to  APPEND    ($DA2A)    to  copy  first  file 
Load   .X  with  $02  and  JSR  to  CYIO  ($C9B9) 
to  copy  second  file  behind  the  first. 
Exit  routine  with  a  JMP  to  ENDCMD  ($C194) 


COPY  FILE 


JSR  to  CY    ($C9A7)    to  do  copy. 
Exit  routine  with  a  JMP  to  ENDCMD  ($C194) 


JSR  to  CHKIO    ($CAE7)    to  check  if  file 
exists . 

Get  drive  number  from  FILDRV   ($E2) ,  AND 
it  with  $01   (mask  off  default  bit) ,  and 
store  it  in  DRVNUM    ($7F) . 
JSR  to  OPNIWR    ($D486)    to  open  internal 
write  channel. 

JSR  to  ADDFIL   ($D6E4)    to  add  the  new 
file  name  to  the  directory  and  rewrite 
the  directory. 

Load   .X  with  pointer  from  FICNT    ($0277) . 
Store   .X  in  F2CNT    ($0278)  . 
JSR  to  OPIRFL    ($C9FA)    to  open  internal 
read  channel  and  read  in  one  or  two 
blocks  of  the  directory. 

Set  secondary  address,   SA    ($83)    to  $11, 
to  set  up  the  internal  read  channel. 
JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 
read  channel. 

JSR  to  TYPFIL   ($0125)    to  determine  if 

the  file  is  a  relative  file. 

If  not  a  relative  file   (Z  flag  not  set 

on  return) ,  branch  to  CYIOA. 

JSR  to  CYEXT    ($CA53)    to  open  copy  the 

relative  file  records. 

Store  $08  (EOI  signal)  into  E0IFLG($F8). 
JMP  to  CY20. 

JSR  to  PIBYTE   ($CF9B)    to  write  out  last 
byte  to  disk. 

JSR  to  GIBYTE    ($CA35)    to  get  a  byte  from 
the  internal  read  channel. 
Load   .A  with  $80   (the  last  record  flag) 
and  JSR  to  TSTFLG    ($DDA6)    to  see  if  this 
is  the  last  record. 
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CY30 


$C9E0 

$C9E5 
$C9E7 
$C9EA 


$C9F3 


OPIRFL 


$C9FA 


$CA03 
$CA08 

$CAOC 
$CAOF 

$CA14 
$CA17 


$CA21 
$CA26 


On  return  if  Z  flag  is  set   (test  failed; 
this  is  not  the  last  record)    branch  to 
CY15  to  do  some  more. 

Last  record  done  so  JSR  to  TYPFIL ( $D1 25 ) 
to  get  file  type. 

On  return  if  Z  flag  is  set  branch  to 
CY30  to  do  some  more. 

JSR  to  PIBYTE  ($CF9B)  to  write  out  last 
byte  to  disk. 

Check  if  there  are  more  files  to  copy 
by  loading   .X  from  F2PTR   ($0279)  , 
incrementing  it  by  1,   and  comparing  it 
to  F2CNT    ($0278) .    If  the  carry  bit  is 
clear,   there  are  more  files  to  copy  so 
branch  back  to  CYIO. 

Since  no  more  files  to  copy,   set  the  SA 
($83)    to  $12    (internal  write  channel) 
and  JMP  to  CLSCHN   ($DB02)    to  close  the 
copy  channel  and  file. 


Open  internal  read  channel  to  read  file: 
Load   .X  with  the  file  pointer  F2PTR 
($0279)    and  use  this  as  an  index  to  load 
.A  with  the  drive  number  of  the  file  to 
be  read  from  FILDRV,X    ($E2,X).   AND  this 
drive  number  with  $01  to  mask  off  the 
default  drive  bit,  and  store  the  value 
in  DRVNUM    ($7F)    to  set  the  drive  number. 
Set  the  current  TRACK    ($80)    to  18    ($12)  , 
the  directory  track. 
Set  the  current  SECTOR ($81)    to  the 
sector  containing  the  directory  entry 
for  this  file  from  ENTSECX  ($D8,X). 
the  directory  track. 
JSR  to  OPNIRD    ($D475)    to  open  the 
internal   read  channel   to  read  the 
directory . 

Load   .X  with  the  file  pointer  F2PTR 
($0279)   and  use  this  as  an  index  to  load 
.A  with  the  pointer  to  the  start  of  the 
entry  from  ENTIND,X    ($DD,X) . 
JSR  to  SETPNT    ($D4C8)    to  set  the  track 
sector  pointers  from  the  entry. 
Load   .X  with  the  file  pointer  F2PTR 
($0279)    and  use  this  as  an  index  to  load 
.A  with  the  file's  pattern  mask  from 
PATTYP,X    ($E7,X).   AND  this  value  with 
$07   (the  file  type  mask)   and  use  it  to 
set  the  file  type  in  TYPE    ($024A) . 
Set  the  record  length,   REC    ($0258)  to 
$00  since  this  is  not  a  relative  file. 
JSR  to  OPREAD    ($D9A0)    to  open  a  read 
channel . 
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OPIRIO 


GIBYTE 


GCBYTE 


GIB20 


CYEXT 


$CA29 
$CA2E 


$CA30 
$CA31 
$CA32 


$CA35 


$CA39 

$CA3C 
$CA3E 


$CA42 
$CA46 
$CA48 

$CA4D 
$CA52 


$CA53 
$CA56 


$CA59 

$CA5F 
$CA63 

$CA66 
$CA69 


Load   .Y  with  $01  and  JSR  to  TYPFIL 
($D125)    to  get  the  file  type. 
If  Z   flag  set  on  return    (indicates  that 
this  is  not  a  relative  file)   branch  to 
OPIRIO . 

Increment   .Y  by  1. 

Transfer  the  value  in   .Y  into  .A 

Exit  with  a  JMP  to  SETPNT    ($D4C8)    to  set 

the  track  &  sector  pointers  from  the 

directory  entry. 


Get  byte  from  internal  read  channel : 
Set  the  secondary  address,   SA   ($83)  to 
$11   (#17)   the  internal  read  channel. 


Get  byte  from  any  channel: 

JSR  to  GBYTE    ($D39B)    to  get  the  next 

byte  from  the  read  channel. 

Store  the  byte  in  DATA  ($85). 

Load   .X  with  the   logical   file  index 

LINDX    ($82)    and  use  this  as  an  index  to 

load   .A  with  the  channel   status  flag, 

CHNRDY,X 

EOR  .A  with  $08,   the  not  EOI  send  code 
and  store  the  result  in  EOIFLG  ($F8). 
If   .A  <>  $00    (EOI  was  sent!),   branch  to 
GIB20  and  exit. 

JSR  to  TYPFIL   ($D125)    to  get  the  file 
type.   If  Z  flag  set  on  return  (indicates 
this  is  not  a  relative  file) ,  branch  to 
GIB20  and  exit. 

Load   .A  with  $80    (the  last  record  flag) 
and  JSR  to  SETFLG    ($DD97) . 
Terminate  routine  with  an  RTS. 


Copy  relative  records: 

JSR  to  SETDRN    ($D1D3)    to  set  drive  #. 
JSR  to  SSEND    ($E1CB)    to  position  side 
sector  and  BUFTAB  to  the  end  of  the 
last  record. 

Save  side  sector  index,   SSIND    ($D6)  and 
the  side  sector  number,   SSNUM    ($D5)  onto 
the  stack. 

Set  the  secondary  address,   SA    ($83)  to 
$12,   the  internal  write  channel. 
JSR  to  FNDWCH    ($D107)    to  find  an  unused 
write  channel . 

JSR  to  SETDRN   ($D1D3)    to  set  drive  #. 
JSR  to  SSEND    ($E1CB)    to  position  side 
sector  and  BUFTAB  to  the  end  of  the 
last  record. 
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$CA6C       JSR  to  POSBUF    ($E2C9)    to  position  the 

proper  data  blocks  into  the  buffers. 
$CA6F       Set  Rl    ($87)    to  the  current  value  of 

the  side  sector  index,   SSIND  ($D6). 
$CA73       Set  RO    ($86)    to  the  current  value  of 
the  side  sector  number,   SSNUM    ($D5) . 
$CA77       Zero  R2    ($88)    and  the   low  bytes  of  the 
record  pointer  RECPTR   ($D4)    and  the 
relative  file  pointer   ($D7) . 
$CA7F       Restore  the  original  values  of  the  side 
side  sector  number,   SSNUM    ($D5)    and  the 
sector  index,   SSIND    ($D6)    from  the  stack 
$CA85       Terminate  the  routine  with  a  JMP  to 
ADDRl    ($E33B) . 

RENAME  FILE   IN  THE  DIRECTORY 


RENAME 


RNIO 


$CA88 
$CA8B 

$CA91 

$CA95 

$CA97 
$CA99 

$CA9C 

$CA9F 

$CAA5 

$CAA9 

$CAAC 
$CAAF 


JSR  to  ALLDRS    ($C3  20)    to  set  up  all  the 
drives  given  in  the  command  string. 
Load   .A  with  the  drive  specified  for  the 
second  file  from  FILDRV+1    ($E3),   AND  it 
with  $01  to  mask  off  the  default  drive 
bit,  and  store  the  result  back  in 
FILDRV+1    ($E3) . 

Compare  the  second  drive  number   (in  .A) 

with  the  first  one  in  FILDRV   ($E2) .  If 

equal,   branch  to  RNIO. 

OR  the  drive  number  in  .A  with  $80  to 

set  bit  7.  This  will  force  a  search  of 

both  drives  for  the  named  file. 

Store  the  value  in   .A  into  FILDRV  ($E2) 

JSR  to  LOOKUP    ($C44F)    to  look  up  both 

file  names  in  the  directory. 

JSR  to  CHKIO   ($CAE7)    to  check  for  the 

existance  of  the  files  named. 

Load  the  value  from  FILDRV+1    ($E3) ,  AND 

it  with  $01  to  mask  off  the  default 

drive  bit,  and  use  the  result  to  set  the 

currently  active  drive,   DRVNUM   ($7F) . 

Set  the  active  sector  number,  SECTOR 

($81)   using  the  directory  sector  in 
which  the  second  file  name  was  found 

(from  ENTSEC+1 ;    $D9) . 
JSR  to  RDAB    ($DE57)    to  read  the 
directory  sector  specified  in  TRACK ($80) 
and  SECTOR   ($81)  . 

JSR  to  WATJOB    ($D599)    to  wait  for  the 
job  to  be  completed. 

Load  .A  with  the  pointer  to  the  entry  in 
the  buffer  from  ENTIND+1    ($DE) ,   add  $03 
(so  it  points  to  the  first  character  in 
the  file  name),   and  JSR  to  SETPNT ( $D4C8 ) 
to  set  the  pointers  to  the  file  name. 
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CHKIN 


CKIO 


CK20 
CHKIO 

CK25 
CK30 


$CAB7 
$CABA 


$CAC3 
$CAC6 
$CAC9 

$CACC 

$CAD3 
$CAD6 

$CADA 

$CADC 

$CAE1 

$CAE6 
$CAE7 

$CAEA 

$CAEF 
$CAF4 

$CAF7 


JSR  to  GETACT    ($DF93)    to  store  the 
active  buffer  number  in  .A. 
Transfer  the  buffer  number  to   .Y,  load 
.X  from  the  file  table  FILTBL    ($027A) , 
.A  with  $10    (the  number  of  characters 
in  a  file  name)    and  JSR  to  TRNAME ( $C66E) 
to  transfer  the  file  name  from  the 
command  string  to  the  buffer  containing 
the  file  entry. 

JSR  to  WRTOUT    ($DE5E)    to  write  out  the 
revised  directory  sector. 
JSR  to  WATJOB    ($D599)    to  wait  for  the 
job  to  be  completed. 

Terminate  the  routine  with  a  JMP  to 
ENDCMD    ($C194) . 

Check  existance  of  input  file: 
Load   .A  with  the  first  file  type  from 
PATTYP+1    ($E8) ,   AND  it  with  the  file 
type  mask    ($07)    and  store  it  in  TYPE 
($024A) . 

Load   .X  from  F2CNT    ($0278) . 

Decrement    .X  by  1  and  compare  it  with 

the  value  of  FICNT    ($0277) . 

If  the  carry  is  clear,   the  file  has  been 

found  so  branch  to  CKIO. 

Load   .A  with  the  file's  track  link  from 

FILTRK,X    ($0280, X).    If   link  is  NOT  $00, 

branch  to  CKIO. 

Since  the  file  has  not  been  found,  load 
•A  with  $62  and  exit  with  a  JMP  to 
CMDERR    ($C1C8) . 

Terminate  routine  with  an  RTS. 

Check  existance  of  I/O  file: 

JSR  to  CHKIN    ($CACC)    to  check  for  the 

existance  of  the  input  file. 

Load   .A  with  the  file's  track  link  from 

FILTRK,X    ($0280, X).    If   link  equals  $00, 

branch  to  CK30. 

The  file  already  exists  so  load   .A  with 
$62  and  exit  with  a  JMP  to  CMDERR ( $C1C8 ) 
Decrement   .X    (file  counter).    If  more 
files  exist,   branch  back  to  CK25. 
CMDERR    ($C1C8) . 

Terminate  routine  with  an  RTS. 


MEMORY  ACCESS  COMMANDS    (M-R,    M-W,    AND  M-E) 


MEM 


$CAF8 


Check  that  the  second  character  in  the 
command  is  a  "-"  by:    loading   .A  with 
the  character  from  CMDBUF  +  1    ($0201)  , 
and  comparing  it  with  $2D    ("-").    If  not 
equal,   branch  to  MEMERR  ($CB4B). 
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MEMEX 


MEMRD 


$CAFF 

$CB09 
$CBOB 

$CBOE 

$CB12 

$CB15 

$CB19 

$CB1D 

$CB20 
$CB24 


Set  up  address  specified  in  command  by 
moving  the  characters  from  CMDBUF+3 
($0202)    and  CMDBUF+4    ($0203)    to  TEMP 
($6F)    and  TEMP+1    ($70) . 
Set    .Y  to  $00. 

Load   .A  with  the  third  character  of  the 
command    (R,W,E)    from  CMDBUF  +  2    ($0202)  . 
Compare   .A  with  "R" .    If  equal,  branch 
to  MEMRD    ($CB20) . 

JSR  to  KILLP    ($F258)    to  kill  protection, 

NOTE:    this  does  nothing  on  the  15411 
Compare   ,A  with  "W" .    If  equal,  branch 
to  MEMWRT    ($CB50) . 

Compare   .A  with  "E",    If  NOT  equal, 
branch  to  MEMERR   ($CB4B) . 


Do  indirect  jump  using  the  pointer  set 
up  in  TEMP    ($006F)  . 


Load   .A  with  the  contents  of    (TEMP) ,Y 
($6F) ,Y  and  store  the  value  in  DATA($85) 
Compare  the  command  string  length, CMDSIZ 
($0274),   with  $06.    If  it  is   less  than  or 
equal   to  6    (normally  5) ,   branch  to  M30. 


NOTE:    PREVIOUSLY  UNDOCUMENTED  COMMAND!! 


PRINT#15 , "M-R" ;CHR$ (LO) ;CHR$ (HI ) ;CHR$ (HOW  MANY) 


MRMULT 


$CB2B 
$CB2E 
$CB2F 
$CB31 
$CB33 

$CB35 

$CB37 
$CB3A 

$CB3E 


Multi-byte  memory  read: 
Load   .X  with  the  6th  character  in  the 
command  string  from  CMDBUF+5    ($0205) . 
Decrement   ,X    (now  $00  if  only  one  to 
read) . 

If  the  result  is  $00,  all  done  so  branch 
to  M30. 

Transfer  the  value  in  .X  to  .A  and  clear 
the  carry  flag. 

Add  the   lo  byte  of  the  memory  pointer 
in  TEMP    ($6F) .   This  value  is  the  lo 
byte  of  the  last  character  to  be  sent. 
Increment  the   lo  byte  pointer  in  TEMP 
($6F)    so  it  points  to  the  second  memory 
location  to  be  read. 

Store  the  value  in  .A  into  LSTCHR+ERRCHN 
($0249) . 

Load   .A  with  the  current  value  of  TEMP 
($6A) ,   the  lo  byte  of  the  second  memory 
location  to  be  read  and  store  this  value 
in  CB+2    ($A5) . 

Load   .A  with  the  current  value  of  TEMP+1 
($70) ,   the  hi  byte  of  the  second  memory 
location  to  be  read  and  store  this  value 
in  CB+3    ($A6) . 
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M30 


MEMERR 


MEMWRT 


$CB42 

$CB45 
$CB48 

$CB4B 

$CB50 

$CB55 

$CB59 
$CB5B 


Continue  memory  read  with  a  JMP  to  GE20 
($D443) . 

JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 
read  channel . 

Terminate  memory  read  with  a  JMP  to 
GE15    ($D43A) , 

Load  .A  with  $31  to  indicate  a  bad 
command  and  JMP  to  CMDERR   ($C1C8) . 

Move  byte  from  CMDBUF+6,Y    ($0206, Y)  to 
memory  at  TEMP,Y    ($BF,Y) . 
Increment   .Y  and  compare   .Y  with  the 
number  of  bytes  to  do,   CMDBUF  +  5    ($0205)  . 
If  more  to  do,   branch  back  to  MIO. 
Terminate  memory  write  with  an  RTS. 


USER  COMMANDS 


NOTE:   UO  restores  pointer  to  JMP  table 


User  jump  commands: 

Load   .Y  with  the  second  byte  of  the 
command  string  from  CMDBUF+1  ($0201). 
Compare   .Y  to  $30.    If  not  equal,  this 
is  NOT  a  UO  command  so  branch  to  USIO. 
Restore  normal  user  jump  address  ($FFEA) 
storing  $EA  in  USRJMP    ($6B)    and  $FF  in 
USRJMP+1    ($6C) . 

Terminate  routine  with  an  RTS. 
JSR  to  USREXC    ($CB72)    to  execute  the 
code  according  to  the  jump  table. 
Terminate  routine  with  a  JMP  to  ENDCMD 
($C194) . 

Decrement   .Y,   transfer  the  value  to  .A, 
AND  it  with  $0F  to  convert  it  to  hex, 
multiply  it  by  two   (ASL) ,   and  transfer 
the  result  back  into  .Y. 
Transfer  the  lo  byte  of  the  user  jump 
address  from  the  table  at    (USRJMP) ,Y 
to  IP    ($75) . 
Increment   .Y  by  1. 

Transfer  the  hi  byte  of  the  user  jump 
address  from  the  table  at    (USRJMP) ,Y 
to  IP+1    ($76)  . 

Do  an  indirect   jump  to  the  user  code 
through  the  vector  at   IP    ($0076) . 


USER 


USRINT 


USIO 


USREXC 


OPNBLK 


$CB5C 
$CB5F 
$CB63 

$CB6B 
$CB6C 

$CB6F 

$CB72 

$CB78 


$CB7C 
$CB7D 


$CB81 


$CB84 


$CB89 


Open  direct  access  buffer  in  response 
to  an  OPEN  "#"  command: 
Use  the  previous  drive  number,  LSTDRV 
($028E)    to  set   the  current  drive  number 
DRVNUM    ($7F) . 

Save  the  current  secondary  address,  SA 
($83)    on  the  stack. 
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OB05 


OBIO 


0B15 


$CB8C 

$CB8F 
$CB92 
$CB96 

$CB98 


$CB9D 
$CBAO 


$CBA5 
$CBAA 

$CBB1 
$CBB8 


$CBBF 


$CBC6 


$CBCD 

$CBDD 
$CBE2 


JSR  to  AUTOI    {$C63D)    to  initialize  the 
disk.   This  is  necessary  for  proper 
channel  assignment. 

Restore  the  original   secondary  address, 
SA    ($83)    by  pulling  it  off  the  stack. 
Load   .X  with  the  command  string  length 
CMDSIZ    ($0274) .   Decrement   .X  by  1. 
If   .X  not  equal   to  zero,   a  specific 
buffer  number  has  been  requested (e . g .# 1 ) 
so  branch  to  OBIO. 

No  specific  buffer  requested  so  get  any 

available  buffer  by  loading   .A  with  $01 

and  doing  a  JSR  to  GETRCH  {$D1E2). 

On  return,   JMP  to  OB30. 

Load   .A  with  $70  to  indicate  that  no 

channel   is  available  and  JMP  to  CMDERR 

($C1C8) . 

Specific  buffer  requested  so  load  .Y 

with  $01  and  JSR  to  BP05    {$CC7C)  to 

check  the  block  parameters. 

Load   .X  with  the  number  of  the  buffer 

requested  from  FILSEC    ($0285)    and  check 

it  against  $05    (the  highest  numbered 

buffer  available) .    If  too  large,  branch 

to  OB0  5  and  abort  the  command. 

Set  TEMP    {$6F)    and  TEMP+1    ($70)    to  $00 

and  set  the  carry  flag. 

Loop  to  shift  a  1   into  the  bit  position 
in  TEMP  or  TEMP+1   that  corresponds  to 
the  buffer  requested.   For  example: 
TEMP+1  (00000000)    TEMP (0000001) =buffer  0 
TEMP+1  (00000000)    TEMP (0000100) =buffer  2 
TEMP+1 (00000001)    TEMP (0000000) =buffer  8 
Load   .A  with  the  value  in  TEMP  ($6F) 
and  AND  it  with  the  value  in  BUFUSE 

($024F)   which  indicates  which  buffers 
are  already  in  use.   If  the  result  is 
NOT  $00,   the  buffer  requested  is  already 
in  use  so  branch  to  OB05  to  abort. 
Load   .A  with  the  value  in  TEMP+1  ($70) 
and  AND  it  with  the  value  in  BUFUSE+1 

($0250)   which  indicates  which  buffers 
are  already  in  use.    If  the  result  is 
NOT  $00,   the  buffer  requested  is  already 
in  use  so  branch  to  OB05  to  abort. 
Mark  the  buffer  requested  as  in  use  by 
ORing  the  value  in  TEMP  with  the  value 
in  BUFUSE  and  the  value  in  TEMP+1  with 
the  value  in  BUFUSE+1. 

Set  up  the  channel  by  loading   .A  with 
$00  and  doing  a  JSR  to  GETRCH  ($D1E2) 
to  find  an  unused  read  channel. 
Load   .X  with  the  current  channel#  from 
LINDX    ($82) . 
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OB30 


$CBE4 

$CBE9 
$CBEA 


$CBF1 
$CBF3 

$CBFB 
$CBFD 

$CC02 

$CC07 

$CCOD 
$CCOF 
$CC13 

$CC18 


Use   .X  as  an  index  to  move  the  sector 
link  from  FILSEC ( $0285 )    to  BUFO , X  ( $A7 , X ) 
Transfer  the  sector  link  from   .A  to  .X. 
Use   .X  as  an  index  to  move  the  current 
drive  number  from  DRVNUM($7F)    to  JOBS,X 
($00, X)    and  to  LSTJOB,X  ($025B,X). 
Load   .X  with  the  current  secondary 
address ,   SA    ($83 )  . 

Load  .A  with  the  current  value  from  the 
logical   index  table,   LINTAB,X    ($022B,X) . 
OR  this  value  with  $40  to  indicate  that 
it  is  read/write  mode  and  store  the 
result  back  in  LINTAB,X. 

Load  .Y  with  the  current  channel#,  LINDX 
($82)  . 

Load   .A  with  $FF  and  store  this  value 
as  the  channel's  last  character  pointer 
LSTCHR,Y    ($0244 ,Y) . 

Load   .A  with  $89  and  store  this  value 
in  CHNRDY,Y    ($00F2,Y)    to  indicate  that 
the  channel  is  a  random  access  one  and 
is  ready. 

Load   .A  with  the  channel  number  from 
BUFO,Y    ($00A7,Y)    and  store  it  in 
CHNDAT,Y ($023E,Y)    as  the  first  character 
Multiply  the  sector  value  in   .A  by  2 
and  transfer  the  result  into  .X 
Set  the  buffer  table  value  BUFTAB,X 
($99, X)    to  $01. 

Set  the  file  type  value  FILTYP,Y  ($EC,Y) 
to  $0E  to  indicate  a  direct  access  file 
type. 

Terminate  routine  with  a  JMP  to  ENDCMD 
($C1C4) . 


BLOCK  COMMANDS 


(B-A;B-F;B-R;B-W;B-E;B-P) 


BLOCK 


BLKIO 
BLK30 
BLK4  0 


$CC1B 

$CC24 
$CC26 
$CC2B 
$CC30 
$CC33 


Block  commands: 

Zero   .X  and   .Y.   Load   .A  with  $2D  ("-") 
and  JSR  to  PARSE    ($C268)    to  locate  the 
sub-command   (separated  from  the  command 
with  a  "-") . 

On  return  branch  to  BLK40   if  Z  flag  is 
not  set   ("-"  was  found). 
Load   .A  with  $31  to  indicate  a  bad 
command  and  JMP  to  CMDERR   ($C1C8)  . 
Load   .A  with  $30  to  indicate  a  bad 
syntax  and  JMP  to  CMDERR   ($C1C8) . 
Transfer  the  value  in   .X  to   .A.    If  not 
$00,   branch  to  BLK30. 

Load   .X  with  $05   (the  number  of  block 
commands  -  1) . 


267 


NAME 


ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


BLK50 


BLK60 


BLKPAR 


BP05 


BPIO 


$CC35 
$CC38 

$CC42 

$CC48 
$CC4B 

$CC50 

$CC5A 

$CC5D 

$CC63 


$CC6F 

$CC78 

$CC7A 
$CC7C 

$CC7F 

$CC83 

$CC87 

$CC8B 

$CC91 


Load   .A  with  the  first  character  in  the 
sub-command  from  CMDBUF,Y    ($0200, Y). 
Loop  to  compare  the  first  character  in 
the  sub-command  with  the  characters  in 
the  command  table  BCTAB,X    ($CC5D,X) .  If 
a  match  is  found,   branch  to  BLK60.    If  NO 
MATCH  is  found,   branch  to  BLKIO. 
Transfer  the  pointer  to  the  command  in 
the  command  table  from   .X  to   .A.   OR  this 
value  with  $80  and  store  it  as  the 
command  number  in  CMDNUM    ($022A) . 
JSR  to  BLKPAR   ($CC6F)    to  parse  the 
block  parameters. 

Load   .A  with  the  command  number  from 
CMDNUM    ($022A) ,   multiply  it  by  2    (ASL) , 
and  transfer  the  result  into  .X, 
Use   .X  as  an  index  into  the  jump  table 
BCJMP,X    ($CC63)    to  set  up  a  jump  vector 
to  the  ROM  routine  at  TEMP    ($6F/70)  . 
Do  an  indirect  JMP  to  the  appropriate 
ROM  routine  via  the  vector  at  TEMP($6F). 

Block  sub-command  table    ( $CC5D-$CC62 ) 
.BYTE  "AFRWEP" 


Block  jump  table 
$CC63/4  $03,$CD 


$CC65/6 
$CC67/8 
$CC69/A 
$CC6B/C 
$CC6D/E 


$F5,$CC 
$56,$CD 
$73 ,$CD 
$A3 ,$CD 
$BD,$CD 


($CC63-$CC6E) 

BLOCK-ALLOCATE  $CD0  3 

BLOCK-FREE  $CCF5 

BLOCK-READ  $CD56 

BLOCK-WRITE  $CD73 

BLOCK-EXECUTE  $CDA3 

BLOCK-POINTER  $CDBD 


Parse  the  block  parameters: 
Zero   .X  and   .Y.   Load   .A  with  $3A  (":") 
and  JSR  to  PARSE    ($C268)    to  find  the 
colon,   if  any. 

On  return  branch  to  BP05   if  Z  flag  is 
not  set    (":"   found;    .Y=   " : "-position+1) 
Load   .Y  with  $03    (start  of  parameters) 
Load   .A  with  the   .Yth  character  from 
the  command  string. 

Compare  the  character  in  .A  with  $20, 
(a  space).    If  equal,   branch  to  BPIO. 

Compare  the  character  in  .A  with  $29, 
(a  skip  chr) .    If  equal,   branch  to  BPIO. 

Compare  the  character  in  .A  with  $2C, 
(a  comma).    If  NOT  equal,   branch  to  BP20, 

Increment   .Y.   Compare   .Y  to  the  length 

of  the  command  string  in  CMDSIZ    ($0274) . 

If  more   left,   branch  back  to  BP05. 

If  no  more,   exit  with  an  RTS. 
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BP20 


ASCHEX 


AHIO 


AH20 


AH30 


AH3  5 


$CC92 


$CC95 

$CC98 
$CC9B 


$CC9F 


$CCA1 

$CCA9 
$CCAB 

$CCAE 


$CCB2 

$CCB6 

$CCB9 

$CCC1 
$CCC4 


$CCCA 


$CCDO 
$CCD1 

$CCD5 
$CCD7 
$CCDA 


JSR  to  ASCHEX    ($CCA1)    to  convert  ASCII 
values  into  hex  and  store  the  results 
in  tables. 

Increment  the  number  of  parameters 
processed  FICNT    ($0277)  . 

Load   .Y  with  the  value  in  F2PTR  ($0279) 
Compare  the  value  in  .X   (the  original 
value  of  FICNT    ($0277)    to  $04  (the 
maximun  number  of  files  -  1) .    If  the 
value  in   .X  <=  $04,   branch  to  BPIO. 
If   .X  was  >  $04,   the  syntax  is  bad  so 
branch  to  BLK30    ($CC2B) . 


Convert  ASCII  to  HEX  and  store  the 
converted  values  in  the  FILTRK  ($0280) 
and  FILSEC    ($0285)  tables: 
On  entry:    .Y  =  pointer  into  CMD  buffer 
Zero  TEMP($6F),   TEMP+1($70),   and  TEMP+3 
($72)    as  a  work  area. 
Load   .X  with  $FF. 

Load   .A  with  the  command  string  byte 
from  CMDBUF,Y. 

Test  if  the  character  in   .A  is  numeric 
by  comparing  it  to  $40.    If  non-numeric, 
branch  to  AH20. 

Test  if  the  character  in   .A  is  ASCII 

by  comparing  it  to  $30.    If  it  is  not  an 

ASCII  digit,   branch  to  AH20. 

AND  the  ASCII  digit  with  $0F  to  mask 

off  the  higher  order  bits  and  save  this 

new  value  on  the  stack. 

Shift  the  values  already  in  the  table 

one  position    (TEMP+1  goes  into  TEMP+2; 

TEMP  goes  into  TEMP+1). 

Pull   the  new  value  off  the  stack  and 

store  it  in  TEMP. 

Increment   .Y  and  compare  it  to  the 
command  length  stored  in  CMDSIZ  ($0274). 
If  more  command   left,   branch  back  to 
AHIO . 

Convert  the  values  in  the  TEMP  table 
into  a  single  hex  byte: 
Save  the   .Y  pointer  to  the  command 
string  into  F2PTR   ($0279)  ,   clear  the 
the  carry  flag,   and  load   .A  with  $00. 
Increment   .X  by  1    (index  into  TEMP). 
Compare   .X  to  $03  to  see  if  we're  done 
yet.    If  done,   branch  to  AH40. 
Load   .Y  from  TEMP,Y    ($6F,Y) . 
Decrement   .Y  by  1.    If  Y<0  branch  to  AH30 
Add    (with  carry)    the  value  from  DECTAB,X 
($CCF2,X)    to   .A.   This  adds   1,    10  or  100. 
If  there  is  no  carry,   branch  to  AH35. 
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AH40 


DECTAB 


BLKFRE 


BLKALC 


BA15 


$CCDF 

$CCE4 
$CCE5 
$CCE8 

$CCED 
$CCF1 


$CCF2 
$CCF3 
$CCF4 


$CCF5 
$CCF8 
$CCFB 

$CCFE 

$CD03 
$CD06 
$CD09 

$CDOC 
$CDOE 

$CD13 
$CD19 


Since  there  is  a  carry,   clear  the  carry, 
increment  TEMP+3,   and  branch  back  to 
AH35  . 

Save  the  contents  of  .A  (the  hex  number) 
onto  the  stack. 

Load  .X  with  the  command  segment  counter 
from  FICNT    ($0277)  . 

Load   .A  with  the  carry  bit  (thousands) 
from  TEMP+3    ($72)    and  store  it  in  the 
table,   FILTRK,X    ($0280, X). 
Pull  the  hex  number  off  the  stack  and 
store  it  in  the  table,   FILSECX  ($0285  ,X) 
Terminate  routine  with  an  RTS. 


The  decimal  conversion  table: 
Byte     $01     =  1 
Byte     $0A     =  10 
Byte     $64     =  100 


Free    (de-allocate)    block  in  the  BAM: 
JSR  to  BLKTST    ($CDF5)    to  test  for  legal 
block  and  set  up  track  &  sector. 
JSR  to  FRETS    ($EF5F)    to  free  the  block 
in  the  BAM  and  mark  the  BAM  as  changed. 
Terminate  routine  with  a  JMP  to  ENDCMD 
($C194) . 


Unused  code:   LDA  #$01   /   STA  WBAM($02F9) 


Allocate  a  sector    (block)    in  the  BAM: 
JSR  to  BLKTST    ($CDF5)    to  test  for  legal 
block  and  set  up  track  &  sector. 
Load   .A  with  the  current  sector  pointer, 
SECTOR   ($81)    and  save  this  on  the  stack. 
JSR  to  GETSEC    ($F1FA)    to  set  the  BAM  and 
find  the  next  available  sector  on  this 
track. 

If  Z  flag  is  set  on  return  to  indicate 
that  the  desired  sector  is  in  use  and 
there  is  no  greater  sector  available  on 
this  track,   branch  to  BA15. 
Pull  the  requested  sector  from  the  stack 
and  compare  it  to  the  current  contents 
of  SECTOR    ($81).    If  not  equal,  the 
requested  sector  is  already  in  use  so 
branch  to  BA30. 

Requested  sector  is  available  so  JSR  to 
WUSED    ($EF90)    to  allocate  the  sector  in 
the  BAM  and  terminate  the  command  with 
a  JMP  to  ENDCMD    ($C194) . 
Pull  the  desired  sector  off  the  stack. 
It  is  of  no  further  use  since  that 
sector  is  already  in  use. 
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BA20 


BA30 
BA40 

BLKRD2 

GETSIM 


BLKRD3 


BLKRD 


$CD1A 


$CD27 
$CD2A 
$CD2C 
$CD31 

$CD36 
$CD39 


$CD3C 
$CD3F 

$CD41 


$CD42 
$CD45 

$CD4A 

$CD4D 

$CD50 

$CD55 

$CD56 
$CD59 
$CD5C 


Set  the  desired  sector,   SECTOR   ($81)  to 
$00,    increment  the  desired  track,  TRACK 
($80)    by  1,   and  check  if  we  have  reached 
the  maximum  track  count  of  35  (taken 
from  MAXTRK  $FECB) .    If  we  have  gone  all 
the  way,   branch  to  BA40. 

JSR  to  GETSEC    ($F1FA)    to  set  the  BAM  and 
find  the  next  available  sector  on  this 
track . 

If  Z  flag  is  set  on  return,   no  greater 
sector  is  available  on  this  track  so 
branch  back  to  BA20  to  try  another  track 
Requested  block  is  not  available  so  load 
,A  with  $65  to  indicate  NO  BLOCK  ERROR 
and  JMP  to  CMDER2    ($E645) . 
No  free  sectors  are  available  so  load 
.A  with  $65  to  indicate  NO  BLOCK  ERROR 
and  JMP   to  CMDERR    ($C1C8) . 


B-R  Sub  to  test  parameters: 
JSR  to  BKOTST    ($CDF2)    to  test  block 
parameters  and  set  track  &  sector. 
JMP  to  DRTRD    ($D460)    to  read  block 


B-R  Sub  to  get  byte  w/o  increment: 
JSR  to  GETPRE    ($D12F)    set  parameters. 
Load   ,A  with  the  value  in    (BUFTAB,X) , 
($99, X) . 

Terminate  routine  with  an  RTS. 


B-R  Sub  to  do  read: 

JSR  to  BLKRD2    ($CD36)    to  test  parameters 

Zero   .A  and  JSR  to  SETPNT    ($D4C8)    to  set 

the  track  and  sector  pointers. 

JSR  to  GETSIM    ($CD3C)    to  read  block.  On 

return   .Y  is  the  LINDX. 

Store  the  byte  in   .A  into  LSTCHR,Y 

($0244, Y)    as  the   last  character. 

Store  $89   in  CHNRDT , Y ( $F2 , Y)    to  indicate 

that  it  is  a  random  access  channel  and 

is  now  ready. 

Exit  routine  with  an  RTS. 


Block  read  a  sector: 

JSR  to  BLKRD3  ($CD42)  to  set  up  to  read 
the  requested  sector. 

JSR  to  RNGETl    ($D3EC)    to  read  in  the 
sector . 

Terminate  routine  with  a  JMP  to  ENDCMD 
($C194)  . 
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UBLKRD 


BLKWT 


BWIO 


BW2  0 


UBLKWT 


$CD5F 
$CD62 
$CD65 
$CD6B 
$CD70 

$CD73 
$CD76 


$CD79 
$CD7B 

$CD7F 
$CD81 
$CD83 

$CD86 


$CD8A 
$CD8C 
$CD8F 
$CD91 
$CD94 

$CD97 
$CD9A 


Ul:     Block  read  of  a  sector: 


NOTE:   The  only  real  difference  between 
a  B-R  command  and  a  Ul    (preferred)  is 
that  the  Ul  command  move  the  last  byte 
into  the  data  buffer  and  stores  $FF  as 
the   last  byte  read. 


JSR  to  BLKPAR  ($CC6F)  to  parse  the  block 
parameters , 

JSR  to  BLKRD3    ($CD42)    to  set  up  to  read 

the  requested  sector. 

Move  the   last  character  read  from 

LSTCHR,Y    ($0244, Y)    to  CHNDAT,Y  {$023E,Y) 

Store  $FF   in  LSTCHR,Y    ($0244, Y)    as  the 

last  character  to  be  read. 

Terminate  routine  with  a  JMP  to  ENDCMD 

($0194)    which  ends  with  an  RTS. 


Block-write  of  a  sector: 

JSR  to  BKOTST    {$CDF2)    to  test  the  buffer 
and  block  parameters  and  set  up  the 
drive,   track,   and  sector  pointers. 
JSR  to  GETPNT    {$D4E8)    to  read  the  active 
buffer  pointers.   On  exit,    .A  points  into 
the  buffer. 

Transfer   .A  to   .Y  and  decrement  .Y. 

If  the  value  in   .A  is  greater  than  $02, 

branch  to  BWIO 

Load   .Y  with  $01, 

Load   .A  with  $00. 

JSR  to  SETPNT    ($D4C8)    to  set  the  buffer 
pointers . 

Transfer  the  value  in   .Y  to   .A  and  JSR 
to  PUTBYT    ($CFF1)    to  put  the  byte  in  .A 
into  the  active  buffer  of  LINDX. 
Transfer  the  value  of   .X  to   .A  and  save 
it  on  the  stack. 

JSR  to  DRTWRT    {$D464)    to  write  out  the 
block , 

Pop  the  value  off  the  stack  and  transfer 
it  back  into  .X. 

JSR  to  RNGET2    {$D3EE)    to  set  the  channel 
ready  status  and  last  character. 
Terminate  routine  with  a  JMP  to  ENDCMD 
($0194)   which  ends  with  an  RTS. 


U2:     Block  write  of  a  sector: 

JSR  to  BLKPAR    ($CC6F)    to  parse  the  block 

parameters . 

JSR  to  BKOTST    ($CDF2)    to  test  the  buffer 
and  block  parameters  and  set  up  the 
drive,   track,   and  sector  pointers. 
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BLKEXC 


BEIO 
BLKPTR 


BUFTST 


BT15 


$CD9D 
$CDAO 

$CDA3 

$CDA6 
$CDA9 

$CDAD 

$CDB4 
$CDB7 

$CDBA 
$CDBD 

$CDCO 


$CDC9 
$CDCC 

$CDCF 


$CDD2 

$CDD6 
$CDD9 


$CDEO 


JSR  to  DRTWRT  ($D464)  to  write  out  the 
block. . 

Terminate  routine  with  a  JMP  to  ENDCMD 
($C194)   which  ends  with  an  RTS. 


Block,  execute  a  sector: 
JSR  to  KILLP    ($F258)    to  kill   the  disk 
protection.   Does  nothing  on  the  1541! 
JSR  to  BLKRD2    ($CC6F)    to  read  the  sector 
Store  $00   in  TEMP    ($6F)    as  the   lo  byte 
of  the  JMP  address) 

Load   .X  from  JOBNUM    ($F9)    and  use  it  as 
an  index  to  load  the  hi  byte  of  the  JMP 
address  from  BUFIND,X    ($FEEO,X)  and 
store  it   in  TEMP+1    ($70) . 
JSR  to  BEIO    ($CDBA)    to  execute  the 
block . 

Terminate  routine  with  a  JMP  to  ENDCMD 
($C194)   which  ends  with  an  RTS. 


JMP  (TEMP) 


Used  by  block  execute, 


Set  the  buffer  pointer: 

JSR  to  BUFTST    ($CDD2)    to  test  for 

allocated  buffer. 

Load  the  buffer  number  of  the  channel 
requested  from  JUBNUM    ($F9),  multiply 
it  by  two    (ASL) ,   and  transfer  the  result 
into   .X.   Load   .A  with  the  new  buffer 
pointer  value  from  FILSEC+1    ($0286)  and 
store  it  in  the  buffer  table  BUFTAB,X 
($99, X)  . 

JSR  to  GETPRE    ($D12F)    to  set  up  pointers 
JSR  to  RNGET2    ($D3EE)    to  ready  the 
channel  for  I/O. 

Terminate  routine  with  a  JMP  to  ENDCMD 
($C194)   which  ends  with  an  RTS. 


Test  whether  a  buffer  has  been  allocated 
for  the  secondary  address  given  in  SA. 
Load   .X  with  the  file  stream  1  pointer, 
FIPTR   ($D3)    and  then  increment  the 
original  pointer  FIPTR  ($D3). 
Load   .A  with  that  file's  secondary 
address  from  FILSEC,X    ($0285, X), 
Transfer  the  secondary  address  to  .Y. 
Decrement  it  by  2    (to  eliminate  the 
reserved  secondary  addresses  0  and  1) 
and  compare  the  result  with  $0C  (#12). 
If  the  original  SA  was  between  2  and  14, 
it  passes  the  test  so  branch  to  BT20. 
Load   .A  with  $70  to  indicate  no  channel 
is  available  and  JMP  to  CMDERR  ($C1C8). 


273 


NAME 


ADDRESS 


DESCRIPTION  OF  WHAT   ROM  ROUTINE  DOES 


BT20 


BKOTST 


BLKTST 


$CDE5 
$CDE7 

$CDEC 
$CDF1 

$CDF2 


$CDF5 
$CDF7 

$CDFE 
$CE03 
$CE08 
$CEOB 


Store  the  original   secondary  address 
(in   .A)    into  SA    ($83)    as  the  active  SA. 
JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 


read  channe 1 . 
to  BT15. 
JSR  to  GETACT 
buffer  number 


If  none  available,  branch 
to  get  the  active 


($DF93 ) 

On  return,   store  the 
active  buffer  number  in  JOBNUM  ($F9). 
read  channel.    If  none  available,  branch 
Terminate  routine  with  an  RTS. 

Test  all  block  parameters:  buffer 
allocated  and   legal  block.    If  OK,   set  up 
drive,   track,   and  sector  values. 
JSR  to  BUFTST ($CDD2)    to  test   if  buffer 
is  allocated  for  this  secondary  address. 

Set  the  drive  number,   track,   and  sector 
values  requested  for  a  block  operation 
and  test  to  see  that  these  are  valid. 
Load   .X  with  the  channel  number  from 
FIPTR  ($03) 

Load   .A  with  the  drive  number  desired 
from  FILSECX  ($0285  ,X)  ,   AND  it  with  $01 
to  mask  off  the  default  drive  bit,  and 
store  the  result  as  the  current  drive 
number,   DRVNUM    ($7F) . 

Move  the  desired  sector  from  FILSEC+2,X 

($0287, X)    to  SECTOR  ($81). 

Move  the  desired  track  from  FILSEC+1,X 

($0286  , X)    to  TRACK  ($80). 

JSR  to  TSCHK    ($D55F)    to  test  whether  the 
track  and  sector  values  are  legal. 
JMP  to  SETLDS  to  turn  on  drive  active 
LED.   Do  RTS  from  there. 

FIND  RELATIVE  FILE 


INPUTS:    (ALL  1  BYTE) 
RECL       -  record  #    (lo  byte) 
RECH       -  record  #    (hi  byte) 
RS  -  record  size 

RECPTR  -  pointer  into  record 


OUTPUTS:    (ALL  1  BYTE) 
SSKUM  -  side  sector  # 
SSIND  -  index  into  SS 
RELPTR  -  pointer  into 
sector 


FNDREL 


$CEOE 
$CE11 

$CE14 
$CE18 


JSR  to  MULPLY ($CE2C)    to  find  total  bytes 
TOTAL   =   REC#   X  RS   +  RECPTR 
JSR  to  DIV254  to  divide  by  254.  The 
result  is  the  record's   location  (in 
sectors)    from  the  start  of  the  file. 
Save  the  remainder    (in   .A)    into  RELPTR 
($D7).   This  points  into  the  last  sector. 
JSR  to  DIV120  to  divide  by  120.  The 
result  points  into  the  side  sector  file. 
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MULPLY 


MUL25 


MUL50 
MULIOO 

MUL200 

MUL400 


$CE1B 

$CE1F 
$CE23 


$CE2B 


$CE2C 

$CE31 
$CE33 


$CE37 
$CE3B 
$CE3D 

$CE41 

$CE4A 
$CE4C 
$CE50 

$CE54 

$CE57 

$CE5A 

$CE5E 
$CE6D 


Increment  the  pointer  into  the  sector, 
RELPTR   ($D7)    by  two  to  bypass  the  two 
link  bytes  at  the  start  of  the  sector. 
Move  the  quotient  of  the  division  by  120 
from  RESULT    ($8B)    to  SSNUM    ($D5) . 
Load   .A  with  the  remainder  of  the 
division  from  ACCUM+1    ($90)  ,  multiply 
it  by  two    (ASL)    because  each  side  sector 
pointer  occupies  two  bytes    (t   &   s) ,  add 
$10    (#16)    to  skip  the  initial   link  table 
in  the  sector,   and  store  the  resulting 
side  sector  index    (points  into  the 
sector  holding  the  side  sectors)  into 
SSIND    ($D6) . 

Terminate  routine  with  an  RTS. 


Calculate  a  record's   location  in  bytes. 

TOTAL   =   REC#   X  RS   +  RECPTR 
JSR  to   ZERRES    ($CED9)    to   zero  the  RESULT 
area    ($8B-$8D) . 
Zero  ACCUM  +  3    ($92)  . 

Load   .X  with  the  LINDX    ($82)    and  use  it 

to  move  the   lo  byte  of  the  record  number 

from  RECL,X    ($B5)    to  ACCUM+1    ($90) . 

Move  the  hi  byte  of  the  record  number 

from  RECH,X    ($BB)    to  ACCUM  +  2    ($91)  . 

If  the  hi  byte  of  the  record  number  is 

not  $00,   branch  to  MUL25. 

If  the   lo  byte  of  the  record  number  is 

$00,   branch  to  MUL50  to  adjust  for 

record  #0    (the  first  record) . 

Load   .A  with  the   lo  byte  of  the  record 

size  from  ACCUM+1    ($90) ,   set  the  carry 

flag,   subtract  $01,  and  store  the  result 

back  in  ACCUM+1,    If  the  carry  flag  is 

still  set,   branch  to  MULT50. 

Decrement  the  hi  byte  of  the  record  size 

in  ACCUM  +  2    ($91)  . 

Copy  the  record  size  from  RS,X  ($C7,X) 
to  TEMP    ($6F)  . 

Do  an  LSR  on  TEMP    ($6F) .    If  the  carry 
flag  is  clear,   branch  to  MUL200    (no  add 
this  time) . 

JSR  to  ADDRES    ($CEED)    to  add. 

RESULT   =   RESULT   +  ACCUM+1, 2, 3 
JSR  to  ACCX2    ($CEE5)    to  multiply  the 
ACCUM+1, 2, 3  by  two. 

Test  TEMP  to  see  if  done,   if  not  branch 
back  to  MULIOO. 

Add  the  byte  pointer  to  the  result. 
Terminate  routine  with  an  RTS. 
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RESULT    ($8B)  = 


DIVIDE  ROUTINE: 
QUOTIENT         ACCUM+1    ($90)    =  REMAINDER 


DIV254 


DIV120 


DIV150 
DIV200 


$CE6E 
$CE70 

$CE71 
$CE73 
$CE75 
$CE84 
$CE87 
$CE89 

$CE8D 

$CE92 


$CE9A 


Divide  by  254  entry  point: 

Load   .A  with  $FE  (#254) 

Byte  $2C    (skip  over  next  instruction) 

Divide  by  120  entry  point: 

Load   .A  with  $78  (#120) 

Store  divisor  into  TEMP    ($6F) . 

Swap  ACCUM+1, 2, 3  with  RESULT, 1,2 

JSR  to  ZERRES    ($CED9)    to  zero  RESULT, 1,2 

Zero  .X 

Divide  by  256  by  moving  the  value  in 
ACCUM+1, X    ($90, X)    to  ACCUM,X  ($8F,X). 
Increment   .X.    If   .X  is  not  4  yet,  branch 
back  to  DIV200. 

Zero  the  hi  byte,   ACCUM  +  3    ($92)  . 
Check  if  this   is  a  divide  by  120  by 
testing  bit  7  of  TEMP.    If  it  is  a  divide 
by  254,   branch  to  DIV300. 
Do  an  ASL  of  ACCUM    ($8F)    to  set  the 
carry  flag  if  ACCUM  >   127.   Push  the 
processor  status  on  the  stack  to  save 
the  carry  flag.   Do  an  LSR  on  ACCUM  to 
restore  its  original  value.   Pull  the 
processor  status  back  off  the  stack  and 
JSR  to  ACC200    ($CEE6)    to  multiply  the 
value  in  the  ACCUM, 1,2  by  two  so  that 
we  have,   in  effect,  divided  by  128. 

X/128   =   2   *  X/256 
JSR  to  ADORES    ($CEED)    to  add  the  ACCUM 
to  the  RESULT. 

JSR  to  ACCX2    ($CEE5)    to  multiply  the 
ACCUM  by  two. 

Check  if  this  is  a  divide  by  120  by 
testing  bit   7  of  TEMP.    If  it  is  a  divide 
by  254,   branch  to  DIV400. 
JSR  to  ACCX4    ($CEE2)    to  multiply  the 
ACCUM  by  four.     A=   4   *    (2   *  A)    =   8   *  A 
Add  in  the  remainder  from  ACCUM  ($8F) 
to  ACCUM+1.    If  a  carry  is  produced, 
increment  ACCUM+2  and,    if  necessary, 
ACCUM+3 . 

Test  if  remainder  is  less  than  256  by 
ORing  ACCUM+3  and  ACCUM+2.   If  the  result 
is  not  zero,   the  remainder  is  too  large 
so  branch  to  DIV  to  crunch  some  more. 
Test  if  remainder  is  less  than  divisor 
subtracting  the  divisor,   TEMP    ($6F)  from 
the  remainder  in  ACCUM+1    ($90) .    If  the 
remainder  is  smaller,  branch  to  DIV600. 
Since  the  remainder  is  too  large,  add  1 
to  the  RESULT. 


DIV300 


DIV400 


DIV500 


$CEA3 
$CEA6 
$CEA9 

$CEAD 
$CEBO 

$CEBF 

$CEC5 

$CEDO 
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DIV600 


ZERRES 


ACCX4 

ACCX2 
ACC200 


ADDRES 
ADDIOO 


LRUINT 
LRUILP 


LRUUPD 


LRULPl 


LRUEXT 


$CED6 
$CED8 

$CED9 
$CEE1 

$CEE2 

$CEE5 
$CEE6 

$CEEC 

$CEED 
$CEFO 

$CEF6 

$CEF9 

$CEFA 
$CEFC 

$CEFF 

$CF04 

$CF08 

$CF09 

$CFOD 

$CF12 

$CF16 

$CF19 
$CF1D 


Store  the  new,   smaller  remainder  in 
ACCUM+1    ($90)  . 

Terminate  routine  with  an  RTS. 
Zero  the  RESULT  area: 

Load   .A  with  $00  and  store  in  RESULT 
($8B) ,    RESULT+1($8C) ,    and  RESULT+ 2 ( $ 8D ) 
Terminate  routine  with  an  RTS. 


Multiply  ACCUM  by  4: 
JSR  ACCX2  ($CEE5) 
Multiply  ACCUM  by  2: 
Clear  the  carry  flag. 

Do  a  ROL  on  ACCUM+1($90),  ACCUM+2($91), 

and  ACCUM  +  2  ($92)  . 

Terminate  routine  with  an  RTS. 


Add  ACCUM  to  RESULT: 
Load    .X  with  $FD. 

Add  RESULT+3,X    ($8E,X)    and  ACCUM+4,X 
($93)    and  store  the  result  in  RESULT+3. 
Increment    .X.    If  not  $00  yet,  branch 
back  to  ADDIOO. 

Terminate  routine  with  an  RTS. 


Initialize  LRU    (least  recently  used) 
table : 

Load   .X  with  $00. 

Transfer   .X  to   .A.   Store  the  value  in 

.A   into  LRUTBL,X    ($FA,X) . 

Increment   .X  and  compare  it  to  $04,  the 

command  channel   number.    If  not  yet 

equal,   branch  back  to  LRUILP. 

Load   .A  with  $06,   the  BAM  logical  index 

for  the  floating  BAM,   and  store  this 

value   into  LRUTBL,X    ($FA,X) . 

Terminate  routine  with  an  RTS. 


Update  LRU    (least  recently  used)  table: 
Load   .Y  with  $04,   the  command  channel 
number.   Load   .X  from  LINDX    ($82)  the 
current  channel  number. 
Load   .A  with  the  value  from  LRUTBL,Y 
($OOFA,Y) .   Store  the  current  channel 
number    (from   .X)    into  LRUTBL,Y. 
Compare  the  value  in  .A  with  the  current 
channel  number  in  LINDX    ($82).    If  they 
are  equal,   branch  to  LRUEXT  to  exit. 
Decrement  .Y  the  channel  counter.   If  no 
more  channels  to  do   (Y<0)   branch  to 
LRUINT    ($CEFA)    since  no  match  was  found. 
Transfer   .A  to   .X  and  JMP  to  LRULPl 
.A  into  LRUTBL,X    ($FA,X) . 
Terminate  routine  with  an  RTS. 
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DBLBUF 


DBL0  5 

DBL0  8 

DBLIO 
DBL15 
DBL20 


$CF1E 
$CF21 
$CF24 
$CF26 

$CF29 

$CF2E 
$CF31 
$CF37 

$CF3E 

$CF45 
$CF47 

$CF4C 

$CF51 

$CF57 

$CF5A 

$CF5D 

$CF63 
$CF66 

$CF6C 

$CF6F 


Double  buffer:   Switch  the  active  and 
inactive  buffers. 

JSR  to  LRUUPD    ($CF09)    to  update  the  LRU 
(least  recently  used)  table. 
JSR  to  GETINA    ($DFB7)    to  get  the  LINDX 
channel's  inactive  buffer  number   (in  .A) 
On  return,   if  there  is  an  inactive 
buffer,   branch  to  DBL15. 

There  is  no  inactive  buffer  so  make  one! 
JSR  to  SETDRN    ($D1D3)    to  set  the  drive 
number  to  the  one  in  LSTJOB. 
JSR  to  GETBUF    ($D28E)    to  get  a  free 
buffer  number.    If  no  buffers  available, 
branch  to  DBL30  and  abort. 
JSR  to  PUTINA    ($DFC2)    to  store  the  new 
buffer  number  as  the  inactive  buffer. 
Save  the  current  values  of  TRACK  ($80) 
and  SECTOR   ($81)    on  the  stack. 
Load   .A  with  $01   and  JSR  to  DRDBYT 
($D4F6)    to  direct  read   .A  bytes.  Store 
the  byte  read  as  the  current  SECT0R($81) 
Load   .A  with  $00  and  JSR  to  DRDBYT 
($D4F6)    to  direct  read   .A  bytes.  Store 
the  byte  read  as  the  current  TRACK($80). 
If  the  TRACK  byte  was  $00    (last  sector 
in  the  file),   branch  to  DBLIO. 
JSR  to  TYPFIL   ($D125)    to  determine  the 
file  type  we  are  working  on.   If  it  is  a 
relative  file,   branch  to  DBL05. 
JSR  to  TSTWRT    ($DDAB)    to  see  if  we  are 
writing  this  file  or  just  reading  it. 
If  just  reading,  branch  to  DBL05  to  read 
ahead . 

We  are  writing  so  JSR  to  TGLBUF  ($CF8C) 
to  toggle  the  buffers.   On  return,  JMP 
to  DBL08. 

JSR  to  TGLBUF    ($CF8C)    to  toggle  the 
inactive  and  inactive  buffers. 
JSR  to  RDAB    ($DE57)    to  read  in  the  next 
sector  of  the  file   (into  active  buffer). 
Pull  the  old  SECT0R($81)    and  TRACK ($80) 
values  from  the  stack  and  restore  them. 
JMP  to  DBL2  0. 

Pull  the  old  SECT0R($81)    and  TRACK($80) 
values  from  the  stack  and  restore  them. 
JSR  to  TGLBUF    ($CF8C)    to  toggle  the 
inactive  and  active  buffers. 
JSR  to  GETACT    ($DF9  3)    to  get  the  active 
buffer  number   (in   .A).  Transfer  the 
active  buffer  number  into   .X  and  JMP  to 
WATJOB    ($D599)    to  wait  until   job  is  done 
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DBL30 


DBSET 


DBSIO 
TGLBUF 


PIBYTE 


PBYTE 


$CF76 

$CF7B 

$CF7E 
$CF81 
$CF83 

$CF88 
$CF8B 
$CF8C 


$CF94 

$CF9A 
$CF9B 

$CF9F 
$CFA2 
$CFA5 

$CFAA 
$CFAF 


No  buffers  to  steal   so  load   .A  with  $70 
to  indicate  a  NO  CHANNEL  error  and  JMP 
to  CMDERR    ($C1C8) . 


Set  up  double  buffering: 

JSR  to  LRUUPD    ($CF09)    to  update  the  LRU 

(least  recently  used)  table. 

JSR  to  GETINA    ($DFB7)    to  get  the  number 

of  the  inactive  buffer   (in  .A). 

If  there  is  an  inactive  buffer,  branch 

to  DBSIO  to  exit. 

JSR  to  GETBUF    ($DF93)    to  find  an  unused 
buffer.   If  no  buffers  available,  branch 
to  DBL30    ($CF76)    to  abort. 
JSR  to  PUTINA    ($DFC2)    to  set  the  buffer 
found  as  the  inactive  buffer. 
Terminate  routine  with  an  RTS. 


Toggle  the  inactive  &  active  buffers: 

Input:   LINDX  =  current  channel  # 
Load   .X  with  the  channel  number  from 
LINDX    ($82)    and  use  it  as  an  index  to 
load  .A  with  the  buffer  number  from 
BUFO,X    ($A7) .   EOR  this  number  with  $80 
to  change  its  active/ inactive  state  and 
store  the  modified  value  back  in  BUFO,X. 
Load  .A  with  the  buffer  number  from 
BUF1,X    ($AE) .   EOR  this  number  with  $80 
to  change  its  active/ inactive  state  and 
store  the  modified  value  back  in  BUF1,X. 
Terminate  routine  with  an  RTS. 

Write  byte  to  internal  write  channel: 
Load   .X  with  $12    (#18)    the  secondary 
address  of  the  internal  write  channel 
and  use  it  to  set  the  current  secondary 
address  SA    ($83)  . 

JSR  to  FNDWCH    ($D107)    to  find  an  unused 
write  channe 1 . 

JSR  to  SETLED    ($C100)    to  turn  on  the 
drive  active  LED. 

JSR  to  TYPFIL   ($D125)    to  determine  the 

current  file  type.    If  NOT  a  relative 

file,   branch  to  PBYTE  ($CFAF). 

Load   .A  with  $20    (the  overflow  flag  bit) 

and  JSR  to  CLRFLG    ($DD9D)    to  clear  the 

overflow  flag. 

Write  byte  to  any  channel: 

Load   .A  with  the  current  secondary 

address  from  SA   ($83)  .  Compare  the  SA 

with  $0F   (#15)    to  see  if  we  are  using 

the  command  channel.    If  SA=$OF,   this  is 

the  command  channel   so  branch  to  L42 

($CFD8) .    If  not,   branch  to  L40  ($CFBF). 
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PUT 


L40 


L41 


L46 


L42 


L50 


L45 


PUTBYT 


$CFB7 


$CFBF 
$CFC4 

$CFC9 

$CFCB 
$CFCE 

$CFD3 
$CFD8 
$CFDC 

$CFE3 

$CFE8 

$CFEC 
$CFED 

$CFFO 
$CFF1 

$CFF2 


Main  routine  to  write  to  a  channel: 
Check  if  this   is  the  command  channel  or 
a  data  channel  by  loading  the  original 
secondary  address  from  ORGSA    ($84)  , 
ANDing  it  with  $8F,   and  comparing  the 
result  with  $0F    (#15).    If   less  than  15, 
this  is  a  data  channel   so  branch  to  L42. 
JSR  to  TYPFIL   ($D125)    to  determine  the 
file  type.    If  we  are  NOT  working  on  a 
sequential  file,   branch  to  L41. 
Since  this  is  a  sequential  file,  load 
.A  with  the  data  byte  from  DATA  ($85) 
and  JMP  to  WRTBYT    ($D19D)    to  write  the 
byte  to  the  channel. 

If  Z  flag  not  set,  we  are  writing  to  a 
true  random  access  file    (USR)    so  branch 
to  L46. 

We  are  writing  to  a  relative    (REL)  file 
so  JMP   to  WRTREL    ($EOAB) . 
Since  this   is  a  USR  file,    load   .A  with 
the  data  byte  from  DATA    ($85)    and  JSR 
to  PUTBYT    ($CFF1)    to  write   it   to  the 
channe 1 . 

To  prepare  to  write  the  next  byte:  load 
•Y  with  the  channel  number  from  LINDX 
($82)    and  JMP  to  RNGET2    ($D3EE) . 
Since  this  is  the  command  channel,  set 
LINDX    ($82)    to  $04    (the  command  channel 
number) . 

Test  if  command  buffer  is  full  by  doing 
a  JSR  to  GETPNT    ($D4E8)    to  get  the 
position  of  the   last  byte  written  and 
comparing  it  to  $2A.    If  they  are  equal, 
the  buffer  is  full   so  branch  to  L50. 
Since  there  is  space,    load   .A  with  the 
command  message  byte  from  DATA    ($85)  and 
JSR  to  PUTBYT    ($CFF1)    to  write  it  to  the 
command  channel. 

Test  if  this  is  the   last  byte  of  the 
message  by  checking  the  EOIFLG    ($F8) . 
If  it  is  zero,   this  is  the   last  byte  so 
branch  to  L45. 

Terminate  command  with  an  RTS. 
Increment  CMDWAT    ($0255)    to  set  the 
command-waiting  flag. 
Terminate  command  with  an  RTS. 


Put  byte  in   .A  into  the  active  buffer 

of  the  channel   in  LINDX: 

Save  byte  in   .A  onto  the  stack. 

JSR  to  GETACT    ($DF93)    to  get  the  active 

buffer  number    (in   .A).    If  there  is  an 

active  buffer,   branch  to  PUTBl. 
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$CFF7 

No  active  buffer  so  pull  the  data  byte 
off  the  stack,    load   .A  with  $61  to 
indicate  a  FILE  NOT  OPEN  error,   and  JMP 
to  CMDERR    ($C1C8) . 

PUTBl 

$CFFD 

Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  this  value  to  .X 

$CFFF 

Pull  the  data  byte  off  the  stack  and 
store  it   in  the  buffer  at  (BUFTAB,X) 
($99, X) . 

$D002 

Increment  the  buffer  pointer  BUFTAB,X 
NOTE:    Z  flag  is   set  if  this  data  byte 

v^as  stored  in  the   last  position 

in  the  buffer! 

$D004 

Terminate  routine  with  an  RTS. 

INITIALIZE  DRIVE(S) 

Initialize  drive(s):      (Disk  command) 

INTDRV 

$D005 

JSR  to  SIMPRS    ($C1D1)    to  parse  the 
disk  command. 

$D008 

JSR  to  INITDR   ($D042)    to  initialize  the 
drive ( s ) . 

ID20 

$DOOB 

Terminate  command  v/ith  a  JMP  to  ENDCMD 
($C194) . 

Initialize  drive  given  in  DRVNUM: 

ITRIAL 

$DOOE 

JSR  to  BAM2A    ($F10F)    to  get  the  current 
BAM  pointer  in  .A. 

$D011 

Transfer  the  BAM  pointer  to   .Y  and  use 
it  as  an  index  to  load  the  BAM  LINDX 
rrom  hiuru,i    (9A/,i)    mro   .x.    ir  unere 
is  a  valid  buffer  number  for  the  BAM 
(not  $FF) ,   branch  to  IT30. 

$D018 

No  buffer  so  we  had  better  get  one! 
Save  the  BAM  pointer  in   ,A  on  the  stack 
and  JSR  to  GETBUF    ($D28E)    to  find  an 
unused  buffer.    If  a  buffer  is  available, 
branch  to  IT20. 

$D01F 

No  buffer  available  so  load   .A  with  $70 
to  indicate  a  NO  CHANNEL  error  and  JSR 
to  CMDER3    ($E648)  . 

IT20 

$D024 

Pull   the  BAM  pointer  from  the  stack  and 
transfer  it  to   .Y.   Transfer  the  new 
buffer  number  from   .X  to   .A,   OR  it  with 
$80    (to  indicate  an  inactive  status), 
and  store  the  result  in  BUFO,Y  ($00A7,Y) 
to  allocate  the  buffer. 

IT30 

$D02C 

Transfer  the  buffer  number  from   .X  to 
.A,   AND  it  with  $0F  to  mask  off  the 
inactive  status  bit,   and  store  it  in 
JOBNUM    ($F9) . 

$D031 

Set   SECTOR    ($81)    to  $00  and  TRACK  ($80) 
to  $12    (#18)    to  prepare  to  read  the  BAM. 
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INITDR 


NFCALC 


NUMFl 


NUMF2 


$D03A 
$D03D 

$D042 
$D045 
$D048 
$D04D 

$D052 

$D05D 
$D060 

$D06F 

$D075 

$D078 
$D07D 


$D082 
$D083 


$D08B 
$D08F 


JSR  to  SETH    ($D6D3)    to  set  up  the  seek 
image  of  the  BAM  header. 
Load   .A  with  $B0    (the  job  code  for  a 
SEEK)    and  JMP  to  DOJOB    ($D58C)    to  do  the 
seek  to  track  18.   Does  an  RTS  when  done. 


Initialize  drive: 

JSR  to  CLNBAM    ($F0D1)    to  zero  the  track 
numbers  for  the  BAM. 

JSR  to  CLDCHN    ($D313)    to  allocate  a 
channel   for  the  BAM. 

JSR  to  ITRIAL    ($DOOE)    to  allocate  a 
buffer  for  the  BAM  and  seek  track  18. 
Store  $00   in  MDIRTY,X    ($0251)  to 
indicate  that  the  BAM  for  drive   .X  is 
NOT  DIRTY    (BAM  in  memory  matches  BAM  on 
the  diskette) . 

Set  the  master  ID  for  the  diskette  in 
DSKID,X    ($12/3  for  drive  0)    from  the 
track  18  header  values    ($16/17)  read 
during  the  seek  to  track  18. 
JSR  to  DOREAD    ($D586)    to  read  the  BAM 
into  the  buffer. 

Load  the  disk  version(#65  for  4040/1541) 
from  the  $0X02  position  in  the  BAM  and 
store  it  in  DSKVER, X ( $0101 , drive  number) 
Zero  WPSW,X   ($1C,X)    to  clear  the  write 
protect  switch  and  NODRV,X    ($FF,X)  to 
clear  the  drive-not-active  flag. 

Count  the  number  of  free  blocks  in  BAM 
JSR  to  SETBPT    ($EF3A)    to  set  the  bit  map 
pointer  and  read  in  the  BAM  if  necessary 
Initialize   .Y  to  $04  and  zero   .A  and  .X 
(.X  will  be  the  hi  byte  of  the  count) . 
Clear  carry  and  add    (BMPNT) ,Y;    ($6D) ,Y 
to  the  value  in   .A.    If  no  carry,  branch 
to  NUMF2. 

Increment   .X    (the  hi  byte  of  the  count) . 
Increment   .Y  four  times  so  it  points  to 
the  start  of  the  next  track  byte  in  the 
BAM.   Compare   .Y  to  $48    (the  directory 
track  location).   If   .Y=$48,  branch  to 
NUMF2  to  skip  the  directory  track. 
Compare   .Y  to  $90  to  see  if  we  are  done. 
If  there  is  more  to  do,   branch  to  NUMFl. 
All  done.   Save  the   lo  byte  of  the  count 
on  the  stack  and  transfer  the  hi  byte 
from   .X  to   .A.   Load   .X  with  the  current 
drive  number  from  DRVNUM   ($7F)    and  store 
the  hi  byte  of  the  count    (in   .A)  into 
NDBH,X    ($02FC,X) .   Pull   the  lo  byte  of 
the  count  off  the  stack  and  save  it  in 
NDBL,X    ($02FA,X) . 
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STRRD 


STRDBL 


STRl 


RDBUF 

WRTBUF 
STRTIT 


$D09A 
$D09B 


$D09E 
$D0A1 
$D0A4 

$D0A9 

$DOAE 

$DOAF 
$D0B2 


$D0B6 
$D0B7 


$DOBA 

$DOBD 
$DOCO 

$D0C3 

$D0C7 
$D0C9 
$DOCC 


Terminate  routine  with  an  RTS. 


Start  reading  ahead: 

Use  the  values  in  TRACK  and  SECTOR  to 
read  a  data  block.  Use  the  track  and 
sector  pointers  to  set  up  the  next  one. 
JSR  to  SETHDR    ($D6D0)    to  set  up  the 
header  image  using  TRACK   ($80)  and 
SECTOR    ($8i)  values. 

JSR  to  RDBUF    ($D0C3)    to  read  the  first 

block  into  the  data  buffer. 

JSR  to  WATJOB    ($D599)    to  wait  for  the 

read  job  to  be  completed. 

JSR  to  GETBYT    ($D137)    to  get  the  first 

byte  from  the  data  buffer   (track  link) 

and  store  it  in  TRACK   ($80)  . 

JSR  to  GETBYT    ($0137)    to  get  the  second 

byte  from  the  data  buffer   (sector  link) 

and  store  it  in  SECTOR    ($81)  , 

Terminate  routine  with  an  RTS. 

Start  double  buffering:    (reading  ahead) 
JSR  to  STRRD    ($D09B)    to  read  in  a  data 
block  and  set  up  the  next  one. 
Check  the  current  TRACK    ($80)   value.  If 
not  $00,  we  are  not  at  the  end  of  the 
file  so  branch  to  STRl. 
Terminate  routine  with  an  RTS. 
JSR  to  DBLBUF    ($CF1E)    to  set  up  buffers 
and  pointers  for  double  buffering  and 
set  TRACK  and  SECTOR  for  the  next  block, 
JSR  to  SETHDR    ($D6D0)    to  set  up  the 
header  image  using  TRACK    ($80)  and 
SECTOR    ($81)  values. 

JSR  to  RDBUF    ($D0C3)    to  read  the  next 
block  into  the  data  buffer. 
JMP  to  DBLBUF    ($CF1E)    to  set  up  buffers 
and  pointers  for  double  buffering  and 
set  TRACK  and  SECTOR  for  the  next  block, 

Start  a  read  job  of  TRACK  and  SECTOR 
Load  .A  with  $80,  the  job  code  for  a 
read,   and  branch  to  STRTIT    ($D0C9) . 

Start  a  write  job  of  TRACK  and  SECTOR 
Load   .A  with  $90,   the  job  code  for  a 
write . 

Store  command  desired    (in   .A)    as  the 
current  command  in  CMD    ($024D) . 
JSR  to  GETACT   ($DF93)   to  get  the  active 
buffer  number   (in  .A).  Transfer  the 
active  buffer  number  into  .X. 
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WRTCl 


FNDRCH 


FNDC20 


FNDC25 


FNDC30 


$DODO 


$D0D3 


$DODB 

$D0E2 

$D0E8 
$DOEA 

$DOEB 
$D0F1 

$D0F3 

$D0F7 
$D0F9 


$D100 


$D106 


JSR  to  SETLJB    ($D506)    to  set  up  drive 
number    (from  the   last  job) ,   check  for 
legal   track  &   sector,   and,   if  all  OK, 
do  the  job.   On  return   .A=job  number  and 
.X=buffer  number. 

Transfer  buffer  number  from   .X  to   .A  and 
save  it  on  the  stack.  Multiply  the 
buffer  number  by  two    (ASL)    and  transfer 
the  result  into   .X  and  use  it  as  an 
index  to  store  $00  in  the  buffer  table 
pointer  BUFTAB,X    ($99, X) 
JSR  to  TYPFIL    ($D125)    to  get  the  file 
type.   Compare  the  file  type  to  $04.  If 
this  is  not  a  sequential  file,   branch  to 
WRTCl . 

Since  this  is  a  sequential  file, 
increment  the   lo  byte  of  the  block  count 
in  NBKL,X    ($B5,X)    and,   if  necessary,  the 
hi  byte  in  NBKH,X    ($BB,X) . 
Pull  the  original  buffer  number  off  the 
stack  and  transfer  it  back  into  .X. 
Terminate  routine  with  an  RTS. 


Find  the  assigned  read  channel: 
Compare  the  current  secondary  address 
from  SA    ($83)    with  $13    (#19)  the 
highest  allowable  secondary  address+1. 
If  too  large,  branch  to  FNDC20. 
AND  the  secondary  address  with  $0F 
NOTE:   This  masks  off  the  high  order  bits 
of  the  internal  channel  sec  adr's: 
Internal  read       $11    (17)    ->  $01 
Internal  write     $12    (18)    ->  $02 
Compare  the  sec  addr  in   .A  with  $0F(15), 
the  command  channel   sec  addr.    If  they 
are  not  equal,   branch  to  FNDC25. 
Load   .A  with  $10,   the  sec  addr  error 
va lue . 

Transfer  the  sec  addr  from  .A  to  .X, 
set  the  carry  flag,   and  load  the 
channel  number  from  LINTAB,X    ($022B,X) . 
If  bit  7  is  set,   no  channel  has  been 
assigned  for  this  sec  addr,   so  branch  to 
FNDC30  to  exit    (with  carry  bit  set) . 
AND  the  current  channel   number  with  $0F 
and  store  the  result  as  the  current 
channel   number  in  LINDX 
the  channel   num.ber  into 
carry  bit. 

Terminate  routine  with  an  RTS 


($82) .  Transfer 
.X  and  clear  the 
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FNDWCH 


FNDW13 


FNDWIO 


FNDW15 
FNDW20 

TYPFIL 


GETPRE 


$D107 


$D10D 


$D10F 


$0113 
$D114 
$D115 


$D117 
$D119 


$D121 
$D123 

$D125 
$0127 
$0129 

$D12E 

$D12F 
$0132 
$0134 
$0136 


Find  the  assigned  write  channel: 
Compare  the  current  secondary  address 
from  SA    ($83)    with  $13    (#19)  the 
highest  allowable  secondary  address+1. 
If  too  large,   branch  to  FNDW13. 
AND  the  secondary  address  with  $0F 
NOTE:   This  masks  off  the  high  order  bits 
of  the  internal  channel   sec  adr ' s : 
Internal  read       $11    (17)    ->  $01 
Internal  write     $12    (18)    ->  $02 
Transfer  the  sec  addr  from,   .A  to  .X, 
and  load  the  channel  number  assigned  to 
this  sec  addr  from  LINTAB,X    ($022B,X) . 
Transfer  this  channel  number  to  .Y. 
Do  an  ASL  of  the  channel  number  in  .A. 
If  a  channel  has  been  assigned  for  this 
sec  addr    (bit   7  of  LINTAB,X  is  not  set) 
branch  to  FNDW15. 

If  no  channel  assigned  has  been  assigned 
for  this  secondary  address    (bit  6  also 
set),   branch  to  FNDW20  and  abort. 
Transfer  the  original   sec  addr  from  .Y 
to   .A,   AND  it  with  $0F  to  mask  off  any 
high  order  bits,   and  store  it  in  LINDX 
($82)    as  the  currently  active  channel. 
Transfer  the  channel   number  to   .X,  clear 
the  carry  flag,   and  terminate  with  RTS. 
If  bit  6  of  LINTAB,X  is  set  (indicates 
an  inactive  channel),   branch  to  FNDWIO. 
Abort  by  setting  the  carry  flag  and 
terminate  the  routine  with  an  RTS. 

Get  current  file  type: 

Load   .X  with  the  current  channel  number 
from  LINDX    ($82)  . 

Load    .A  v/ith  the  file  type  from  the 
file  type  table,   FILTYP,X    ($EC,X) . 
Divide  the  file  type  by  2    (LSR) ,  AND 
it  with  $07  to  mask  off  higher  order 
bits,   and  com.pare  the  result  with  $04 
■(set  the  Z  flag  if  it  is  a  REL  file!). 
Terminate  the  routine  with  an  RTS. 

Set  buffer  pointers: 

JSR  to  GETACT    ($OF93)    to  get  the  active 
buffer  number    (in  .A). 

Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  the  result   into  .X. 
Load   .Y  with  the  current  channel  number 
from  LINDX    ($82)  . 

Terminate  the  routine  with  an  RTS. 
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GETBYT 


GETB2 


GETBl 


RDBYT 


RDOl 


RDl 


$D137 

$D13A 

$D13D 
$D13F 

$D142 


$D149 
$D14D 


$D150 
$D151 

$D153 
$D155 


$D156 

$D162 

$D164 

$0167 
$D169 
$D16A 

$D16D 

$0172 

$0175 

$0179 
$D17B 

$D180 


Read  one  byte  from  the  active  buffer: 
If   last  data  byte  in  buffer,   set  Z  flag. 
JSR  to  GETPRE  to  set  buffer  pointers. 
Load   .A  with  the  pointer  to  the  last 
character  read  from  LSTCHR,Y    ($0244, Y). 
If  pointer  is   zero,   branch  to  GETBl. 
Load  the  data  byte  from  (BUFTAB,X) 
($99, X)    and  save  it  on  the  stack. 
Load  the  pointer  from  BUFTAB,X    ($99, X) 
and  compare  it  to  the  pointer  to  the 
last  character  read  in  LSTCHR,Y.    If  the 
pointers  are  not  equal,   branch  to  GETB2 . 
Store  $FF  in  BUFTAB,X    ($99, X) 
Pull   the  data  byte  off  the  stack  and 
increment  BUFTAB,X    ($99, X).   This  will 
set  the  Z  flag  if  this  is  the  last  byte. 
Terminate  routine  with  an  RTS. 
Load  the  data  byte  from  (BUFTAB,X) 
($99, X) . 

Increment  BUFTAB,X    ($99, X). 
Terminate  routine  with  an  RTS. 

Read  byte  from  file: 

The  next  file  will  be  read  if  necessary 
and  CHNRDY($F2)   will  be  set  to  EOI  if 
we  have  read  the   last  character  in  file. 
JSR  to  GETBYT  to  read  a  byte  from  the 
active  buffer.   On  return,    if  Z  flag  is 
not  set,  we  did  not  read  the  last  byte 
in  the  buffer  so  branch  to  RD3  and  RTS. 
We  read  the   last  byte  so  load   .A  with 
$80,   the  EOI  flag. 

Store  the  channel   status    (in   .A)  into 
CHNRDY,Y    ($00F2 ,Y) . 

Load   .A  with  the  byte  from  DATA    ($85)  . 

Exit  from  routine  with  an  RTS. 

JSR  to  OBLBUF    ($CF1E)    to  begin  double 

buffering. 

Load   .A  with  $00  and  JSR  to  SETPNT 
($D4C8)    to  set  up  the  buffer  pointers 
JSR  to  GETBYT    ($D137)    to  read  the  first 
byte  from  the  active  buffer    (track  link) 
Compare  the  track  link  to  $00.    If  it  is 
$00,   there  is  no  next  block  so  branch 
to  RD4. 

There  is  another  block  in  this  file  so 
store  the  track  link  in  TRACK    ($80)  . 
JSR  to  GETBYT    ($D137)    to  read  the  next 
byte  from  the  active  buf fer ( sector  link) 
and  store  it  in  SECTOR    ($81)  . 
JSR  to  DBLBUF    ($CF1E)    to  begin  double 
buffering . 
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RD3 
RD4 


V\IRTBYT 


WRTO 


$D183 

$D186 

$D189 

$D18C 

$D18F 
$D191 
$D192 

SD195 


$D19A 
$D19C 


$D19D 

$D1A0 

$D1A2 
$D1A3 

$D1A6 

$D1A9 

$D1AB 

$D1B3 

$D1B8 
$D1BB 

$D1BE 
$D1C1 


JSR  to  SETDRN    ($D1D3)    to   set  up  the 
drive  number. 

JSR  to  SETHDR    ($D6D0)    to  set  up  the 
next  header  image. 

JSR  to  RDBUF  ($D0C3)  to  read  in  the  next 
block  in  the  file. 

JSR  to  DBLBUF    ($CF1E)    to  toggle  the 
active  &   inactive  buffers  &  read  ahead. 
Load   .A  with  the  byte  from  DATA    ($85)  . 
Exit  from  routine  with  an  RTS. 
JSR  to  GETBYTE    ($D137)    to  get  the  next 
byte . 

Load   .Y  with  the  current  channel  number 
from  LINDX    ($82)    and  store  the  new 
character  as  the  pointer  to  the  last 
character  read  from  the  data  buffer 
LSTCHR,Y    ($0244 ,Y) . 

Load   .A  with  the  byte  from  DATA  ($85). 
Exit  from  routine  with  an  RTS. 

Write  character  to  the  active  channel: 
If  this  fills  the  buffer,  write  the 
data  buffer  out  to  disk. 

JSR  to  PUTBYT    ($CFF1)    to  write  the  byte 
to  the  active  channel. 

If  Z  flag  is  set  on  return,   the  buffer 

is  full  so  branch  to  WRTO. 

Exit  from  routine  with  an  RTS. 

JSR  to  SETDRN    ($D1D3)    to  set  the  current 

drive  number  from  the  one  in  LSTJOB. 

JSR  to  NXTTS    ($F11E)    to  get  the  next 

available  track  and  sector. 

Load   .A  with  $00  and  JSR  to  SETPNT 

($D4C8)    to  set  up  the  buffer  pointers. 
Load   .A  with  the  next  available  track 
from  TRACK    ($80)    and  JSR  to  PUTBYT 

($CFF1)   to  store  the  track  link. 
Load   .A  with  the  next  available  sector 
from  SECTOR    ($81)    and  JSR  to  PUTBYT 

($CFF1)    to  store  the  sector  link. 

JSR  to  WRTBUF    ($D0C7)    to  write  out  the 

buffer  to  disk. 

JSR  to  DBLBUF    ($CF1E)    to  toggle  the 
active  and  inactive  buffers  and  set  up 
the  next  inactive  buffer. 
JSR  to  SETHDR    ($D6D0)    to  set  up  the 
header  image  for  the  next  block. 
Load  .A  with  $02    (to  bypass  the  track 
and  sector  link)    and  JMP  to  SETPNT  to 
set  up  the  pointers  to  the  next  buffer. 
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INCPTR 


SETDRN 


GETWCH 


GETRCH 
GETR2 


$D1C6 
$D1C8 

$D1CB 
$D1D2 
$D1D3 

$D1D6 
$D1DA 

$D1DE 


$D1DF 
$D1E0 


$D1E2 
$D1E3 
$D1E4 
$D1E6 

$D1E9 

$D1EC 
$D1EE 


Increment  the  pointer  of  the  active 
buffer  by  .A 

Store  the  value  from   .A  in  TEMP    ($6F) . 
JSR  to  GETPNT    ($D4E8)    to  get  the  active 
buffer  pointer    (in   .A) . 

Clear  the  carry  flag  and  add  the  value 
from  TEMP    ($6F) .   Store  the  result  into 
BUFTAB,X    ($99, X)    and  into  DIRBUF    ($94)  . 
Terminate  routine  with  an  RTS. 

Set  drive  number: 

Sets  DRVNUM  to  the  same  drive  as  was 
used  on  the  last  job  for  the  active 
buffer. 

JSR  to  GETACT    ($D4E8)    to  get  the  active 
buffer  number    (in   .A) . 

Transfer  the  buffer  number  to   .X  and  use 
it  as  an  index  to  load  the  last  job 
number  from  LSTJOB,X    ($025B)    into  .A. 
AND  the  job  number  with  $01  to  mask  off 
all  but  the  drive  number  bit  and  store 
the  result  as  the  current  drive  number 
in  DRVNUM    ($7F) . 
Terminate  routine  with  an  RTS. 

Open  a  new  write  channel: 

.A  =  number  of  buffers  needed 

The  routine  allocates  a  buffer  number 

and  sets  the  logical  file  index,  LINDX. 

Set  the  carry  flag  to  indicate  that  we 

want  a  write  channel. 

Branch  to  GETR2 . 

Open  a  new  read  channel: 

.A  =  number  of  buffers  needed 

The  routine  allocates  a  buffer  number 

and  sets  the  channel*,  LINDX. 

Clear  the  carry  flag  to  indicate  that  we 

want  a  read  channel. 

Save  the  processor  status    (the  carry 
flag)    onto  the  stack. 

Save  the  number  of  buffer  needed  (in  .A) 
into  TEMP    ($6F)  . 

JSR  to  FRECHN    ($D227)    to  free  any 
channels  associated  with  this  secondary 
address . 

JSR  to  FNDLNX    ($D37F)    to  find  the  next 
free  logical   index    (channel)    to  use  and 
allocate  it. 

Store  the  new  channel  number  in  LINDX 
as  the  current  channel  number. 
Load   .X  with  the  current  secondary 
address  from  SA    ($83)  . 
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GETR52 
GETR55 


GETR3 


GETERR 


GETR5 


GETR4 


FRECHN 


FRECO 


$D1F0 

$D1F3 
$D1F5 

$D1F8 
$D1FB 

$D206 

$D20A 

$D20F 
$D212 
$0217 
$D21A 

$D21E 

$D223 
$D226 

$D227 

$D22D 
$D22E 


Pull  the  processor  status  off  the  stack 
and  if  carry  flag  is  clear   (read) , 
branch  to  GETR5  5. 

OR  the  channel  number  in   .A  with  $80  to 
set  bit  7  to  indicate  a  write  file. 
Store  the  channel  number    (in   .A)  into 
the   logical   index  table,  LINTAB,X 
($022B,X) . 

NOTE:   Bit  7  set  for  a  write  channel 
AND  the  channel  number  in   .A  with  $3F 
to  mask  off  the  write  channel  bit  and 
transfer  the  result  to  .Y. 
De-allocate  any  buffers  associated  with 
this  channel  by  storing  $FF  in  BUFO,Y 
($00A7,Y),   in  BUF1,Y    ($OOAE,Y),   and  in 
SS,Y    ($OOCD,Y) . 

Decrement  the  value  in  TEMP   ($6F) .  This 
is  the  number  of  buffers  to  allocate. 
If  there  are  no  more  to  allocate  ($FF), 
branch  to  GETR4  and  exit. 
JSR  to  GETBUF    ($D28E)    to  allocate  a  new 
buffer.   If  a  buffer  was  allocated, 
branch  to  GETR5 . 

No  buffers  available,   so  JSR  to  RELBUF 
($D25A)    to  release  any  buffers  allocated 
Load   .A  with  $70  to  indicate  a  NO 
CHANNEL  error  and  JMP  to  CMDERR    ($C1C8)  . 
Store  the  buffer  number    (in   .A)  into 
BUFO,Y    ($00A7,Y) . 

Decrement  the  value  in  TEMP    ($6F) .  This 

is  the  number  of  buffers  to  allocate. 

If  there  are  no  more  to  allocate  ($FF), 

branch  to  GETR4  and  exit. 

JSR  to  GETBUF    ($D28E)    to  allocate  a  new 

buffer.    If  a  buffer  was  NOT  allocated, 

branch  to  GETERR  and  abort. 

Store  the  buffer  number    (in   .A)  into 

BUFl ,Y    ($OOAE, Y) . 

Terminate  routine  with  an  RTS. 

Free  channel  associated  with  SA 

Read  and  write  channels  are  freed.  The 

command  channel   is  not  freed. 

Load  .A  with  the  secondary  address  from 

SA    ($83)  .   Compare  it  with  $0F    (#15)  ,  the 

command  channel   secondary  address.  If 

the  secondary  address  is  not  $0F,  branch 

to  FRECO. 

Since  we  are  not  to  free  the  command 
channel,   simply  exit  with  an  RTS. 

Free  data  channel  associated  with  SA: 
Load   .X  with  the  secondary  address  from 
SA    ($83)  . 
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RELINX 
REL15 


RELIO 


FRE25 


RELBUF 


RELl 


$D230 

$D237 

$D23B 
$D240 

$D246 
$D249 

$D24D 
$D250 


$D251 
$D253 


$D259 

$D25A 
$D25C 

$D262 

$D267 
$D26B 
$D26D 

$D273 
$D278 


Load   .A  with  the  channel  number 
associated  with  this  secondary  address 
from  LINTAB,X    ($022B,X).    If   it   is  $FF, 
there  is  no  associated  channel  so  branch 
to  FRE25  and  exit. 

AND  the  channel  number  with  $3F  to  mask 
off  the  higher  order  bits  and  store  the 
result  as  the  current  channel   in  LINDX 
($82)  . 

Free  the  channel  by  storing  $FF  into 
LINTAB,X    ($022B,X) . 

Load   .X  with  the  channel  number  from 
LINDX    ($82)    and  store  $00  as  the  channel 
status    (free)    in  CHNRDY,X  ($F2,Y). 
JSR  to  RELBUF    ($D25A)    to  release  buffers 
Load   .X  with  the  channel  number  from 
LINDX    ($82)    and   ,A  with  $01. 
Decrement   .X,   the  channel  number.  If 
it  is  $FF    (no  lower  channel  numbers) , 
branch  to  RELIO. 

Do  an  ASL  on  the  value  in   .A.  Note  that 
the  bit  set  shifts  left  one  position 
each  time  through  the  loop. 
If   .A  <>  0,   branch  to  REL15  (always). 
OR  the  value  in  the  accumulator  with 
LINUSE    ($0256)    to  free  the  channel 
(bit  =   1  for  free;   bit  =  0  for  used) , 
Store  the  resulting  value  back  in 
LINUSE    ($0256) . 

Terminate  routine  with  an  RTS. 

Release  buffers  associated  with  channel: 
Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 

Load   .A  with  the  buffer  number  for  this 
channel   from  BUFO,X    ($A7,X).   Compare  the 
buffer  number  with  $FF    (free) .    If  it  is 
already  free,   branch  to  RELl. 
Save  the  buffer  number  on  the  stack  and 
store  $FF  into  BUFO,X    ($A7,X)    to  free 
this  buffer. 

Pull   the  buffer  number  off  the  stack  and 
JSR  to  FREBUF    ($D2F3)    to  free  the  buffer 
Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 

Load   .A  with  the  buffer  number  for  this 
channel   from  BUF1,X    ($AE,X).   Compare  the 
buffer  number  with  $FF    (free) .    If   it  is 
already  free,   branch  to  REL2 . 
Save  the  buffer  number  on  the  stack  and 
store  $FF  into  BUF1,X    ($AE,X)    to  free 
this  buffer. 

Pull  the  buffer  number  off  the  stack  and 
JSR  to  FREBUF    ($D2F3)    to  free  the  buffer 
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REL2 


REL3 
GETBUF 


GBFl 


GBF2 


$D27C 
$D27E 

$D284 

$D289 
$D28D 
$D28E 

$D28E 
$D290 
$D297 
$D29D 

$D2A3 
$D2A7 

$D2AE 

$D2B1 

$D2B6 
$D2B8 
$D2B9 


Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 

Load   .A  with  the  side  sector  for  this 
channel   from  SS,X    ($CD,X) .   Compare  the 
side  sector  with  $FF    (free).    If  it  is 
already  free,   branch  to  REL3 . 
Save  the  side  sector  on  the  stack  and 
store  $FF  into  SS,X    ($CD,X)    to  free  the 
side  sector  pointer. 

Pull  the  side  sector  off  the  stack  and 
JSR  to  FREBUF    ($D2F3)    to  free  any  buffer 
Terminate  routine  with  an  RTS. 

Get  a  free  buffer  number:    .Y=channel  # 
If  successful,   initialize  JOBS  &  LSTJOB 
and  return  with  buffer  number  in  .A. 
If  not  successful,    .A  =  $FF;   N  flag  set. 
Save  channel  number  by  transferring  it 
from   .Y  to   .A  and  pushing  it  on  the 
stack . 

Load   .Y  with  $01  and  JSR  to  FNDBUF 
($D2BA)    to  find  a  free  buffer    (#  in   .X) . 
If  one  is  found,   branch  to  GBFl, 
Decrement   .Y  and  JSR  to  FNDBUF  ($D2BA) 
to  find  a  free  buffer    (#  in   .X).    If  one 
found,  branch  to  GBFl. 
Can't  find  a  free  one  so  let's  try  to 
steal  one!   JSR  to  STLBUF 
to  steal  an  inactive  one 
buffer  #   in   .A  so  transfer  it  to  .X 
we  didn't  get  one,  branch  to  GBF2. 
V7ait  till  any  job  using  JOBS,X    ($00, X) 
is  completed. 

Clear  the  job  queue  by  setting  JOBS,X 
($00, X)    and  LSTJOB, X    ($025B,X)    to  the 
current  drive  number  using  the  value 
from  DRVNUM    ($7F) . 

Transfer  the  buffer  number  from   .X  to  .A 
multiply  it  by  two    (ASL) ,   and  transfer 
the  result  to  .Y. 

Store  a  $02  on  BUFTAB,Y    ($0099, Y)    so  the 
pointer  points  beyond  the  track  and 
sector  link. 

Restore  the  original    .Y  value  from  the 
stack . 

Transfer  the  buffer  number  from   .X  to  .A 
to  set  the  N  flag  if  not  successful. 
Terminate  routine  with  an  RTS. 


($D339)  to  try 
On  return. 

If 
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FNDBUF 
FBI 


$D2BA 
$D2BC 


FB2 


FB3 
FRI20 


FREIAC 


FRIlO 


$D2C4 
$D2C7 
$D2C8 

$D2D1 
$D2D5 


$D2D8 
$D2D9 


$D2DA 
$D2DC 

$D2E0 

$D2E5 
$D2E9 


$D2ED 
$D2EE 

$D2F2 


Find  a  free  buffer  and  set  BUFUSE: 
On  entry:    .Y  =   index  into  BUFUSE 

Y=0  buffers  0-7;   Y=l  buffers  8-15 
If  successful,    .X  =  buffer  number 
If  not  successful,    .X  =  $FF;  N  flag  set 
Load   .X  with  $07    (for  bit  test) 
Load   .A  with  BUFUSE, Y    ($024F,X) .  Each 
bit  indicates  whether  a  buffer  is  free 
(1)    or  in  use    (0).     AND  this  value  in  .A 
with  the  bit  mask,   BMASK,X  ($EFE9,X). 
Each  of  these  masks  has  just  one  bit 
set.    If  the  result  of  the  AND  is  $00, 
we  have  found  a  free  buffer  so  branch 
to  FB2. 

Decrement   .X  to  try  next  buffer.   If  any 
left,  branch  back  to  FBI. 
No  more  buffers  to  try    (.X=$FF)    so  exit 
with  an  RTS. 

Found  a  free  buffer  so  let's  grab  it! 
Load   .A  with  the  value  in  BUFUSE, Y 

($024F,Y),   EOR  it  with  the  bit  map  for 
the  free  buffer,   BMASK,X    ($EFE9,X),  and 
store  the  result  back  in  BUFUSE, Y. 
Transfer  the  buffer  number  from  .X  to 

.A  and  if   .Y  is  $00,   branch  to  FB3 . 
Since   .Y  is  $01    (never  happens  on  the 
1541) ,  we  have  to  add  8  to  the  buffer 
number.   So:   Clear  the  carry  flag  and  add 
$08  to  the  buffer  number  in  .A. 
Transfer  the  buffer  number  from   .A  to  .X 
Terminate  routine  with  an  RTS. 

Free  the  inactive  buffer: 

Load  .X  with  the  current  channel  number 

from  LINDX    ($82)  . 

Load   .A  with  the  buffer  number  from 
BUFO,X    ($A7,X).    If  bit  7  is  set,  branch 
to  FRIIO. 

Transfer  the  channel  number  from  .X  to 
.A,   clear  the  carry  flag,   add  $07  (the 
maximum  number  of  channels  +1),  and 
transfer  the  result  back  into  .X.  This 
is  the  alternate  buffer  for  this  channel 
Load   .A  with  the  buffer  number  from 
BUFO,X    ($A7,X).    If  bit  7   is  NOT  set, 
this  buffer  is  active  too  so  exit  to 
FRI20    (above) . 

Compare  the  buffer  number  to  $FF.    If  it 
is  $FF,   the  buffer  is  free  already  so 
exit  to  FRI20    (above) . 
Save  the  buffer  number  on  the  stack. 
Free  the  buffer  by  storing  $FF  into 
BUFO ,X    ($A7 ,X) . 

Pull  the  buffer  number  off  the  stack. 
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FREBUF 


FREBl 


$D2F3 


$D2F7 
$D2F9 


CLRCHN 
CLRCl 


CLDCHN 
CLSD 


$D307 
$D30B 
$D30E 
$D312 

$D313 
$D317 


$D320 

$D324 
$D327 

$D32B 

$D331 
$D334 

$D338 


Free  buffer  in  BUFUSE: 

AND  the  buffer  number  with  $0F  to  mask 
off  any  higher  order  bits,   transfer  the 
result  into   .Y  and  increment   .Y  by  1. 
Load   .X  with  $10    (#16)    2*8  bits 
Loop  to  ROR  BUFUSE+1    ($0250)    and  BUFUSE 
($024F)    16  times.   Use   .Y  to  count  down 
to  0.   When   .Y  is  zero,   the  bit  that 
corresponds  to  the  buffer  we  want  is 
in  the  carry  flag  so  we  clear  the  carry 
bit  to  free  that  buffer.  We  then  keep 
looping  until   .X  has  counted  down  all 
the  way  from  $10  to  $FF.  When   .X  reaches 
$FF,   the  bits  are  all  back  in  the  right 
places,    so  exit  with  an  RTS. 


Clear  all  channels  except  the  CMD  one: 
Set  the  current  secondary  address  in  SA 
($83)    to  $0E  (#14) 

JSR  to  FRECHN    ($D227)    to  free  the 
channel  whose  secondary  address  is  SA 
Decrement  the  value  in  SA    ($83) .    If  it 
is  not  $00,  branch  back  to  CLRCl. 
Terminate  routine  with  an  RTS. 


Close  all  channels  except  the  CMD  one: 
Set  the  current  secondary  address  in  SA 
($83)    to  $0E  (#14) 

Load   .X  with  the  secondary  address  from 
SA    ($83)    and  use  it  as  an  index  to  load 
•A  with  the  channel  number  from  LINTAB,X 
($022B,X).   Compare  the  channel  number 
with  $FF;   if  equal,   no  channel  has  been 
assigned  so  branch  to  CLD2. 
AND  the  channel  number  with  $3F  to  mask 
off  the  higher  order  bits  and  store  the 
result  in  LINDX    ($82)    as  the  current 
channel  number. 

JSR  to  GETACT  to  get  the  active  buffer 
number  for  this  channel    (returned  in  .A) 
Transfer  the  buffer  number  to   .X  and 
use  it  load   .A  with  the   last  job  number 
for  this  buffer  from  LSTJOB,X    ($025B,X) . 
AND  the   last  job  number  with  $01  and 
compare  it  with  the  current  drive  number 
in  DRVNUM    ($7F) .    If  not  equal,   branch  to 
CLD2  . 

JSR  to  FRECHN    ($D227)    to  free  this 
channe 1 . 

Decrement  the  secondary  address  in  SA 
($83)    and  if  there  are  more  to  do  (not 
$FF  yet) ,   branch  back  to  CLSD 
Terminate  routine  with  an  RTS. 
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STLBUF 
STL05 


STLIO 


$D339 
$D33E 
$D340 

$D344 
$D348 


STL20 


STL30 


STL40 


$D34D 
$D355 

$D35A 

$D35E 
$D360 

$D363 


$D367 

$D36B 
$D36F 


Steal  an  inactive  buffer: 
Scan  the  least  recently  used  table  and 
steal   the  first  inactive  buffer  found. 
Returns  the  stolen  buffer  number  in  .A 
Save  the  value  in  TO    ($6F)    on  the  stack 
and  zero   .Y   (the  index  to  LRUTBL) . 
Load   .X    (the  channel   index)   with  the 
value  from  LRUTBL, Y    ($FA,Y) . 
Load   .A  with  the  buffer  status  for  this 
channel   from  BUFO,X    ($A7,X).    If  this 
buffer  is  active    (status  <   128) ,  branch 
to  STLIO. 

Compare  the  status  to  $FF    (unused) .  If 
not  equal,   it's  inactive  so  branch  to 
STL3  0  to  steal  it! 

Transfer  the  channel  number  from   .X  to 
.A,  clear  the  carry  flag,   add  $07  (the 
maximum  number  of  channels  +1),  and 
transfer  the  result  back  into   .X.  Note 
.X  now  points  to  the  alternative  buffer 
for  this  channel. 

Load   .A  with  the  buffer  status  for  this 
channel   from  BUF0,X    ($A7,X).    If  this 
buffer  is  active    (status   <   128) ,  branch 
to  STL3  0. 

Increment  .Y  and  compare  the  new  value 
with  #$05    (the  maximum  number  of 
channels  +1).   If  there  are  still  some 
channels  left  to  check,  branch  to  STL05 
No  luck  stealing  a  buffer  so  load  .X 
with  $FF   (indicates  failure)   and  branch 
to  STL6  0  to  exit. 

Store  the  channel  number    (in   .X)  into 
TO    ($6F)  temporarily. 

AND  the  buffer  number  in   .A  with  $3F  to 
mask  off  any  higher  order  bits  and 
transfer  the  result  to  .X. 
Check  if  the  buffer  is  being  used  for 
a  job  currently  underway  by  loading  .A 
with  the  job  queue  byte  for  the  buffer 
from  JOBS,X    ($00, X).    If  bit  7  is  set, 
a  job  is  in  progress  so  branch  back  to 
STL40  to  wait  for  completion. 
Compare  the  job  queue  value  with  $02  to 
see  if  any  errors  occurred.    If  there 
were  no  errors    (job  queue  was  $01) , 
branch  to  STL50  to  steal  the  buffer. 
No  luck  so  load   .X  with  the  value  we 
save  into  TO    ($6F)    and  compare  it  to 
$07    (the  maximum  number  of  channels+1). 
If   .X  <  $07  we  still  need  to  check  the 
alternative  buffer  for  this  channel  so 
branch  to  STLIO. 
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STL50 


STL60 


FNDLDX 
FNDIO 


FND30 


GBYTE 


GET 


$D371 
$D373 

$D37A 


$D37F 
$D383 

$D388 

$D38E 
$D391 

$D399 

$D39B 
$D39E 
$D3A1 
$D3A4 

$D3A9 

$D3AA 


If   .X  >=   $07,  we  were  checking  the 
alternative  channel   so  branch  back  to 
STL20  to  check  the  next  channel. 
We've  found  an  inactive  buffer,   now  to 
steal  it! 

Load  .Y  with  the  channel  number  from  TO 
($6F)  and  store  $FF  into  BUFO,Y  ($A7,Y) 
to  steal  it. 

Pull   the  original  value  of  TO  off  the 
stack  and  restore  it.   Transfer  the 
buffer  number  from   .X  to   .A   (sets  the 
N  flag  if  not  successful)    and  terminate 
routine  with  an  RTS. 

Find  free  LINDX  and  allocate  in  LINUSE 
Load   .Y  with  $00  and   .A  with  $01, 
Test  whether  the  same  bit  is  set  in 
LINUSE    ($0256)    and  the  accumulator.    If  a 
bit   is  set  in  LINUSE,   the  corresponding 
channel   is  free.    If  the  test  indicates  a 
free  channel,   branch  to  FND30. 
Increment   .Y    (the  counter)    and  do  an  ASL 
on  the  value  in  the  accumulator  to  shift 
the  test  bit  one  place   left.    If  more 
tests  are  needed,   branch  to  FNDIO. 
No  channel   found  so  load   .A  with  $70  to 
to  indicate  a  NO  CHANNEL  error  and  JMP 
to  CMDERR    ($C1C8) . 

EOR  the  bit  mask  (in  .A)  with  $FF  to 
flip  the  bits,  AND  the  flipped  mask  with 
LINUSE  to  clear  the  appropriate  bit,  and 
store  the  result  back  in  LINUSE  ($0256) . 
Transfer  the  channel  number  (LINDX)  from 
.Y  to   .A  and  exit  with  an  RTS. 

Get  next  byte  from  a  channel: 

JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 

read  channel . 

JSR  to  SETLDS    ($C100)    to  turn  on  the 
drive  active  light. 

JSR  to  GET    ($D3AA)    to  get  one  byte  from 
any  type  of  file. 

Load   ,X  with  the  current  channel  number 
from  LINDX    ($82)    and  load   .A  with  the 
data  byte  from  CHNDAT,X    ($023E) . 
Terminate  routine  with  an  RTS. 

Get  next  byte  from  any  type  of  file: 
Load   .X  with  the  current  channel  number 
from  LINDX    ($82)    JSR  to  TYPFIL  ($D125) 
to  determine  the  file  type.    If  Z  flag 
not  set  on  return,    this  is  not  a 
relative  file  so  branch  to  GETOO. 
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GETOO 


GETO 


GETl 


GET2 


RNDGET 


RNGETl 
RNGET2 
RNGET4 


$D3B1 
$D3B4 

$D3BA 

$D3C0 
$D3C3 
$D3C7 


$D3CE 


$D3D2 
$D3D3 


$D3D7 

$D3DE 
$D3E1 


$D3E8 

$D3EC 

$D3EE 

$D3F0 
$D3F3 


It  is  a  relative  file  so  JMP  to  RDREL 
($E120)    to  do  this  type. 
Test  if  the  current  secondary  address 
from  SA    ($83)    is  $0F    (the  CMD  channel) . 
If  it  is,   branch  to  GETERC  ($D414). 
Test  if  the  last  character  we  sent  on 
this  channel  was  an  EOI  by  checking  if 
the  channel   status  in  CHNRDY,X  ($F2,X) 
is  $08.    If  the  last  character  was  NOT 
an  EOI,   branch  to  GETl. 

Last  character  was  EOI   so  JSR  to  TYPFIL 
($D125)    to  determine  the  file  type. 
If  the  file  type  is  NOT  $0  7,   a  random 
access  file,   branch  to  GETO. 
This  is  a  direct  access  file  so  we  will 
leave  it  active.   Store  an  $89  (random 
access  file  ready)    as  the  channel  status 
in  CHNRDY,X    ($F2,X)    and  exit  with  a 
JMP  to  RNDGET    ($D3DE)    to  get  the  next 
character  ready. 

Last  character  sent  was  EOI  so  set  the 
channel   status  as  NOT  READY  by  storing 
a  $00   in  CHNRDY,X  ($F2,X). 
Terminate  routine  with  an  RTS. 
Test  if  this  is  a  LOAD  by  testing  if 
the  secondary  address  in  SA    ($83)    is  a 
$00.    If  it  is  a  LOAD,   branch  to  GET6 . 
It's  not  a  LOAD.   Maybe  it's  a  random 
access  file.   JSR  to  TYPFIL    ($D125)  to 
determine  the  file  type.   If  the  file 
type  is   less  than  $04,   it  is  NOT  a 
random  access  file,   so  branch  to  SEQGET. 
It  is  a  random  access  file  so  JSR  to 
GETPRE    ($D12F)    to  set  up  the  right 
pointers  in   .X  and  .Y. 

Load  the  pointer  to  the  data  byte  into 
.A  from  BUFTAB,X    ($99, X).   Compare  this 
value  to  the  pointer  to  the  last 
character  pointer  in  LSTCHR,Y    ($0244, Y) 
to  see  if  we  are  up  to  the  last  one  yet. 
If  not,   branch  to  RNGETl. 
We're  at  the  last  character  so  wrap  the 
pointer  around  to  the  start  again  by 
storing  $00   in  BUFTAB,X    ($99, X). 
Increment  BUFTAB,X    ($99, X)    to  point  to 
the  next  character. 
Load   .A  with  the  data  byte  from 
BUFTAB,X    ($99, X) . 

Save  the  data  byte  in  CHNDAT,Y  ($023E,Y) 
Load  the  pointer  from  EUFTAB,X  and 
compare  it  to  the  value  in  LSTCHR,Y 
($0244, Y)    to  see  if  this  is  the  last 
character  we're  supposed  to  get.    If  NOT, 
branch  to  RNGET3 . 


296 


NAME 


ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


RNGET3 
SEQGET 

GET3 


GET  6 


GETERC 


GEIC 


GE15 


GE20 
GE30 


$D3FA 


$D3FF 
$D400 

$D403 


$D408 
$D409 


$D40E 

$D414 

$D41B 
$D421 
$0428 
$D42D 


$D433 
$D43A 

$D43F 

$D443 
$D445 


Since  this  is  the  last  character,  set 
the  channel   status  in  CHNRDY,Y  to  $00 
to  indicate  an  EOI    (end  of  information) . 
Terminate  routine  with  an  RTS . 
JSR  to  RDBYT    ($D156)    to  read  the  next 
data  byte. 

Load   .X  with  the  channel   number  from 
LINDX    ($82)    and  store  the  data  byte  in 
CHNDAT,X    ($00F2,X)  . 
Terminate  routine  with  an  RTS. 
Seems  to  be  a  LOAD.   Test  if  it  is  a 
directory  listing  by  seeing  if  DIRLST 
($0254)    is  a  $00.    If  it  is,   this  is  not 
a  directory  listing  so  branch  to  SEQGET. 
It  is  a  directory  listing  so  JSR  to 
GETDIR   ($ED67)    to  get  a  byte  from  the 
directory  and  then  JMP  to  GET3 . 

Get  byte  from  the  error  channel: 

JSR  to  GETPNT    ($D4E8)    to  read  the  active 

buffer  pointer.    If  the  buffer  number  is 

NOT  $D4,    lo  byte  of  the  pointer  to  one 

byte  below  error  buffer,  branch  to  GEIO. 

Check  if  DIRBUF+1    ($95)    equals  $02,  the 

hi  byte  of  the  pointer  to  the  error 

buffer.    If  not,   branch  to  GEIO. 

Store  a   $0D    (#13;    RETURN)    in  DATA  ($85) 

and  JSR  to  ERROFF    ($C123)    to  turn  off 

the  error  LED. 

Load   .A  with  $C0  and  JSR  to  ERRTSO 
($E6C1)    to  transfer  the  error  message 
to  the  error  buffer. 

Decrement  CB+2    ($A5)    so  this  pointer 
points  to  the  start  of  the  message, 
l.O-ad --.JV  watJi!-_$fiO-.  U^QJ- out  .sJra-tn.s-) aniS. 
branch    (always!)    to  GE30. 
JSR  to  GETBYT    ($D137)    to  read  a  byte 
of  the  error  message.   Store  the  b^^te  in 
DATA    ($85)    and,    if  not  $00,   branch  to 
GE20 . 

Load   .A  with  $D4,   the   lo  byte  cf  the 
pointer  to  one  byte  below  the  error 
buffer  and  JSR  to  SETPNT    ($D4C8)    to  set 
the  pointers  to  the  error  buffer. 
Store  the  hi  byte  of  the  pointer  to  the 
error  buffer    ($02)    into  BUFTAB+1,X 
($9A,X) . 

Load   .A  with  $88,   the  channel  status 
byte  for  ready-to-talk. 
Store  the  value  in   .A  as  the  error 
channel   status   in  CHNRDY+ERRCHN  ($F7). 
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NXTBUF 


NXTBl 


DRTRD 


DRTWRT 
DRT 


OPNIRD 


OPNTYP 


$D447 


$D44C 


$D44D 

$D452 
$D456 

$D45A 

$D45F 
$D460 


$D464 
$D466 


$D46B 


$D470 


$D475 


$D477 
$D47A 


Load   .A  with  the  byte  from  DATA  ($85) 
and  store  it  as  the  channel  data  byte 
for  the  error  channel   in  CHNDAT+ERRCHN 
($0243)  . 

Terminate  routine  with  an  RTS. 


Read  in  the  next  block  of  a  file  by 
following  the  track  and  sector  link. 
Set  an  EOF    (end  of  file)    indicator  if 
the  track  link    (first  byte)    is  $00. 
JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (in   .A).   Multiply  the 
buffer  number  by  2    (ASL)    and  transfer  it 
to   .  X . 

Store  a  $00  in  BUFTAB,X    ($99, X)    to  set 
the  buffer  pointer  to  the  first  byte. 
Check  first  byte    (track  link)    in  the 
buffer,    (BUFTAB,X) .    If  it  is  zero,  there 
are  no  more  blocks  to  get  so  branch  to 
NXTBl . 

Decrement  the  buffer  pointer,  BUFTAB,X 
($99, X)    by  1  so  it  is  $FF  and  JSR  to 
RDBYT    ($D156) .   This  forces  a  read  of  the 
next  sector  because  we  set  the  pointer 
to  the  end  of  the  current  buffer. 
Terminate  routine  with  an  PTS. 


Direct  block  read: 

Load  .A  with  $80,  the  job  code  for  read 
and  branch  to  DRT. 


Direct  block  write: 

Load   .A  with  $90,   the  job  code  for  write 
OR  the  job  code  in   .A  with  the  current 
drive  number  in  DRVNUM    ($7F)    and  store 
the  result   in  CMD    ($024D)  . 
Load   .A  with  the  number  of  the  buffer 
to  use  for  the  job  from  JOBNUM    ($F9)  and 
JSR  to  SETH    ($D6D3)    to  set  up  the  header 
image  for  the  job. 

Load   .X  with  the  number  of  the  buffer 
to  use  for  the  job  from  JOBNUM    ($F9)  and 
JMP  to  D0IT2    ($D593)    to  do  the  job. 


Open  internal  read  channel:  (SA=17) 
Use  this  entry  point  for  PRG  files. 
Load   .A  with  $01    (program  file  type) 


Open  internal  read  channel    (.A=any  type) 
Use  this  entry  point  for  any  file  type. 
Store  file   type    (.A)    into  TYPE  ($024A) 
Store  $11    (#17)    as  the  current  secondary 
address  in  SA    ($83 )  . 
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OPNIWR 


NXDRBK 


NXDBl 


SETPNT 


$D47E 
$D481 

$D486 
$D48A 

$D48D 
$D490 

$D497 

$D49B 
$D49E 
$D4A1 

$D4A6 

$D4AB 

$D4B0 
$D4B3 
$D4B6 


$D4BB 
$D4C0 

$D4C3 


$D4C8 


JSR  to  OPNRCH    ($DC4  6)    to  open  a  read 
channe 1 . 

Set  .A  to  $02  and  JMP  to  SETPNT  ($D4C8) 
to  set  the  buffer  pointer  to  point  past 
the  track  and  sector  link. 

Open  internal  write  channel  (SA=18) 
Store  $12    (#18)   as  the  current  secondary 
address  in  SA    ($83)  . 

JMP  to  OPNWCH    ($DCDA)    to  open  the  write 
channe 1 . 

Allocate  the  next  directory  block: 
JSR  to  CURBLK    ($DE3B)    set  the  TRACK ($80) 
and  SECTOR    ($81)    values  from  the  current 
header . 

Set  TEMP    ($6F)    to  $01  and  save  the 
current  value  of  SECINC    ($69)  ,  the 
sector  increment  used  for  sequential 
files,   on  the  stack. 

Set  the  sector  increment,   SECINC  ($69) 
to  $03,   the  increment  used  for  the 
directory  track. 

JSF  to  NXTDS    ($F12D)    to  determine  the 
next  available  track  and  sector. 
Restore  the  original  sector  increment 
in  SECINC    ($69)    from  the  stack. 
Set   .A  to  $00  and  JSR  to  SETPNT  ($D4C8) 
to  set  the  pointer  to  the  first  byte  in 
the  active  buffer    (track  byte). 
Load   .A  with  the  next  track  from  TRACK 
($80)    and  JSR  to  PUTBYT    ($CFF1)  to 
store  the  track  link  in  the  buffer. 
Load   .A  with  the  next  sector  from  SECTOR 
($81)    and  JSR  to  PUTBYT    ($CFF1)  to 
store  the  sector  link  in  the  buffer. 
JSR  to  WRTBUF    ($D0C7)    to  write  the 
buffer  out  to  disk. 

JSR  to  WATJOB    ($D599)    to  wait  until  the 
write  job  is  complete. 

Set   .A  to  $00  and  JSR  to  SETPNT  ($D4C8) 
to  set  the  pointer  to  the  first  byte  in 
the  active  buffer    (track  byte). 
Loop  to  zero  the  entire  buffer. 
JSR  to  PUTBYT    ($CFF1)    to  store  $00  as 
the  next  track  link. 
Load   .A  with  $FF  and  JMP  to  PUTBYT 
($CFF1)    to  store  $FF  as  the  sector  link. 


Set  up  pointer  into  active  data  buffer 
On  entry:    .A  contains  new  pointer  value 
Save  the  new  pointer   (in  .A)    into  TEMP 
($6F)    and  JSR  to  GETACT    ($DF93)    to  find 
the  active  buffer  number    (in  .A). 
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FREICH 


GETPNT 


SETDIR 


DRDBYT 


SETLJB 


$D4CD 
$D4CF 
$D4D3 

$D4D9 

$D4DA 

$D4E1 

$D4E8 

$D4EB 
$D4ED 

$D4F1 

$D4F5 

$D4F6 
$D4F8 
$D4FB 

$D501 
$D505 

$D506 


Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  the  result  into  .X. 
Move  the  high  byte  of  the  buffer  pointer 
from  BUFTAB  +  1,X    ($9A,X)    to  DIRBUF  +  1  ( $95 ) 
Load  the  new  buffer  pointer  value  from 
TEMP    ($6F)    into   .A.   Store  this  new  value 
into  BUFTAB,X    ($99, X)    and  DIRBUF  ($94). 
Terminate  routine  with  an  RTS. 


Free  both  internal  channels:  (SA=17&18) 
Set  SA    ($83)    to  $11    (#17)    the  internal 
read  channel  and  JSR  to  FRECHN  ($D227) 
to  free  the  internal   read  channel. 
Set  SA   ($83)    to  $12    (#18)    the  internal 
write  channel  and  JMP  to  FRECHN  ($D227) 
to  free  the  internal  write  channel. 


Get  the  active  buffer  pointer: 

JSR  to  GETACT    ($DF93)    to  get  the  active 

buffer  number    (in   .A) . 

Multiply  the  buffer  number  by  two  (ASL) 
and  transfer  the  result  into  .X. 
Move  the  hi  byte  of  the  buffer  pointer 
from  BUFTAB+1,X    ($9A,X)    into  the  hi 
byte  of  the  directory  buffer  pointer 
DIRBUF  +  l    ($95)  . 

Move  the  lo  byte  of  the  buffer  pointer 
from  BUFTAB,X    ($99, X)    into  the   lo  byte 
of  the  directory  buffer  pointer  DIRBUF 
($94).      {.A  =   lo  byte  of  the  pointer) 
Terminate  routine  with  an  RTS. 


Direct  read  of  a  byte:    (.A  =  position) 

On  entry:. A  =  position  of  byte  in  buffer 

On  exit:. A  =  data  byte  desired 

Store  lo  byte  of  pointer  to  desired  byte 

(in    .A)    into  TEMP  +  2    ($71)  . 

JSR  to  GETACT    ($DF93)    to  get  the  active 

buffer  number    (in   .A) . 

Transfer  buffer  number  into   .X  and  load 
.A  with  the  hi  byte  of  the  active  buffer 
pointer  from  BUFIND,X    ($FEEO,X).  Store 
this  value  into  TEMP  +  3    ($72)  .  This 
creates  a  pointer  to  the  byte  in  $71/72. 
Zero   .Y  and  load   .A  with  the  desired 
byte  from    (TEMP+2) ,Y;    ($71) ,Y. 
Terminate  routine  with  an  RTS. 


Set  up  job  using  last  job's  drive: 

NOTE:    For  this  entry,    job  code   is   in  CMD 

and   .X  is  buffer  number    (job  #) 
Load   .A  with  previous  job  number  from 
LSTJOB,X    ($025B,X) ,   AND  the  job  number 
with  $01  to  leave  just  the  drive  number 
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SETJOB 


SJB2 
SJB3 


$D50E 

$D511 

$D514 
$D519 

$D51D 

$D522 
$D523 
$D525 

$D52B 
$D52D 

$D530 
SD535 
$D538 


bits,   and  OR  the  result  with  the  new 
job  code  on  CMD    ($024D) .   The  resulting 
new  job  code  is  in  .A. 

Set  up  new  job: 

NOTE:   For  this  entry,   job  code  is  in  .A 

and   .X  is  buffer  number    (job  #) 
Save  new  job  code  on  the  stack  and  store 
the  number  of  the  buffer  to  use    (,X)  in 
JOBNUM    ($F9) . 

Transfer  the  buffer  number  from   .X  to 
.A,   multiply  it  by  2    (ASL)    and  transfer 
it  back  into  .X. 

Move  the  desired  sector  from  HDRS+1,X 
($07, X)    into  CMD    ($024D) . 
Load   .A  with  the  desired  track  from 
HDRS,X    ($06, X) .    If  it  is  $00,   branch  to 
TSERR    {$D54A) . 

Compare  the  desired  track    (in   .A)  with 
the  maximum  track  number  from  MAXTRK 
($FED7).    If  it  is  too  large,   branch  to 
TSERR    ($D54A) . 

Transfer  the  desired  track  number  from 
.A  to  .X. 

Pull  the  job  code  off  the  stack  and 
immediately  push  it  back  onto  the  stack. 
AND  the  job  code  in   .A  with  $F0  to  mask 
off  the  drive  bits  and  compare  it  to  $90 
(the  job  code  for  a  write) .    If  this  is 
not  a  write  job,   branch  to  SJBl . 
Pull  the  job  code  off  the  stack  and 
immediately  push  it  back  onto  the  stack. 
Do  an  LSR  on  the  job  code  in   .A  to 
find  the  drive  to  use.    If  it  is  drive  1, 
branch  to  SJB2. 

Use  drive  0  so  load  DOS  version  from 
DSKVER    ($0101)    and  branch  to  SJB3 . 
Use  drive  1  so  load  DOS  version  from 
DSKVER+1    ($0102)  . 

If  DOS  version  is  $00  (no  number) ,  it  is 
OK,   so  branch  to  SJB4 . 

NOTE:   On  the  1541  the  DOS  version  code 
(normally  65)    is  stored  in  ROM, 
not   in  RAM  as  on  the  4040.  This 
means  you  can  not  soft  set  a 
DOS  version  number  on  the  1541! 
However,   a  DOS  version  number  of 
$00   is  OK. 
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SJB4 


TSERR 


TSERl 


HED2TS 


TSCHK 


VNERR 


SJBl 


$D53A 


$D53F 


$D54A 
$D54D 

$D552 

$F556 
$F55A 
$F55E 

$D55F 
$D563 

$D568 

$D571 

$D572 
$D575 

$D57A 

$D57C 
$D57D 


Compare  the  DOS  version  number  with  the 
1541  DOS  version  number    ($65)  from 
VERNUM    ($FED5).    If  the  version  num.bers 
do  not  match,   branch  to  VNERR  ($D572). 
Transfer  the  desired  track  number  from 
.X  to   .A  and  JSR  to  MAXSEX    ($F24B)  to 
calculate  the  maximum  sector  number+1 
for  this  track    (returned  in   .A).  Compare 
this  value  with  the  desired  sector 
number  in  CMD.    If  the  desired  sector 
number  is   legal,   branch  to  SJBJ . 
Track  and/or  sector  number  is   illegal  so 
JSR  to  HED2TS    ($D552)    to  store  the 
values   in  TRACK    ($80)    and  SECTOR    ($81) . 
Load   .A  with  $66  to  indicate  a  bad  track 
and  sector  and  JMP  to  CMDER2    ($E645) . 


Set  desired  track  and  sector  values: 
Load   .A  with  the  number  of  the  buffer  to 
use  for  this  job  from  JOBNUM    ($F9) . 
Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  it  to  .X. 
Move  the  desired  track  number  from 
HDRS,X    ($06, X)    to  TRACK  (SBO). 
Move  the  desired  sector  number  from 
HDRS+1,X    ($07, X)    to  SECTOR  ($81). 
Terminate  routine  with  an  RTS. 

Check  for  bad  track  and  sector  values: 
Load   .A  from  TRACK    ($80) .    If  the  track 
is  $00,   branch  back  to  TSERl  ($D54D). 
Compare  the  track  to  the  maximum  track 
number  allowed,   MAXTRK    ($FED7) .    If  too 
large,   branch  back  to  TSERl. 
JSR  to  MAXSEC    ($F24B)    to  calculate  the 
maximum  sector  number  allowed  on  this 
track.    If  too  large,   branch  to  TSERl. 
Terminate  routine  with  an  RTS, 


Bad  DOS  version  number: 
JSR  to  HED2TS    ($D552)    to  Store  the 
values   in  TRACK    ($80)    and  SECTOR   ($81) . 
Load   .A  with  $73   to  indicate  a  bad  DOS 
version  number  and  JMP  to  CMDER2  ($E645) 


Conclude  job  set  up: 

Load   .X  with  the  number  of  the  buffer  to 
use  for  the  job  from  JOBNUM    ($F9) . 
Pull   the  job  code  off  the  stack. 
Store  the  job  code  as   the  current 
command  in  CMD    ($024D) ,    in  the  job  queue 
at  JOBS,X    (SOO,X)    to  activate  the  disk 
controller,   and  in  LSTJOB,X, 
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DOREAD 


DOWRIT 
DOJOB 


DOIT 
D0IT2 


WATJOB 


TSTJOB 


TJIO 


$D585 


$D586 


$D58A 
$D58C 

$D58E 

$D590 
$D593 
$D596 


$D599 

$D59C 
$D59E 
$D59F 

$D5A4 
$D5A5 


$D5A6 
$D5A8 
$D5AA 

$D5AE 

$D5B2 

$D5B6 

$D5BA 


Terminate  routine  with  an  RTS. 


Do  a  read  job;   return  when  done  OK: 
Load   .A  with  $80,   the  read  job  code  and 
branch  to  DOJOB. 


Do  a  write  job;   return  when  done  OK: 
Load   .A  with  $90,   the  write  job  cede. 
OR  the  job  code  with  the  current  drive 
number  in  DPVNUM    {$7F)  . 

Load   .X  with  the  number  of  the  buffer  to 
use  for  the  job  from  JOBNUM    ($F9) . 
Store  complete  job  code  in  CMD    ($024D) . 
Lead   .A  with  job  code  from  CMD    ($024D) . 
JSR  to  SETJOB    ($D50E)    to  start  job. 


Wait  until   job  is  completed: 

JSR  to  TSTJOB    ($D5A6)    to  check   if  job 

is  done  yet    (error  code  returned  in   .A) . 

If  job  not  done  yet,   branch  to  WATJOB. 

Save  error  cede  on  the  stack. 

Set  job  completed  flag,   JOBRTN    ($0298) , 

to  $00. 

Recover  error  code  from  stack    (in  .A). 
Terminate  routine  with  an  RTS. 


Test  if  job  done  yet: 

If  not  done,   return.    If  done  OK,  then 
return.    If  not  OK,   redo  the  job. 
Load   .A  with  value  from  the  job  queue, 
JOBS,X    ($00, X) . 

If   .A  >  127,   job  not  done  yet   so  branch 
to  NOTYET  to  exit  with  carry  flag  set. 
If   .A  <   2,   job  was  completed  with  no 
errors  so  branch  to  OK  to  exit  with  the 
carry  flag  clear. 

Compare  the  error  code  to  $08.    If  it  is 
$08,   a  fatal  write  protect  error  has 
occured  so  branch  to  TJIO  and  abort. 
Compare  the  error  code  to  $0B.    If  it  is 
$0B,   a  fatal   ID  mismatch  error  has 
occured  so  branch  to  TJIO  and  abort. 
Compare  the  error  code  to  $0F.    If  it  is 
NOT  $0F,   a  non-fatal  error  has  occured 
so  branch  to  RECOV  and  try  again. 
NOTE:   an  error  code  of  $0F  means  a  fatal 

drive-not-available  error  has  occured. 
Test  bit   7  of  the  job  return  flag, 
JOBRTN    ($0298) .    If  it  is  set,   the  disk 
has  been  initialized  and  this  is  the 
first  attempt  to  carry  out  the  job,  so 
branch  to  OK  to  return  with  the  carry 
flag  clear. 
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OK 

NOTYET 
RECOV 


RECOl 


RECO 


RECl 


$D5BF 
$D5C2 

$D5C4 

$D5C6 

$D5CB 


$D5D2 
$D5D9 


$D5E0 
$D5E3 


$D5E9 
$D5ED 


$D5F4 


$D600 
$D606 

$D60D 
$D613 


JMP  to  QUIT2    ($D63F)    to  try  to  recover. 
Clear  the  carry  flag  and  terminate  the 
routine  with  an  RTS. 

Set  the  carry  flag  and  terminate  the 
routine  with  an  RTS. 

Save  .Y  value  and  the  current  drive 
number  from  DRVNUM  ($7F)  on  the  stack. 
Load  the  job  code  for  the  last  job  from 
LSTJOB,X  ($025B,X) ,  AND  it  with  $01  to 
mask,  off  the  non-drive  bits,  and  store 
the  result  as  the  current  drive  number 
in  DRVNUM    ($7F) . 

Transfer  the  drive  number  from   .A  to  .Y 
and  move  the  LED  error  mask  from 
LEDMSK,Y    ($FECA,Y)    to  ERLED  ($026D) 
JSR  to  DOREC    ($D6A6)    to  do  last  job 
recovery.  On  return,   if  the  error  code 
(in   .A)    is  $01,    it  worked  so  branch  to 
RECOl . 

Retry  didn't  work,   JMP  to  REC95  ($D66D) 
Load   .A  with  the  original   job  code  from 
LSTJOB,X    ($025B,X) ,   AND  it  with  $F0  to 
mask  off  the  drive  number  bits,   and  save 
it  on  the  stack. 

Check  if  the  job  code  was  $90    (a  write 
job).    If  not,   branch  to  RECO. 
This  is  a  write  job.  OR  the  current 
drive  number  from  DRVNUM    ($7F)   with  $B8 
(the  job  code  for  a  sector  seek)  and 
store  the  result  in  LSTJOB,X    ($025B,X) . 
This  replaces  the  original  write  job 
with  a  seek  job  during  recovery. 
See  if  the  head  is  on  track  by  checking 
bit  6  of  REVCNT    (6A) .    If  this  bit  is 
set,   the  head  is  on  track  so  branch  to 
REC5  . 

Head  net  on  track  so  zero  the  offset 
table  pointer,   EPTR    ($0299)    and  the 
total  offset  TOFF    ($029A) . 
Load   .Y  with  the  offset  table  pointer 
EPTR    ($0299)    and   .A  with  the  total 
offset  TOFF    ($029A) . 

Set  the  carry  flag  and  subtract  the 
offset  OFFSET, Y    ($FEDB)    from  the  total 
offset  in   .A.   Store  the  result  as  the 
new  total  offset   in  TOFF    ($029A) . 
Load   .A  with  the  head  offset  from 
OFFSET, Y  and  JSR  to  HEDOFF    ($D676)  to 
move  the  head  so  it  is  on  track. 
Increment  the  offset   table  pointer  and 
JSR  to  DOREC    ($D6A6)    to  attempt  to 
recover.  On  return,   if  the  error  code 
in   .A  <   $0  2,   the  recovery  worked  so 
branch  to  REC3. 
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REC3 


REC5 


QUIT 


QUIT2 


REC7 
REC5 


REC8 


REC9 


REC95 


$D61D 

$D625 

$D631 
$D635 
$D63A 

$D63F 


$D644 
$D645 


$D64B 


$D651 
$D655 


$D65C 

$D661 
$D666 

$D66D 
$D670 


That  try  at  recovery  did  not  work  so 
increment  the  offset  table  pointer  by  1 
and   load   .A  with  the  offset  from 
OFFSET, Y    ($FEDB,Y) .    If  the  value  loaded 
is  not  $00,  branch  to  RECl  to  try  again. 
One  more  try  on  the  offset.  Load   .A  with 
the  total   offset   from  TOFF    ($029A)  and 
JSR  to  HEDOFF    ($D676) .    If  no  error  on 
return,  branch  to  REC9. 
Check  bit  7  of  the  error  recover  count 
REVCNT    ($6A) .    If  this  bit  is  clear, 
branch  to  REC7  to  do  a  bump  to  track  1. 
Pull  the  original  job  code  off  the 
stack.    If   it   is  NOT  $90    (a  write  job) 
branch  to  QUIT2. 

For  write  jobs  only,   OR  the  job  code  in 
•A  with  the  drive  number  from  DRVNUM 

and  put  the  result  in  LSTJOB,X  ($025B,X) 

to  restore  the  original  value. 

Load   .A  with  the  error  code  from  JOBS,X 
($00,X)    and  abort  with  a  JSR  to  ERROR 
($E60A) . 

Pull  the  job  code  off  the  stack   (in  .A) . 
Check  bit  7  of  the  job  return  flag 
JOBRTN    ($0298) .    If  this  bit  is  set, 
branch  to  REC95  to  exit  with  job  error. 
Push  the  job  code  back  onto  the  stack. 
Do  a  bump  to  track  1  by  loading   .A  with 
$C0    (BUMP  job  code) ,   ORing  it  with  the 
current  drive  number  from  DRVNUM    ($7F) , 
and  storing  the  result  in  the  job  queue 
at  JOBS,X    ($00, X)  . 

Wait  for  current  job  to  be  completed. 
JSR  to  DOREC    ($D6A6)    to  try  one  more 
time.   On  return,   if  the  error  code  (.A) 
is  not  $01    (no  error) ,  give  up  in 
disgust  and  branch  to  QUIT. 
Pull  the  original  job  code  off  the  stack 
and  compare  it  to  $90   (the  job  code  for 
a  write  job).   If  this  isn't  a  write  job, 
branch  to  REC95. 

OR  the  job  code  (in  .A)  with  the  drive 
number  from  DRVNUM  ($7F)  and  store  the 
value  in  LSTJOB,X. 

JSR  to  DOREC    ($D6A6)    to  try  one  last 
time.   On  return,   if  the  error  code  (.A) 
is  not  $01    (no  error) ,  give  up  in 
disgust  and  branch  to  QUIT2. 
Pull  the  original  drive  number  off  the 
stack  and  store  it  in  DRVNUM    ($7F) . 
Pull  the  original   .Y  value  off  the  stack 
and  restore  .Y. 
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HEDOFF 


HOFl 


H0F2 


H0F3 


MCVHED 


MHIO 


DOREC 


DORECl 


$D6  7  2 


$D676 
$D67A 
$D67C 

$D681 

$D686 
$D688 

$D68D 
$D692 


$D693 
$D694 

$D695 

$D697 
$D69A 


$D69F 

$D6A4 
$D6A5 

$D6A6 


$D6AB 


Load  .A  with  the  error  code  from  JOBS,X 
($00, X),  clear  the  carry  flag,  and  exit 
with  an  RTS . 


Adjust  head  offset: 
On  entry:    .A  =  OFFSET 

If   .A=0,   no  offset  required  so  branch 
to  H0F3, 

If   .A  >   127,   head  needs  to  be  stepped 
inward  so  branch  to  H0F2. 

We  want  to  move  head  outward  1  track  so; 
load   .Y  with  $01  and  JSR  to  MOVHED 
($D693)    to  move  the  head. 
On  return,   set  the  carry  flag  and 


.A. 


If 


;o : 


subtract  $01   from  the  value  in 
the  result  is  not  $00,   the  head  has  not 
finished  so  branch  back  to  HOFl. 
If  the  head  is  finished  moving,  branch 
to  H0F3. 

We  want  to  move  head   inward  1  track 
load   .Y  with  $FF  and  JSR  to  MOVHED 
{$D693)    to  move  the  head. 
On  return,   clear  the  carry  flag  and 
add  $01  to  the  value  in   .A.    If  the 
result   is  not   $00,   the  head  has  not 
finished  so  branch  back  to  H0F2. 
Terminate  routine  with  an  RTS. 


Step  head  inward  or  outward  1  track: 
Save  the  value   in   .A  onto  the  stack. 
Transfer  the  number  of  steps  to  move 
(phase)    from   .Y  into  .A. 
Load   .Y  with  the  current  drive  number 
from  DRVNUM    ($7F)  . 

Store  the  phase  into  PHASE, Y    ($02FE,Y) . 
Compare  the  phase  in   ,A  with  the  value 
in  PHASE, Y    ($02FE,Y) .    If  they  are  equal, 
the  controller  has  not  yet  moved  the 
head  so  branch  back  to  MHIO. 
Store  $00   in  PHASE, Y    ($02FE,Y)    so  head 
won't  move  any  more. 

Pull  original  value  of  .A  off  the  stack. 
Terminate  routine  with  an  RTS. 


Load   .A  with  the  retry  counter,  REVCNT 
($6A) ,   AND  it  with  $3F  to  mask  off  the 
high  order  bits,   and  transfer  the  result 
into  .Y. 

Load   .A  with  the  error  LED  mask  from 
ERLED    ($026D),   EOR  it  with  the  disk 
controller  port  B,   DSKCNT    ($1C00)  and 
store  it  back  in  DSKCNT    ($1C00)    to  turn 
the  drive   light  OFF. 
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D0REC2 


D0REC3 


SETHDR 


ADDFIL 


$D6B4 
$D6B9 


$D6C1 


$D6C4 
$D6C5 


$D6CE 
$D6CF 


$D6D0 
$D6D3 

$D6D5 
$D6DA 
$D6DF 


$D6E3 
$D6E4 
$D6F0 
$D6F4 


Restart   the   last   job  by  moving  the  job 
code  from  LSTJOB,X    ($0253, X)    to  the  job 
queue  at  JOBS,X    ($00, X). 

Loop  to  wait  until   the  value  in  the  job 
queue  at  JOBS,X    ($00, X)    is   less  than  127 
(indicates  job  has  been  completed). 
Test  to  see  if  the  error  code  returned 
is  $01    (successful).    If  everything  was 
OK,   branch  to  D0REC3 . 
It  didn't  work.   Decrement  the  error 
counter  in   .Y  and,    if   .Y  has  not  counted 
down  to  $00  yet,  branch  to  DORECl  and 
keep  trying. 

Save  the  error  code  onto  the  stack. 
Load   .A  with  the  error  LED  mask  from 
ERLED    ($026D) ,   OR  it  with  the  disk 
controller  port  B,   DSKCNT    ($1C00)  and 
store  it  back  in  DSKCNT    ($1C00)    to  turn 
the  drive  light  back  ON. 

Pull   the  error  code  back  off  the  stack. 
Terminate  routine  with  an  RTS. 


Set  up  the  header  for  the  active  buffer: 
Uses  values   in  TRACK,    SECTOR,    &  DSKID. 
JSR  to  GETACT    ($DF93)    to  get  the  number 
of  the  active  buffer    (returned  in   .A) . 
Multiply  the  number  of  the  active  buffer 
(in   .A)    by  2    (ASL)    and  transfer  the 
result   into  .Y. 

Move  the  track  number  from  TRACK  ($80) 
to  HDRS, Y    ($0  00  6 ,Y) . 

Move  the  sector  number  from  SECTOR  ($81) 

to  HDRS+1 , Y    ($0007 ,Y) . 

Load  .A  with  the  current  drive  number 

from  DRVNUM    ($7F),    multiply  it  by  2 (ASL) 

and  transfer  the  result  to  .X. 

NOTE:   this   last  bunch  of  code  really 
does  nothing.   On  the  4040   it  is 
done  in  preparation  for  moving 
the  ID  characters.  However,  this 
is  not  done  here  on  the  1541! 

Terminate  routine  with  an  RTS. 


Add  new  filename  to  the  directory: 
Save  the  following  variables  onto  the 
stack:    SA    ($83),   LINDX    ($82),  SECTOR 
($81)  ,   and  TRACK    ($80)  . 
Set  the  current  secondary  address,  SA 
($83)   to  $11    (#17),   the  internal  read 
channel . 

JSR  to  CURBLK    ($DE3B)    to  find  a  read 
channel  and  set  TRACK    ($80)    and  SECTOR 
($81)   from  the  most  recently  read  header 
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AF08 


AFIO 


AF15 


$D6F7 
$D6FB 

$D701 
$D706 


$D709 


$D715 


$D71A 


$D71E 

$0726 

$D72E 
$0730 


Save  the  file  type,   TYPE    ($024A)    of  the 
file  to  be  added  onto  the  stack. 
Load   .A  with  the  drive  number  for  the 
new  file,  and  it  with  $01,  and  store  the 
result  as  the  current  drive,  DRVNUM($7F) 
Load   .X  with  the  last  job  number  from 
JOBNUM    ($F9) . 

EOR  the  drive  number  in   .A  with  the 
last  job  code  from  LSTJOB,X    ($025B,X) , 
divide  the  result  by  2    (LSR) ,   and  check 
if  the  carry  flag  is  clear.   If  it  is, 
the  new  file  uses  the  same  drive  as  the 
last  job  so  there  is  no  need  to  change 
the  drive  and  we  can  branch  to  AF08. 

Store  $01   in  DELIND    ($0292)    to  indicate 
that  we  are  searching  for  a  deleted 
entry  and  JSR  to  SRCHST    ($C5AC) .  On 
return,    if   .A=0,   all  directory  sectors 
are  full   so  branch  to  AF15  to  start  a 
new  sector.    If   .AOO,   we  have  found  a 
spot  to  put  the  new  entry  so  branch  to 
AF20. 

Since  we  have  used  this  drive  before, 
some  of  the  directory  information  is 
in  memory.   Check  if  OELSEC  ($0291) 
is  $00.   If  it  is,  we  didn't  locate  a 
deleted  entry  the  last  time  we  read  in 
the  directory  so  branch  to  AFIO. 
Since  DELSEC  is  not  $00,    it  is  the 
number  of  the  sector  containing  the 
first  available  directory  entry.  See  if 
this  sector  is  currently  in  memory  by 
comparing  this  sector  number  with  the 
one  in  SECTOR   ($81).    If  they  are  equal, 
the  sector  is  in  memory  so  branch  to 
AF20 . 

Since  the  desired  sector  is  not  in 
memory,    set  SECTOR   ($81)    to  the  desired 
sector  number  and  JSR  to  ORTRO  ($0460) 
to  read  in  the  sector.  Now  branch  to 
AF20. 

Store  $01  in  OELIND  ($0292)  to  indicate 
that  we  are  looking  for  a  deleted  entry 
and  JSR  to  SEARCH  ($C617)  to  find  the 
first  deleted  or  empty  directory  entry. 
On  return,  if  .A  is  not  equal  to  $00,  a 
deleted  or  empty  entry  was  found  so 
branch  to  AF20. 

No  empty  entries  so  we  have  to  start  a 
new  sector  so  JSR  to  NXDRBK  ($0480)  to 
find  us  the  next  available  sector. 
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AF20 


AF25 


AF50 


$D733 
$D73D 

$D743 
$D747 

$D74B 
$D74D 
$D750 

$D757 

$D75E 

$D762 
$D766 

$D76D 
$D776 

$D77D 
$D77F 

$D785 

$D78B 

$D790 

$D793 

$D797 


Move  the  new  sector  number  from  SECTOR 
($81)  to  DELSEC  ($0291)  and  set  DELIND 
($0292)    to  $02. 

Load   .A  with  the  pointer  that  points  to 
first  character  in  the  directory  entry, 
DELIND($0292) ,   and  JSR  to  SETPNT ( $D4C8 ) 
to  set  the  pointers  to  this  entry. 
Pull   the  file  type  off  the  stack  and 
store  it  back  in  TYPE    ($024A) . 
Compare  the  file  type  to  $04    (REL  type) . 
If  this  is  not  a  relative  file,  branch 
to  AF2  5. 

Since  it  is  a  REL  file,   OR  the  file  type 
(in   .A)   with  $80  to  set  bit  7. 
JSR  to  PUTBYT    ($CFF1)    to  store  the  file 
type    (in   .A)    into  the  buffer. 
Pull  the  file's  track  link  off  the 
stack,   store  it   in  FILTRK    ($0280) ,  and 
JSR  to  PUTBYT    ($CFF1)    to  store  the 
track   link  in  the  buffer. 
Pull   the  file's  sector  link  off  the 
stack,   store  it  in  FILSEC    ($0285) ,  and 
JSR  to  PUTBYT    ($CFF1)    to  store  the 
sector  link  in  the  buffer. 
JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (in   .A)    and  transfer  the 
value  to  .Y 

Load   .X  with  the  file  table  pointer 
from  FILTAB    ($027A) . 

Load   .A  with  $10    (#16)    and  JSR  to  TRNAME 
($C66E)    to  transfer  the  file  name  to 
the  buffer. 

Loop  to  fill  directory  entry  with  $00 's 
from    (DIRBUF),16   to  (DIRBUF),27. 
Check  the  value   in  TYPE    ($024A)    to  see 
if  this  is  a  relative  file.   If  not, 
branch  to  AF50. 

For  REL  files  only:   Load   .Y  with  $10. 
Move  the  side-sector  track  number  from 
TRKSS    ($0259)    to    (DIRBUF),Y.    Increment  Y 
Move  the  side-sector  sector  number  from 
SECSS    ($025A)    to    (DIRBUF) ,Y.    Increment  Y 
Move  the  record   length  from  REC  ($0258) 
to    (DIRBUF) ,Y. 

JSR  to  DRTWRT    ($D464)    to  write  out  the 
directory  sector. 

Pull  the  original  value  of  LINDX  off  the 
stack,   store  it  back  in  LINDX    ($82) ,  and 
transfer  the  value  into  .X. 
Pull  the  original  value  of  SA  off  the 
stack,   store  it  back  in  SA  ($83). 
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$D79A 

$D7A5 
$D7AA 
$D7AF 
$D7B3 


OPEN 


$D7B4 
$D7B9 

$D7BC 


OP02 


$D7C7 
$D7CB 

$D7CF 

$D7D1 
$D7D8 
$D7DC 
$D7E1 
$D7E4 


Load   ,A  with  the  number  of  the  directory 
sector  containing  the  new  entry  from 
DELSEC    ($0291)    and   store   it   in  ENTSEC 
($D8)    and   in  DSEC,X    ($0260, X). 
Load   .A  with  the  pointer  to  the  start 
of  the  new  entry  from  DELIND  ($0292) 
and  store  it  in  DIND,X    ($0266, X). 
Load   .A  with  the  file  type  of  the  new 
entry  from  TYPE    ($024A)    and  store  it  in 
PATTYP    ($E7) . 

Load   .A  with  the  current  drive  number 
from  DRVNUM    ($7F)    and  store  it  in 
FILDRV    ($E2) . 

Terminate  routine  with  an  RTS. 


Open  a  channel  from  serial  bus: 
The  open,    load,   or  save  command  is 
parsed.   A  channel   is  allocated  and  the 
directory  is  searched  for  the  filename 
specified  in  the  command. 
Move  the  current  secondary  address  from 
SA    ($83)    to  TEMPSA  ($024C). 
JSR  to  CMDSET    ($C2B3)    to  set  the  command 
string  pointers.   On  return,   store  the  .X 
value   in  CMDNUM    ($022A) . 
Load   .X  with  the  first  character  in  the 
command  string  CMDBUF    ($0200) ,   Load  .A 
with  the  secondary  address  from  TEMPSA 
($024C).    If  the  secondary  address  is  not 
$00,   this  is  not  a  load  so  branch  to 
OP021 . 

Compare  the  value  in   .X  with  $2A  ("*") 
to  check  if  the  command  is  "load  the 
last  referenced  program".   If  not  $2A, 
branch  to  OP021. 

Appears  to  be  "load  last".   Check  by 
loading  .A  with  the  last  program's  track 
link  from  PRGTRK    ($7E).    If   .A=0,  there 
is  no  last  program  so  branch  to  OP0415 
to  initialize  drive  0. 
Seems  OK,    let's   load  last  program. 
Store  the  program's  track  link    (in  .A) 
into  TRACK    ($80)  . 

Move  the  program's  drive  number  from 
PRGDRV    ($026E)    to  DRVNUM    ($7F) . 
Store  $82    (program)    as  the  file  type  in 
PATTYP    ($E7) . 

Move  the  program's  sector   link  from 
PRGSEC    ($b26F)    into  SECTOR    ($81)  . 
JSR  to  SETLDS    ($C100)    to  turn  on  the 
drive  active  LED. 

JSR  to  OPNRCH    ($DC46)    to  open  a  read 
channel . 
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ENDRD 


OP021 


OP04 


OP041 


OP0415 


OP042 


$D7E7 
$D7EB 
$D7ED 
$D7F0 

$D7F3 
$D7F7 

$D7FC 
$D7FF 

$D802 

$D807 
$D80B 

$D80E 
$D812 
$D815 

$D819 

$D81C 
$D821 

$D828 

$D82B 

$D82E 
$D830 


Load   .A  with  $04    (2  *  program,  type)  ,  OR 
it  with  the  drive  number  in  DRVNUM  ($7F) 
Load   .X  with  the  number  of  the  active 
buffer  from  LINDX  ($82). 
Store  the  value   in   ,A  as  the  file  type 
in  FILTYP,Y    ($OOEC,Y) . 

Terminate  routine  with  a  JMP  to  ENDCMD 
($C194)  , 

Compare  the  byte  in   .X    (the  first  in  the 
command  string)    with  $24    ("$")    to  check 
if  we  are  to  load  the  directory.    If  it 
is  NOT  "$",   branch  to  OP041. 
We  want   the  directory.   But,   should  we 
load  it  or  just  open  it  as  a  SEQ  file? 
Check  the  secondary  address  in  TEMPSA 
(024C) .    If  it   is  not  $00,   branch  to 
OP04  to  open  it  as  a  SEQ  file. 
JMP  to  LOADIR    ($DA55)    to  load  the 
directory . 

Open  the  directory  as  a  SEQ  file. 
JSR  to  SIMPRS    ($C1D1)    to  parse  the 
command  string. 

Move  the  directory's  track  link  from 
DIRTRK    ($FE85)    into  TRACK    ($80) . 
Zero  the  desired  sector,   SECTOR  ($81) 
JSR  to  OPNRCH    ($DC46)    to  open  the  read 
channel . 

Load   .A  with  the  current  drive  number 
from  DRVNUM    ($7F)    and  OR  it  with  $02 

(2   *   the  SEQ  file  type) . 

Terminate  routine  with  a  JMP  to  ENDRD 

($D7EB) . 

Compare  the  byte  in   .X    (the  first  in  the 
command  string)   with  $23    ("#")    to  check 
if  this  is  to  be  a  direct  access  channel 
If  it  is  NOT  "#",   branch  to  OP042. 
Continue  routine  with  a  JMP  to  OPNBLK 
($CB84) . 

Set  the  file  type  flag  TYPFLG  ($0296) 
to  $02    (program  file) . 
Zero  the  current  drive  number  DRVNUM 
($7F)    and  the  last  job  drive  number 
LSTDRV    ($028E)  . 

JSR  to  INITDR    ($D042)    to  initialize 
drive  #0. 

JSR  to  PRSCLN    ($C1E5)    to  parse  the 
command  string  to  find  the  colon. 
If  none  found,   branch  to  OP049 
Zero   .X  and  branch  to  OP20  (always). 
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OP049 
OP05 

OPIO 
OP20 


OP40 


$0834 
$0837 

$083C 

$083F 
$0840 
$0843 

$0848 
$084C 
$084F 
$0852 
$0857 

$0861 

$0866 
$0869 

$086F 

$0873 
$0876 

$087B 

$087F 

$0882 


Transfer  the  byte  in   .X  to   .A.    If  the 
byte  is  $00,  branch  to  OPIO. 
Oops,   troublei   Load   .A  with  $30  to 
indicate  a  BAO  SYNTAX  error  and  JMP  to 
CMOERR    ($C1C8) . 

Decrement  .Y  so  it  points  to  the  ":" 
If  .Y=0,  first  character  is  a  ":"  so 
branch  to  OP20. 

Decrement   .Y  so  it  points  to  the  byte 
just  before  the 

Store  the  pointer  to  the  file  name 
(in   .Y)    into  FILTBL  ($027A). 
Load   ,A  with  $80    (shifted  return)  and 
JSR  to  PARSE    ($C268)    to  parse  the  rest 
of  the  command  string. 

Increment  .X   (file  count)   and  store  the 

result  into  F2CNT    ($0278)  . 

JSR  to  ONEORV   ($C312)    to  set  up  one 

drive  and  the  necessary  pointers. 

JSR  to  OPTSCH    ($C3CA)    to 'determine  the 

optimal   search  pattern. 

JSR  to  FFST    ($C490)    to  search  the  disk 

directory  for  the  file  entry. 

Zero  the  record   length,   REC    ($0258)  , 

MODE    ($0297)    (read  mode) ,   and  the  file 

type,   TYPE    ($024A)    (deleted  file) . 

Test  the  value  of  FICNT    ($0277) .    If  it 

is  $00,   there  are  NO  wild  cards  in  the 

filename  so  branch  to  OP40. 

JSR  to  CKTM    ($OA09)    to  set  the  file 

type  and  mode. 

Test  the  value  of  FICNT    ($0277) .    If  it 
is  $01,   there  is  only  one  wild  card  in 
the  filename  so  branch  to  OP4  0. 
Compare   .Y  to  $04.    If   ,Y=$04,   this  is  a 
relative  file  so  branch  to  OP60  to  set 
the  record  size. 

JSR  to  CKTM   ($OA09)    to  set  the  file 
type  and  mode. 

Restore  the  original   secondary  address 
into  SA    ($83)    using  the  value  from 
TEMPSA    ($024C) . 

Test  the  secondary  address,   if  it  is 

greater  or  equal   to  $02,   this  is  not  a 

load  or  save  so  branch  to  OP45. 

This  is  a  load  or  save.   Set  MODE  ($0297) 

(0=read;    l=write)    using  the  secondary 

address    (O=load;   l=save) . 

Set  the  write  BAM  flag,  WBAM   ($02F9)  to 

$40  to  flag  that  BAM  is  dirty. 
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OP45 


OP50 


OP60 


OF75 


OP77 


OP80 


$D887 

$D88C 
$D891 

$D896 

$D89D 

$D8A2 
$D8A7 
$D8AE 

$D8B1 
$D8B4 

$D8BA 

$D8BF 
$D8C6 

$D8CD 

$D8D3 
$D8D6 
$D8D9 


Load   .A  with  the  file  type,   TYPE  ($024A) 
If  it  is  not   $00    (deleted  file  type) , 
branch  to  OP50.   NOTE:    load  &  save  of 
files  have  TYPE  set  to  $00  in  $D857. 
Set  file  type,   TYPE    ($024A)    to  $02 
(program  file  type) . 

Load   .A  with  the  file  type,   TYPE  ($024A) 
If  it  is  not  $00    (scratched  file  type), 
branch  to  OP50. 

Load  the  file  type  as  given  in  the 
directory  from  PATTYP    ($E7) ,   AND  it  with 
$07   (file  type  mask) ,   and  store  the 
result  as  the  file  type  in  TYPE  ($024A) 
Test  the  file's  first  track  link  in 
FILTRK    ($0280).    If  it  is  not  $00,  the 
file  exists  so  branch  to  OP50. 
The  file  doesn't  exist,    set  TYPE  ($024A) 
to  $01    (the  default  value;   a  SEQ  file) . 
Check  MODE    ($0297).    If  it  is  $01,    it  is 
write  mode  so  branch  to  OP75  to  write. 
JMP  to  OP90    ($D940)    to  open  to  read  or 
load . 

Handle  relative  file: 

Load   .Y  with  the  pointer  from  FILTBL,X. 
Load   .A  with  the  file's  record  size  as 
given  in  the  directory  from  CMDBUF,Y  and 
store  it  in  REC  ($0258). 

Test  if  the  file's  track  link  in  FILTRK 
($0280)    is  $00.    If  it  is  NOT  $00,  the 
file  is  present  so  branch  to  OP40  to 
read  it. 

Set  the  MODE  ($0297)  to  $01  (write  mode) 
and  branch  to  OP40    (always) . 

Load   .A  with  the  file's  type  as  given  in 
the  directory  from  PATTYP    ($E7) ,   AND  it 
with  $80  to  determine  if  it  is  a  deleted 
file,   and  transfer  the  result  to  ,X.  If 
it  is  not  a  deleted  file,  branch  to  0P81 
Open  to  write.  Load   .A  with  $20  and  test 
if  any  bits  in  .A  and  the  file  type  in 
PATTYP    ($E7)    match.    If  not,   branch  to 
OP80  . 

JSR  to  DELDIR    ($C8B6)    to  delete  the 
directory  entry  and  write  out  the 
revised  sector. 

JMP  to  OPWRIT    ($D9E3)    to  open  the 
channel  to  write. 

Load   .A  with  the  entry's  track  link  from 
FILTRK    ($0280).    If  it   is  not  $00,  there 
is  an  existing  file  so  branch  to  0P81. 
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0P81 


OP815 


OP82 


$D8DE 
$D8E1 

$D8E8 
$D8EB 
$D8F0 

$D8F5 


$D8FE 

$D902 
$D905 
$D90A 
$D90E 
$D911 


$D917 

$D91F 
$D925 
$D92A 
$D92D 


File  not  found  but  that's  OK.   JMP  to 
OPWRIT    ($D9E3)    to  open  a  write  channel. 

Load   .A  with  CMDBUF    ($0200) ,   the  first 
byte  of  the  command  string.    If  it  equals 
$40    ("(?"),   branch  to  OP82.  NCTE:   THIS  IS 
WHERE  REPLACE   FILE  COMMAND   IS  DETECTED! 
Transfer   .X  value  into   .A.    If   it  is  not 
$00,   branch  to  OP815. 
Load   .A  with  $63   to  indicate  a  FILE 
EXISTS  ERROR  and  JMP  to  CMDERR    ($C1C8) . 
Load   .A  with  $33  to  indicate  a  bad 
filename  and  JMP  to  CMDERR   ($C1C8) . 

REPLACE   FILE   ROUTINE   *   MAY  HAVE  BUG! 
Load  the  file  type  of  the  directory 
entry  from  PATTYP    {$E7) ,   AND  it  with 
the  file  type  mask  $07,   and  compare  the 
result  with  the  command  string  file  type 
in  TYPE    ($024A) .    If  the  file  types  do 
not  match,   branch  to  0P115  to  abort. 
Compare  the  file  type    (in   .A)   with  $04. 
If  it  is  $04,   this  is  a  relative  file 
so  branch  to  0P115  to  abort. 

JSR  to  OPNWCH    ($DCDA)    to  open  the  write 
channel . 

Move  the  active  buffer  number  from 
LINDX    ($82)    to  WLINDX    ($0270) . 
Set  the  secondary  address,   SA    ($83)  to 
$11    (#17)    the  internal  read  channel. 
JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 
read  channel. 

Load   .A  with  the  current  value  of  the 
pointer  into  the  directory  buffer,  INDEX 
($0294)    and  JSR  to  SETPNT    ($D4C8)    to  set 
the  buffer  pointers  to  point  to  the 
INDEXth  byte.   NOTE:    at  this  point  INDEX 
points  to  the  first  byte  in  the  entry, 
the  file  type. 

Zero   .Y.   Then  load   .A  with  the  file  type 
from    (DIRBUF) ,Y;    ($94) ,Y,   OR  the  file 
type  with  $20    (set  the  replace  bit),  and 
store  the  result  back  in    (DIRBUF) ,Y. 
Load   .Y  with  $1A    (#26)    and  move  the  new 
track  link  from  TRACK($80)    to    (DIRBUF), Y 
Increment   .Y  and  move  the  new  sector 
link  from  SECTOR    ($81)    to    (DIRBUF) ,Y. 
Load   .X  with  the  active  buffer  number 
from  WLINDX    ($0270) . 

Load   .A  with  the  sector  of  the  directory 
entry  ENTSEC    ($D8)    and  copy  it  into 
DSECX    ($0260  , X)  . 
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OP90 
OP95 
OPIOO 


OPllO 


0P115 


OP120 


$D932 

$D937 

$D93A 
$D93D 

$D940 

$D945 

$D94A 

$D951 

$D957 
$D95C 


$D965 

$D96A 
$D96F 

$D976 

$D97A 

$D980 
$D987 


Load   .A  with  the  pointer  to  the  start  of 
the  directory  entry  ENTIND    ($DD)  and 
copy  it  into  DIND,X    ($0266  , X). 
JSR  to  CURBLK    ($DE3B)    to  set  TRACK  ($80) 
and  SECTOR   ($81)    from  header  of  most 
recently  read  header. 

JSR  to  DRTWRT    ($D464)    to  do  direct  bloclt 
write  of  directory  bloclt  to  dislt. 
JMP  to  OPFIN   ($D9EF)   to  finish  opening 
the  file. 

Test  the  directory  entry's  track  linlt 
in  FILTRK    ($0280).    If   it  is  NOT  $00, 
the  file  exists  so  branch  to  OPIOO. 
Load   .A  with  $62  to  indicate  a  FILE  NOT 
FOUND  error  and  JMP  to  CMDERR   ($C1C8)  . 

Compare  the  value  in  MODE    ($0297)  to 
$03    (open  to  modify) .    If  MODE=$03  branch 
to  OPllO. 

Check  bit  5  of  the  directory  entry's 
file  type.   If  this  bit  is  set,   it  flags 
a  file  that  is  already  opened    (or  not 
closed  properly) .    If  the  bit  is  NOT  SET, 
branch  to  OPllO  and  carry  on. 
Load   .A  with  $60  to  indicate  a  FILE  OPEN 
error  and  JMP  to  CMDERR   ($C1C8)  . 
Load   .A  with  the  directory  entry's  file 
type  from  PATTYP    ($E7) ,   AND  it  with  $07 
to  mask  off  higher  order  bits,  and 
compare  it  with  the  file  type  specified 
in  the  command  string  from  TYPE    ($024A) . 
If  the  file  types  match,  branch  to  OP120 
Load   .A  with  $64  to  indicate  a  FILE  TYPE 
MISMATCH  error  and  JMP  to  CMDERR  ($C1C8) 

Load   .Y  with  $00  and  use  it  to  zero 
F2PTR    ($0279)  . 

Load   .X  with  the  mode  from  MODE  ($0297) 
If  MODE  is  not   $02    (open  to  append) , 
branch  to  OP125. 

Compare  the  file  type    (in   .A)   with  $04. 
If  it  is  $04,   this  is  a  relative  file 
so  branch  to  0P115. 

This  applies  only  to  opening  to  append. 
Load   .A  with  the  file  type  from 
(DIRBUF) ,Y   ;($94),Y,   AND  it  with  $4F, 
and  store  it  back  in    (DIRBUF) ,Y. 
Save  the  secondary  address  from  SA  ($83) 
onto  the  stack  and  set  SA    ($83)    to  $11 
(#17,   the  internal  read  channel). 
JSR  to  CURBLK    ($DE3B)    to  set   TRACK  ($80) 
and  SECTOR   ($81)    from  header  of  most 
recently  read  header. 
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OP125 


OPREAD 


OP130 


$D98A 
$0980 
$0990 
$0993 
$099A 
$0990 

$D9A0 
$09AE 


$09B3 
$09B6 


$D9B9 
$09BE 

$D9C3 
$D9C6 

$09CB 

$0900 

$0903 

$09D5 
$D9D8 

$D90F 

$D9E2 


JSR  to  DRTWRT    ($046  4)  to 
write  of  directory  block 
Pull  original  secondary 
stack  and  restore  it  in 
JSR  to  OPREAD    ($D9A0)  to 
for  a  read. 

Check  if  MODE    ($0297)  is 
If  it  isn't  $02,  branch 
JSR  to  APPEND    ($DA2A)  to 
of  the  file. 

JMP  to  ENDCMD    ($C194)  to 


do  direct  block 

to  disk, 
address  off  the 
SA  ($83). 

open  the  file 

$02    (append) . 
to  OPFIN  ($09EF) 
read  to  the  end 


terminate , 


Open  a  file  to  read: 

Copy  the  relative  file  values  from  the 
directory  entry    (OIRBUF) ,Y;    ($94) ,Y  into 
their  RAM  variable  locations: 
Track  for  side  sector  to  TRKSS  ($0259) 
Sector  for  side  sector  to  SECSS  ($025A) 
Load  .A  with  the  record  size  from  the 
directory  entry.   Load   .X  with  the  size 
from  the  command  string,   REC  ($0258). 
Store  the  value  in   .A  into  REC    ($0258) . 
Transfer  the  value  from   .X  into   .A.  If 
the  command  string  size  is  $00,  branch 
to  OP130    (defaults  to  entry  size)  . 
Compare  the  two  record  lengths.   If  they 
are  equal,   branch  to  OP130. 
Record  lengths  do  not  match,    load  .A 
with  $50  to  indicate  a  READ  PAST  END  OF 
FILE  error  and  JSR  to  CMDERR  ($C1C8). 


Load   .X  with  the  pointer  F2PTR    ($0279)  . 
Copy  the  track   link  from  FILTRK,X 
($0280, X)    to  TRACK  ($80). 
Copy  the  sector  link  from  FILSEC,X 
($0285, X)    to  SECTOR  ($81). 
JSR  to  OPNRCH    ($DC46)    to  open  a  read 
channe 1 . 

Load  .Y  with  the  active  buffer  number 
from  LINDX    ($82) . 

Load   .X  with  the  pointer  F2PTR    ($0279)  . 
Copy  the  directory  sector  containing  the 
entry  from  ENTSEC,X    ($D8,X)    to  DSEC,Y 
($0260 ,Y) . 

Copy  the  pointer  to  the  entry  in  the 
directory  sector  from  ENTIND,X    ($00, X) 
to  DINO,Y    ($0266 ,Y) . 
Terminate  the  routine  with  an  RTS. 
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OPWRIT 


OPFIN 


OPFl 


CKTM 


CKMl 


CKM2 


CKT2 


$D9E3 

$D9E9 
$D9EC 
$D9EF 

$D9F5 

$D9F8 
$D9FC 
$DA01 
$DA06 

$DA09 
$DA11 


$DA19 
$DA1C 


$DA26 
$DA29 


Open  a  file  to  write: 

Load   .A  with  the  drive  number  for  the 
file  from  FILDRV    ($E2) ,   AND  it  with  $01 
to  mask  off  non-drive  bits,   and  store 
the  result  as  the  current  drive  in 
DRVNUM    ($7F) . 

JSR  to  OPNWCH    ($DCDA)    to  open  a  write 
channe 1 . 

JSR  to  ADDFIL    ($D6E4)    to  add  the  entry 
to  the  directory. 

If  the  secondary  address  is  greater  than 
$01,   it  is  a  not  a  program  file  so 
branch  to  OPFl. 

JSR  to  GETHDR    ($DE3E)    to  set   up  TRACK 
and  SECTOR  values  from  the  last  header 
read . 

Copy  the  track  link  from  TRACK    ($80)  to 
PRGTRK    ($7E) . 

Copy  the  file  drive  from  DRVNUM  ($7F)  to 
PRGDRV    ($026E) . 

Copy  the  sector  link  from  SECTOR  ($81) 
to  PRGSEC    ($026F) . 

Terminate  routine  with  a  JMP  to  ENDSAV 
($C199)  . 

Check  mode  or  file  type: 

Load   .Y  with  the  pointer  from  FILTBL,X. 
Load   .A  with  the  mode  or  file  type  from 
the  command  string,  CMDBUF,Y. 
Load   .Y  with  $04,   the  number  of  modes. 
Loop  to  compare  mode  requested  with  the 
table  of  modes,   MODLST,Y    ($FEB2,Y).  If 
no  match  is  found,   branch  to  CKM2.   If  a 
match  is  found,   fall  through. 
VALID  MODES:    0   =   R  (READ) 

1  =  W  (WRITE) 

2  =  A  (APPEND) 

3  =  M  (MODIFY) 

Store   .Y  counter    (0-3)    in  MODE  ($0297) 
Loop  to  compare  type  requested  with  the 
table  of   types,    TPLST,Y    ($FEB6,Y).  If 
no  match  is  found,   branch  to  CKT2.   If  a 
match  is  found,   fall  through. 
VALID  TYPES:    0   =  D  (DELETED) 

1  =   S  (SEQUENTIAL) 

2  =   P  (PROGRAM) 

3  =   U  (USER) 

4  =   R  (RELATIVE) 

Store   .Y  counter    (0-3)    in  TYPE  ($024A) 
Terminate  the  routine  with  an  RTS. 
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APPEND 


AP30 


LOADIR 


LDOl 


LD0  2 


$DA2A 
$DA2D 
$DA34 

$DA37 


$DA3D 

$DA4  2 
$DA45 

$DA4B 

$DA54 

$DA5  5 

$DA5A 
$DA5C 

$DA62 
$DA65 

$DA6D 


Append  information  to  the  end  of  a  file 
Reads  through  old  file  to  end. 
JSR  to  GCBYTE    ($CA39)    tc  get  a  byte  from 
the  data  channel. 

Test  if  we  are  at  the  end  of  file.  If 
not,    loop  back  to  APPEND. 
JSR  to  RDLNK    ($DE95)    to  set  TRACK  ($80) 
and  SECTOR    ($81)    from  the  track  and 
sector   links  in  the   last  block.  NOTE: 
TRACK  will  be  $00  and  SECTOR  will  be  a 
pointer  to  the  end  of  the  file. 
Load   .X  with  the  end  of  file  pointer 
from  SECTOR    ($81),    increment  it  by  1, 
and  transfer  the  result  to   .A.    If  the 
new  value  of  the  pointer  is  not  $00, 
there  is  space  left  at  the  end  of  this 
sector  so  branch  to  AP30. 
No  space   left  in  this  sector  so  JSR  to 
WRTO    ($D1A3)    to  get  the  next  sector. 
Load   .A  with  $02   so  it  points  to  the 
start  of  the  data  area  for  this  new 
sector . 

JSR  to  SETPNT    ($D4C8)    to  set  the  active 
buffer  pointers. 

Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)    and  store  $01  (channel 
ready  at  the  end  of  file)    in  the  channel 
status   flag  CHNRDY,X  ($F2,X). 
Load   .X  with  the  sec.   address  SA  ($83). 
Load   .A  with  $60,   OR  it  with  the  active 
buffer  number  in  LINDX    ($82) ,   and  store 
the  result  in  LINTAB,X    ($022B,X)  to 
indicate  that  this   is  now  a  write  file. 
Terminate  the  routine  with  an  RTS. 


Load  the  directory  ($): 

Store  $0C   (load)   as  the  command  code  in 
CMDNUM    ($022A)  . 

Load   .A  with  $00    (load  only  drive  #0) 
Load   .X  with  the  command   length  from 
CMDSIZ    ($0274)    and  decrement  the  length 
in   .X  by  1.    If  the  result  is  $00,  branch 
to  LD02  to  load  complete  directory  for 
drive  0. 

Decrement  the  length  in   .X  by  1.    If  the 
result  is  still  not  $00,   this  must  be  a 
selective  load  by  name  so  branch  to  LD03 
Load   .A  with  the  second  character  in  the 
command  string  from  CMDBUF+1  ($0201) 
JSR  to  TSTOVl    ($C3BD)    to  test  if  the 


and 


character  is  an  ASCII  "0' 


or 


If 


not,   branch  to  LD03  to  load  by  name. 
Store  the  drive  number  desired    (in  .A) 
into  FILDRV    ($E2) . 
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LD03 


LD0  5 


LDIO 


LD20 


CLOSE 


$DA6F 
$DA78 
$DA7C 

$DA84 
$DA86 

$DA8E; 

SDA8E 
$DA90 

$DA95 

$DA98 

$DA9B 

$DA9E 

$DAA1 

$DAA4 
$DAA7 
$DAAA 
$DAAD 
$DAAF 
$DAB2 

$DAB7 

$DABB 
$DABF 


$DACO 
$DAC5 


Increment  FICNT    ($0277)  ,    F2CKT    ($0278)  , 
and  FILTBL    ($027A) . 

Store  $80   in  PATTYP    ($E7)    to  represent 
the  file  type. 

Store  $2A    ("*")    as  the  first  two  b:^tes 
in  the  command  string  CMDBUF    ($0200)  and 
CMDBUF+1  ($0201) 
Branch  always  to  LDIO. 

JSR  to  PRSCLN    ($C2DC)    to  find  the  colon 
in  the  command  string.    If  no  colon  is 
found,   branch  to  LD05. 

Colon  found   so  JSR  to  CMDRST    ($C2DC)  to 
zero  all  command  string  variables. 
Lead   .Y  with  $03. 

Decrement    .Y  twice  and  store  the  result 
in  FILTBL    ($027A) . 

JSR  to  TC35    ($C200)    to  parse  and  set 
up  the  tables. 

JSF   to  FSISET    ($C398)    to  set  pointers  to 
file  name  and  check  type. 
JSR  to  ALLDRS    ($C3  20)    to  set  up  all 
drives  required. 

JSR  to  OPTSCH    ($C3CA)    to  determine  the 
best  drive  search  pattern. 
JSR  to  NEWDIR    ($C7B7)    to  read  in  BAM  and 
set  up  disk  name,    ID,   etc  as  first  line 
in  directory. 

JSR  to  FFST    ($C49D)    to  find  file  start 
entry . 

JSR  to  STDIR    ($EC9E)    to  start  the 
directory  loading  function. 
JSR  to  GETBYT    ($D137)    to  read  first  byte 
from  the  buffer. 

Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Store  the  first  byte    (in   .A)  into 
CHNDAT,X    ($023E,X) . 

Load   .A  with  the  current  drive  number 
from  DRVNUM    ($7F)    and  use  this  value  to 
set  the   last  job  drive  LSTDRV    ($028E) . 
OR  the  drive  number  in   .A  with  $04  and 
store  the  result  as  the  file  type  in 
FILTYP,X    ($EC,X) . 

Zero  BUFTAB+CBPTR    ($A3).   Note:    CBPTR  is 
the  command  buffer  pointer  ($0A). 
Terminate  the  routine  with  an  RTS. 


Close  the  file  related  to  the  specified 
secondary  address: 

Zero  the  write  BAM  flag,   WBAM  ($02F9). 
If  secondary  address,   SA    ($83)    is  not 
zero    (directory  load) ,   branch  to  CLSIO 
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CLS05 
CLSIO 


CLS15 


CLSALL 
CLS20 


CLS25 


CLSCHN 


CLSC28 


$DAC9 

$DAD1 

$DAD4 

$DAD8 
$DADB 

$DAE1 

$DAE6 
$DAE9 


$DAEC 
$DAFO 
$DAF3 

$DAF7 


$DAFC 
$DAFF 

$DB02 
$DB04 

$DB09 

$DBOC 

$DB10 
$DB13 
$DB17 
$DB1B 

$DB20 
$DB23 


Close  directory:    Zero  the  directory 
listing  flag  DIRLST    ($0254)    and  JSR  to 
FRECHN    ($D227)    to  free  the  channel. 
JMP  to  FREICH    ($D4DA)    to  free  the 
internal  channel  and  terminate  routine. 
If  secondary  address    (in   .A)    is  $0F(#15) 
branch  to  CLSALL  to  close  all  files. 
JSR  to  CLSCHN    ($DB02)    to  close  channel. 
If  secondary  address  in  SA    ($83)    is  $01 
(save),   branch  to  CLS05  to  close  the 
internal  channel  and  exit. 
Check  the  error  status   in  ERWORD  ($026C) 
If  status  is  not  $00,   the  last  command 
produced  an  error  so  branch  to  CLS15. 
JMP  to  ENDCMD    ($C194)    to  end  command. 

Error  so  JMP  to  SCRENl  ($C1AD) 

Close  all  files:        (when  CMD  closed) 
Set  secondary  address,   SA   ($83)    to  $0E. 
JSR  to  CLSCHN    ($DB02)    to  close  channel. 
Decrement  SA   ($83).   If  more  secondary 
addresses  to  do    (SA>=0)    loop  to  CLS20. 
Check  the  error  status  in  ERWORD  ($026C) 
If  status  is  net  $00,   the  last  command 
produced  an  error  so  branch  to  CLS25. 
JMP  to  ENDCMD   ($C194)    to  end  command. 

Error  so  JMP  to  SCRENl  ($C1AD) 


Close  file  with  specified  sec.  address 
Load   .X  with  the  secondary  address  from 
SA    ($83)  . 

Load   .A  with  the  channel   status  from 
LINTAB,X    ($022B,X).    If  the  status  is 
not  $FF    (closed),   branch  to  CLSC28. 
Channel  already  closed  so  terminate 
routine  with  an  RTS. 

ANE'  the  channel   status    (in   .A)   with  $0F 

to  leave  only  the  buffer  number  and 

store  the  result  in  LINDX    ($82)  . 

JSR  to  TYPFIL    ($D125)    to  determine  the 

file  type   (returned  in  .A) . 

If  file  type  is  $07   (direct  channel) 

branch  to  CLSC3  0. 

If  file  type  is  $04   (relative  file) 
branch  to  CLSREL. 

JSR  to  FNDWCH  ($D107)  to  find  an  unused 
write  channel.  If  none  found,  branch  to 
CLSC31 

JSR  to  CLSWRT    ($DB62)    to  close  off 
sequential  write. 

JSR  to  CLSDIR   ($DBA5)    to  close  directory 
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CLSC30 
CLSC31 


CLSREL 


CLSRl 


CLSWRT 


$DB26 
$DB29 


$DB2C 
$DB2F 
$DB32 

$DB35 


$DB3B 
$DB41 


$DB48 
$DB4B 
$DB4D 

$DB55 

$DB5C 
$DB5F 

$DB62 
$DB64 


$DB6A 


JSR  to  MAPOUT    ($EEF4)    to  write  out  BAM. 
JMP  to  FRECHN    ($D227)    to  free  channel 
and  terminate  the  command. 


Sub  to  close  relative  file; 

JSR  to  SCRUB    ($DDF1)    to  write  out  BAM 

if   it  is  dirty    (RAM  version  modified) . 

JSR  to  DBLBUF    ($CF1E)    to  set  up  double 

buffering  and  read  ahead. 

JSR  to  SSEND    ($E1CB)    to  position  side 

sector  &  buffer  table  pointer  to  the  end 

of  the  last  record. 

Load   .X  with  the  side  sector  number  from 
SSNUM    ($D5) ,   store  this  byte  in  T4($73), 
and  increment  T4  by  1. 
Zero  Tl    ($70)    and  T2    ($71)  . 
Load   .A  with  the  pointer  to  the  side 
sector  value  in  the  directory  buffer 
from  SSIND    ($D6) ,   set  the  carry  flag, 
subtract  $0E    (the  side  sector  offset-2), 
and  store  the  result  in  T3    ($72)  . 
JSR  to  SSCALC    ($DF51)    to  calculate  the 
number  of  side  sector  blocks  needed. 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Move  the   lo  byte  of  the  number  of  side 
sector  blocks  from  Tl    ($70)    to  NBKL,X 
($B5,X)    and  the  hi  byte  from  T2    ($71)  to 
NBKH,X    ($BB,X) . 

Load   .A  with  $40    (the  dirty  flag  for  a 
relative  record  flag)    and  JSR  to  TSTFLG 
($DDA6)    to  test  if  relative  record  must 
be  written  out.    If  not,   branch  to  CLSRl. 
JSR  to  CLSDIR    ($DBA5)    to  close  the 
directory  file. 

JMP  to  FRECHN    ($D227)    to  clear  the 
channel  and  terminate  routine. 


Close  a  sequential   file  write  channel: 
Lead   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  number  of  bytes  written 
in  this  sector  from  NBKL,X    ($B5,X)  and 
OR  .A  with  the  number  of  data  blocks 
written  from  NBKL,X  ($B5,X). 
If  the  result  is  not  $00,   at  least  one 
block  of  the  file  has  been  written  so 
branch  to  CLSWIO. 

No  blocks  have  been  written  so  JSP  to 
GETPNT    ($D4E8)    to  get  the  pointer  into 
the  data  buffer   (returned  in  .A) .  If 
this  value  is  greater  than  two,   at  least 
one  byte  has  been  written  so  branch  to 
CLSWIO . 
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CLSWIO 


CLSW15 


CLSW20 


CLSDIR 


$DB71 

$DB76 

$DB7D 
$DB80 
$DB82 

$DB86 

$DB88 

$DB8A 
$DB8C 

$DB90 

$DB95 

$DB98 
$DB99 

$DB9C 

$DB9F 

$DBA2 

$DBA5 

$DBAA 
$DBAD 

$DBB2 


No  bytes  have  been  written  so  load  .A 
with  $0D  (carriage  return)  and  JSR  to 
PUTBYT  ($CFF1)  to  write  it  out  to  the 
data  buffer. 

JSR  to  GETPNT    ($D4E8)    to  get  the  pointer 
into  the  data  buffer    (returned  in  .A). 
If  the  pointer  value  is  not  $02,  the 
buffer  is  not  err.pty  so  branch  to  CLSW20. 
Since  we  have  an  empty  buffer,   JSR  to 
DBLBUF    ($CF1E)    to  switch  buffers. 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  number  of  bytes  written 
in  this  sector  from  NEKL,X    ($B5,X).  If 
this  value  is  not  equal   to  $00,  branch 
to  CLSW15, 

Decrement  the  number  of  data  blocks 
written  in  NBKH,X    ($BB,X)   by  1, 
Decrement  the  number  of  bytes  written 
in  this  sector,   NBKL,X    ($B5,X)    by  1. 
Load   .A  with  $00. 

Set  the  carry  flag,   subtract  $01  from 
the  number  of  bytes  written  in  this 
sector    (.A) ,   and  save  the  result  on  the 
stack . 

Load   .A  with  $00  and  JSR  to  SETPNT 
($D4C8)    to  set  the  buffer  pointers  to 
the  first  byte  in  the  data  buffer  (the 
track  link) . 

JSR  to  PUTBYT    ($CFF1)    to  write  $00  out 
as  the  track  link. 

Pull  the  bytes  written  from  the  stack. 
JSR  to  PUTBYT    ($CFF1)    to  write  out  the 
bytes  in  this  sector  as  the  sector  link. 
JSR  to  WRTBUF    ($D0C7)    to  write  the  data 
buffer  out  to  disk. 

JSR  to  WAT JOB    ($D599)    to  wait  for  the 
write  job  to  be  completed, 
JMP  to  DBLBUF    ($CF1E)    to  make  sure  that 
both  buffers  are  OK. 


Close  directory  after  writing  file: 
Load   .X  with  the  active  buffer  number 
from  LINDX   ($82).   Save  this  value  into 
WLINDX    ($0270)  . 

Save  the  current  secondary  address  from 
SA    ($83)    onto  the  stack. 
Copy  the  sector  of  the  directory  entry 
for  the  file  from  DSEC,X    ($0260, X)  into 
SECTOR    ($81)  . 

Copy  the  pointer  to  the  directory  entry 
for  the  file  from  DIND,X  ($0266, X)  into 
INDEX    ($0294)  . 
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$DBB8 

$DBBE 

$DBC3 

$DBC6 

$DBC9 

$DBCC 
$DBCE 

$DBD3 

$DBD8 


$DBDE 
$DBE1 
$DBE5 

$DBEB 

$DBEC 

$DBFO 
$DBF2 

$DBF4 
$DBF7 
$DBF8 
$DBFC 


Load   .A  with  the  file  type  from  FILTYP,X 
($EC,X) ,   AND  it  with  $01  to  mask  off  the 
non-drive  bits,   and  store  the  result  as 
the  current  drive  number  in  DRVNUM  ($7F) 
Copy  the  directory  track  number  (#18) 
from  DIRTRK    ($FE85)    into  TRACK    ($80) . 
JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Save  the  active  buffer  number  onto  the 
stack  and  into  JOBNUM  ($F9). 
JSR  to  DIRTRD    ($D460)    to  read  in  the 
directory  sector  containing  the  entry. 
Load   .Y  with  $00. 

Load   .A  wit  h  the  hi  byte  of  the  pointer 
to  the  active  buffer  from  BUFIND,X 
($FEE:0,X)    and  store  it  in  RO  +  1  ($87). 
Complete  the  pointer  into  the  directory 
buffer  by  copying  the  lo  byte  of  the 
pointer  from  INDEX    ($0294)    to  RO  ($86). 
Load   .A  with  the  file  type  from  the 
directory  entry    (RO) ,Y,   AND  it  with  $20, 
and  checking  if  the  result  is  $00.  If 
it  is  $00,   this   is  NOT  a  replace  so 
branch  to  CLSD5 . 


NOTE:   Here  is  where  we  do  the  directory 
entry  when  a  file  is  replaced. 

Possible  bugs!     -  *   -  *  - 


_  *  _  *  _ 


JSR  to  TYPFIL    ($D125)    to  determine  the 
file  type    (returned  in   .A) . 
If  file  type  is   $04    (a  relative  file) 
branch  to  CLSD6 . 

Load   .A  with  the  file  type  from  RO,Y, 
AND  it  with  $8F  to  mask  off  the  replace 
bit,   and  store  the  result  back  in  RO,Y. 
Increment   .Y.   The  pointer  at    (RO) ,Y  now 
points  to  the  old  track  link. 
Copy  the  old  track  link  from    (RO) ,Y  to 
into  TRACK    ($80)  . 

Store  the   .Y  value  into  TEMP+2    ($71) . 
Load   .Y  with  $1B    (#27)  .   The  pointer  at 
(RO) ,Y  now  points  to  the  replacement 
sector  link. 

Load   .A  with  the  replacement  sector  link 
from    (RO) ,Y  and  save  it  on  the  stack. 
Decrement   .Y.   The  pointer  at    (RO) ,Y  now 
points  to  the  replacement  track  link. 
Load   .A  with  the  replacement  track  link. 
If  this   link  is  NOT  $00,   branch  to  CLSD4 
Trouble!   Replacem.ent  track  link  should 
never  be  $00.   So  put  replacement  track 
link  in  TRACK    ($80)  . 
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CLSD4 


CLSD5 


CLSD6 


$DBFE 
$DC01 

$DC06 

$DC07 

$DCOB 
$DCOC 
$DCOE 

$DCOF 

$DC11 
$DC13 

$DC14 
$DC18 

$DC1B 


$DC1E 
$DC21 


$DC29 
$DC2C 

$DC2E 

$DC32 
$DC33 

$DC37 

$DC39 

$DC3D 


Pull  replacement  sector  link  off  the 
stack  and  put  it  in  SECTOR   ($81) . 
Load   .A  with  $67  to  indicate  a  SYSTEM 
TRACK  OR  SECTOR  error  and  JMP  to  CMDER2 
($E645) . 

Push  the  replacement  track  link  onto 
the  stack. 

Load   .A  v^ith  $00.   Zero  the  replacement 
track  link  in  the  entry  (RO),Y. 
Increment  .Y. 

Zero  replacement  sector  link  in  (RO),Y. 
Pull  the  replacement  track  link  off 
the  stack. 

Load   .Y  with  the  original  pointer  value 

from  TEMP+2    ($71).  Note:   pointer  at 

(RO) ,Y  now  points  to  the  second  byte  of 

the  entry,   the  track  link. 

Store  the  replacement  track  link  as  the 

final   track  link  in    (RO) ,Y. 

Increment   .Y.   Note:   the  pointer  at 

(RO) ,Y  now  points  to  the  third  byte  of 

the  entry,   the  sector  link. 

Move  the  old  sector  link  from   (RO),Y  to 

SECTOR    ($81)  . 

Pull  the  replacement  sector  link  off  the 
stack  and  store  it  as  the  final  sector 
link  in    (RO) ,Y. 

JSR  to  DEIFIL    ($C87D)    to  delete  the  old 
file  from  the  BAM  by  following  the  track 
and  sector  links. 

JSR  to  CLSD6    ($DC29)    to  finish  closing. 
Load   .A  with  the  file  type  from    (RO) ,Y, 
AND  it  with  $0F  to  mask  off  any  high 
order  bits,   OR  it  with  $80  to  set  the 
closed  bit,  and  store  the  result  back 
in    (RO) ,Y. 

Load   .X  with  the  active  buffer  number 
that  was  saved  into  WLINDX    ($0270)  . 
Load   .Y  with  $1B    (#27).   The  pointer  at 
(RO),Y  now  points  to  the  low  byte  of  the 
number  of  blocks  in  the  file. 
Copy  the  lo  byte  of  the  number  of  blocks 
from  NBKL,X    ($B5,X)    to  (RO),Y. 
Increment  .Y. 

Copy  the  hi  byte  of  the  number  of  blocks 

from  NBKH,X    ($BB,X)    to    (RO) ,Y. 

Pull   the  original  buffer  number  off  the 

stack  and  transfer  it  into  .X. 

Load   .A  with  $90    (write  job  code)    and  OR 

it  with  the  drive  number  in  DRVNUM($7F). 

JSR  to  DOIT    ($D590)    to  write  out  the 

revised  directory  sector. 
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$DC40 
$DC43 


OPNRCH 


ORIO 


OR20 


$DC46 

$DC4B 
$DC4E 

$DC52 


$DC57 
$DC5A 
$DC5C 

$DC60 

$DC65 
$DC6A 

$DC74 
$DC79 

$DC7E 

$DC81 
$DC83 
$DC85 


Pull  the  original   secondary  address  off 
the  stack  and  transfer  it  into  SA  ($83). 
JMP  to  FNDWCH    ($D107)    to  exit. 

Open  read  channel  with  two  buffers: 
Sets  secondary  address  in  LINTAB  and 
initializes  all  pointers,    including  the 
ones  for  a  relative  file. 
Load   .A  with  $01  and  JSR  to  GETRCH 
($D1E2)    to  set  up  one  read  channel 
JSR  to  INITP    ($DCB6)    to  clear  pointers. 
Load   .A  with  the  file  type  and  save  this 
value  on  the  stack. 

Multiply  the  file  type  in   .A  by  2    (ASL) , 
OR  it  with  the  current  drive  in  DRVNUM 
($7F)    and  store  it  in  FILTYP,X  to  set 
the  file  type. 

JSR  to  STRRD    ($D09B)    to  read  the  first 
one  or  two  blocks  in  the  file. 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load  .A  with  the  current  track  number 
from  TRACK  ($80).  If  the  track  number 
is  not  $00  (not  the  last  block  in  the 
file),   branch  to  CKIO. 

Load   .A  with  the  current  sector  number 
from  SECTOR    ($81).    Since  TRACK=$00,  this 
is  the  pointer  to  the   last  character  in 
the  file.   Store  this  value  in  LSTCHR,X 
($0244, X) . 

Pull  the  original   file  type  off  the 
stack.   If  this  is  not  a  relative  file, 
branch  to  OR30. 

Load   .Y  with  the  secondary  address  from 
SA    ($83).   Load  the  channel   type  from 
LINTAB, Y    ($022B,Y) ,   OR  it  with  $40  to 
mark  it  as  a  READ/WRITE  file,   and  store 
the  channel   type  back  in  LINTAB, Y. 
Copy  the  record  size  from  REC  ($0258) 
into  RS,X    ($C7,X) . 

JSR  to  GETBUF    ($D28E)    to  set  up  a  buffer 
for  the  side  sectors.    If  a  buffer  is 
available,   branch  to  OR20. 
Since  no  buffer  is  available  for  the 
side  sectors,   abort  with  a  JMP  to  GBERR 
($D20F) . 

Load   .X  with  the  active  buffer  number 
(side  sector  buffer)    from  LINDX    ($82)  . 
Store  the  side  sector  buffer  number  in 
SS,X    ($CD,X) . 

Copy  the  side  sector  track  link  from 
TRKSS    ($0259)    into  TRACK    ($80)  . 
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OROW 


OR30 


INITP 


$DC8A 
$DC8F 
$DC92 
$DC95 
$DC98 
$DC9A 
$DCAO 

$DCA3 
$DCA6 

$DCA9 
$DCAC 

$DCAE 

$DCB1 

$DCB5 

$DCB6 
$DCB8 

$DCBC 

$DCC1 

$DCC7 
$DCC9 

$DCCE 

$DCD4 
$DCD9 


Copy  the  side  sector  sector  link  from 
SECSS    ($025A)    into  SECTOR    ($81)  . 
JSR  to  SETH    ($D6D3)    to  set  up  the  side 
sector  header  image. 

JSR  to  RDSS    ($DE73)    to  read  in  the  side 
sector  block. 

JSR  to  WATJOB    ($D599)    to  wait  for  the 
job  to  be  completed. 

Load   .X  with  the  active  buffer  number 
(side  sector  buffer)    from  LINDX  ($82). 

Set  the  next  record  pointer  in  the  side 

sector  buffer  NR,X    ($C1,X)    to  $02. 

Load    ,A  with  $00  and  JSR  to  SETPNT 
($D4C8)    to  set  the  buffer  pointers  to 

the  start  of  the  side  sector  buffer. 

JSR  to  RD4C    ($E153)    to  set  up  the  first 

record . 

JMP  to  GETHDR   ($DE3E)    to  restore  the 
track  and  sector  pointers  and  exit. 

JSR  to  RDBYT    ($D156)    to  read  a  byte. 
Load   .X  with  the  active  buffer  number 
(side  sector  buffer)    from  LINDX  ($82). 
Store  the  data  byte    (in   .A)  into 
CHNDAT,X    ($023E,X) . 

Store  $88    (ready  to  talk)    as  the  channel 
status   in  CHNRDY,X  ($F2,X). 
Terminate  routine  with  an  RTS. 

Initialize  variables  for  open  channel: 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82) . 

Load  buffer  number  from  BUFO,X  ($A7,X), 
multiply  it  by  two    (ASL) ,   and  transfer 
the  result  into  .Y. 
Store  $02   into  the  buffer  pointer 
BUFTAB,Y    ($0099, Y)    so   it  points   to  the 
first  data  byte  in  the  buffer. 
Load   .A  with  the  alternative-buffer 
number  from  BUF1,X    ($AE,X),  OR  it  with 
$80  to  set  the  buffer-inactive  bit,  and 
store  the  result  back  in  BUF1,X. 
Multiply  the  buffer  number    (in   .A)  by 
two    (ASL)    and  transfer  the  result  to  .Y. 
Store  $02   into  the  buffer  pointer 
BUFTAB,Y    ($0099, Y)    so  it  points  to  the 
first  data  byte  in  the  buffer. 
Zero  the   lo  and  hi  bytes  of  the  number 
of  blocks  written,   NBKL,X    ($B5,X)  and 
NBKH,X    ($BB,X) . 

Zero  the   last  data  byte  LSTCHR,X 
($0244) ,X. 

Terminate  routine  with  an  RTS. 
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OPNWCH 


OWIO 


OW2  0 


$DCDA 

$DCDD 

$DCE2 

$DCE5 
$DCE8 

$DCEA 

$DCEE 

$DCF3 

$DCF8 

$DCFC 
$DCFD 
$DCFF 

$DD09 
$DDOE 

$DD13 

$DD16 
$DD18 
$DD1A 
$DD1D 
$DD20 
$DD25 
$DD2A 


Open  write  channel  with  two  buffers: 
JSR  to  INTTS    ($F1A9)    to  get  the  first 
track  and  sector. 

Load   .A  with  $01  and  JSR  to  GETWCH 
($D1DF)    to  get  one  buffer  for  writing. 
JSR  to  SETHDR    ($D6D0)    to  set  up  header 
image . 

JSR  to  INITP    ($DCB6)    to  set  up  pointers. 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  file  type  from  TYPE 

($024A)  and  save  it  onto  the  stack. 
Multiply  the  file  type  in   .A  by  two 

(ASL) ,   OR  it  with  the  drive  number  from 
DRVNUM    ($7F) ,   and  store  the  result  as 
the  file  type  in  FILTYP,X  ($EC,X). 
Pull   the  original  file  type  off  the 
stack  and  if  this  is  a  relative  file 

(type  =   $04),   branch  to  OWIO. 

Since  this  is  not  a  relative  file,  set 

channel   status,   CHNRDY,X    ($F2,X)    to  $01 

(active  listener). 

Terminate  routine  with  an  RTS. 

Load   .Y  with  the  secondary  address  from 
SA  ($83). 

Load  .A  with  the  buffer  type  from 
LINTAB,Y  ($022B,Y),  AND  it  with  $3F  to 
mask  off  higher  order  bits,  OR  it  with 
$40  to  flag  this  as  a  READ/WRITE  file, 
and  store  the  result  back  in  LINTAB,Y. 
Copy  record  size  from  REC  ($0258)  into 
RS,X    ($C7,X) . 

JSR  to  GETBUF    ($D28E)    to  get  a  new 
buffer  for  storing  the  side  sectors. 
If  a  buffer  is  available,  branch  to  OW20 
No  buffer  available  so  abort  v/ith  a 
JMP  to  GBERR    ($D20F) . 

Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Store  the  new  side  sector  buffer  number 
into  SS,X    ($CD,X) . 

JSR  to  CLRBUF    ($DEC1)    to  clear  the 
side  sector  buffer. 

JSR  to  NXTTS    ($F11E)    to  find  the  next 
available  track  and  sector. 
Copy  the  new  track  link  from  TRACK  ($80) 
to  TRKSS    ($0259)  . 

Copy  the  new  sector   link  from  SECTOR 
($81)    to  SECSS    ($025A) . 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 
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$DD2C 

$DD2E 
$DD31 


$DD36 
$DD3B 

$DD40 
$DD45 

$DD4B 

$DD50 

$DD55 

$DD5A 
$DD5D 

$DD62 

$DD67 
$DD6A 
$DD6D 

$DD72 
$DD74 

$DD7B 
$DD7E 

$DD81 


Load   .A  with  the  side  sector  buffer 
number  from  SS,X  ($CD,X). 

JSR  to  SETH  ($D6D3)  to  set  up  the  header 
Load   .A  with  $00  and  JSR  to  SETSSP 

($DEE9)    to  set  the  buffer  pointers 
using  the  current  SS  pointer    (in  .A) 
Load   .A  with  $00  and  JSR  to  PUTSS 

($DD8D)    to  set  a  null   side  sector  link. 
Load   .A  with  $11    (the  side  sector  offset 
plus  1)    and  JSR  to  PUTSS    ($DD8D)    to  set 
the  last  character. 
Load   .A  with  $00  and  JSR  to  PUTSS 

($DD8D)    to  set  this  side  sector  number. 
Load   .A  with  the  record  size  from  REC 

($0258)    and  JSR  to  PUTSS    ($DD8D)    to  set 
the  record  size. 

Load   .A  with  the  file  track  link  frorr. 
TRACK    ($80)    and  JSR  to  PUTSS    ($DD8D)  to 
set  the  track  link. 

Load   .A  with  the  file  sector  link  from 
SECTOR    ($81)    and  JSR  to  PUTSS    ($DD8D)  to 
set  the  sector  link. 
Load  .A  with  the  side  sector  offset 
($10)    and  JSR  to  PUTSS    ($DD8D)    to  set 
the  side  sector  offset. 

JSR  to  GETHDR   ($DE3E)    to  get  the  track 
and  sector  of  the  first  side  sector. 
Load   .A  with  the  SS  track  link  from 
TRACK    ($80)    and  JSR  to  PUTSS  ($DD8D) 
set  the  SS  track  link. 
Load   -A  with  the  SS  sector  link  from 
SECTOR    ($81)    and  JSR  to  PUTSS  ($DD8D) 
set  the  SS  sector  link. 
JSF  to  WRTSS    ($DE6C)    to  write  out  the 
side  sector  block. 

JSR  to  WATJOB    ($D599)    to  wait  for  the 
write  job  to  be  completed. 
Load   .A  with  $02  and  JSR  to  SETPNT 
($D4C8)    to  set  the  pointer  into  the 
data  buffer  to  the  start  of  the  data. 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Set  the  carry  flag,    load   .A  with  $00, 

subtract  the  record  size  from  RS,X 
($C7,X),   and  store  the  result  in  NR,X 
($C1,X)    to  set  NR  for  a  null  buffer. 

JSR  to  NULBUF    ($E2E2)    to  set  null 

records  in  the  active  buffer. 

JSR  to  NULLNK    ($DE19)    to  set  track  link 

to  $00  and  sector  link  to  last  non-zero 

character . 

JSR  to  WRTOUT    ($DE5E)    to  write  out  the 
null  record  block. 


to 


to 
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PUTSS 


SCFLG 


SETFLG 


CLRFLG 


CLRFIO 


TSTFLG 


TSTWRT 


$DD84 
$DD87 
$DD8A 

$DD8D 
$DD8E 

$DD90 

$DD92 

$DD95 

$DD97 
$DD99 
$DD9B 

$DD9D 
$DD9F 
$DDA1 

$DDA3 
$DDA5 

$DDA6 
$DDA8 
$DDAA 

$DDAB 

$DDAE 
$DDAF 


JSR  to  WATJOB    ($D599)    to  wait  for  the 

write  job  to  be  completed. 

JSR  to  MAPOUT    ($EEF4)    to  write  out  the 

BAM. 

JMP  to  OROW   ($DC98)    finish  opening  the 
channe 1 . 

Put  byte  into  the  side  sector: 
Push  byte  in   .A  onto  the  stack. 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  side  sector  buffer 
number  from  SS,X    ($CD,X) . 
JMP   to  PUTBl    ($CFFD) . 

Set/Clear  flag: 

If  carry  flag  clear,   branch  to  CLRFLG 
Set  flag: 

Load   .X  with  the  active  buffer  number 
from  LINDX    ($82) . 

OR  the  byte  in   .A  with  the  file  type  in 
FILTYP,X    ($EC,X) . 

If  result  is  not  $00,   branch  to  CLRFIO. 
Clear  flag: 

Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

EOR  the  byte  in   .A  with  $FF  to  flip  all 
the  bits. 

AND  the  byte  in  .A  with  the  file  type  in 
FILTYP,X    ($EC,X) . 

Store  the  result  in   .A,   as  the  new  file 
type  in  FILTYP,X    ($EC,X) . 
Terminate  routine  with  an  RTS. 

Test  flag: 

Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

AND  the  byte  in   .A  with  the  file  type 
in  FILTYP,X    ($EC  ,X)  . 
Terminate  routine  with  an  RTS. 

Test   if  this  is  a  write  job: 
JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Transfer   the  buffer  number  to  .X. 
Load   .A  with  the   last  job  code  from 
LSTJOB,X    ($025B) ,   AND  the   job  code  with 
$F0  to  mask  off  the  drive  bits,  and 
compare  the  result  with  $90    (write  job 
code) .   This  sets  the  Z  flag  if  this  is 
a  write  job. 
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TSTCHN 
TSTC20 


TSTC30 


TSTRTS 
TSTC40 


SCRUB 


$DDB6 


$DDB7 
$DDB9 
$DDBB 


$DDC2 


$DDC9 

$DDCA 
$DDCC 


$DDCF 

$DDD6 
$DDD9 


$DDE1 

$DDE8 

$DDEF 
$DDFO 


$DDF1 


Terminate  routine  with  an  RTS. 

Test  for  active  files   in  LINEX  tables: 
C=0   if  file  active  X=ENTFND;  Y=LINDX 
C=l   if  file  inactive  X=18 
Load   .X  with  $00    (secondary  address) 
Save   .X  value  into  TEMP  +  2    ($71)  , 
Load   .A  with  the  buffer  number  for  this 
secondary  address  from  LINTAB,X  (022B,X) 
If  the  buffer  number  is  NOT  $FF,  branch 
to  TSTC40  for  further  testing. 
Restore   .X  value  from  TEMP+2    ($71)  and 
increment  it  by  1,    If  the  resulting  .X 
value  is   less  than  $10    (the  maximum 
sec.   address  -  2),    loop  back  to  TSTC20. 
Terminate  routine  with  an  RTS. 

Save   .X  value  into  TEMP  +  2    ($71)  . 

AND  the  buffer  number  in   .A  with  $3F  to 

mask  off  the  higher  order  bits  and 

transfer  the  result  into  .Y. 

Load   .A  with  the  file  type  for  this 

secondary  address  from  FILTYP,Y  ($EC,Y), 

AND  it  with  $01   to  mask  off  the 

non-drive  bits,   and  store  the  result  in 

TEMP+1    ($70)  . 

Load   .X  with  the  index  entry  found 
from  ENTFND    ($0253)  . 

Load   .A  with  the  drive  number  for  this 
secondary  address  from  FILDRV,X  ($E2,X), 
AND  it  with  $01   to  mask  off  the 
non-drive  bits,   and  compare  the  result 
with  the  drive  number  in  TEMP+1  ($70). 
If  the  drives  do  not  match,  branch  to 
TSTC30  . 

Drive  numbers  match,   now  check  if  the 
directory  entries  match  by  comparing 
the  entry  sector  in  DSEC , Y ( $0 2 6C , Y)  with 
the  one  in  ENTSEC,X    ($D8,X).    If  they  do 
not  match,   branch  to  TSTC30. 
Drive  numbers  are  match,   now  check  if 
the  directory  entries  match  by  comparing 
the  entry  index  in  DIND,Y    ($0266, Y)  with 
the  one  in  ENTIND,X    ($DD,X) .    If  they  do 
not  match,   branch  to  TSTC30. 
Clear  the  carry  flag  to  indicate  that 
all  tests  passed  and  active  file  found. 
Terminate  routine  with  an  RTS. 

Write  out  buffer   if  dirty: 

NOTE:  a  buffer  is  dirty  if  the  copy  in 
RAM  has  been  modified  so  it  does 
not  match  the  copy  on  disk. 

JSR  to  GAFLGS    ($DF9E)    to  get  active 

buffer  number  and  set  in  LBUSED. 
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SCRl 


SETLNK 


GETLNK 


NULLNK 


SETOO 


$DDF4 
$DDF6 
$DDF9 
$DDFC 

$DDFD 
$DE02 
$DE05 
$DE09 

$DEOC 
$DEOF 
$DE14 
$DE18 

$DE19 
$DE1C 
$DE21 
$DE23 

$DE2A 

$DE2B 
$DE2E 
$DE30 
$DE34 
$DE38 


If  V  flag  not  set,   buffer  is  not  dirty 
so  branch  to  SCRl . 

JSR  to  WRTOUT    ($DE5E)    to  write  out  the 
buffer  to  disk. 

JSR  to  WATJOB    ($D59  9)    to  wait  for  the 
job  to  be  completed. 
Terminate  routine  with  an  RTS. 

Put  TRACK  and  SECTOR  into  header: 

JSR  to  SETOO    ($DE2B)    to  set  up  pointer 

to  header. 

Move  desired  track  from  TRACK    ($80)  to 
(DIRBUF) ,Y;    ($94), Y.    Increment  .Y 

Move  desired  sector  from  SECTOR  ($81)  to 
(DIRBUF) ,Y;    ($94) ,Y. 

Terminate  routine  with  a  JMP  to  SDIRTY 
($E105)    to  flag  the  buffer  as  dirty. 

Set  TRACK  &  SECTOR  from  link  in  buffer: 
JSR  to  SETOO    ($DE2B)    to  set  up  pointer 
to  header. 

Move  track  link  from   (DIRBUF)  ,Y;  ($94)  ,Y 
to  TRACK    ($80)  .    Increment  .Y. 
Move  sector  link  from    (DIRBUF), Y 
($94) ,Y  to  SECTOR    ($80) . 
Terminate  routine  with  an  RTS. 

Set  track  link  to  $00  and  sector   link  to 
the  last  non-zero  character  in  buffer. 
JSR  to  SETOO    ($DE2B)    to  set  up  pointer 
to  header. 

Store  $00  as  track  lin]<    in    (DIRBUF)  ,Y 
($94) ,Y.    Increment  .Y. 

Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  pointer  into  the  data 
buffer  from  NR,X    ($C1,X),  decrement  it 
by  1,   and  store  the  result  as  the  sector 
link   in    (DIRBUF)  ,Y;    ($94)  ,Y. 
Terminate  routine  with  an  RTS. 

Set  up  pointer  to  active  buffer: 

JSR  to  GETACT    ($DF93)    to  get  the  active 

buffer  number    (returned  in  .A). 

Multiply  the  buffer  number    (in   .A)  by 

two    (ASL)    and  transfer  the  result  to  .X. 

Move  the  hi  byte  of  the  buffer  pointer 

from  BUFTAB+1,X    ($9A,X)    to  D IRBUF  + 1 ( $ 9 5 ) 

Store  $00  as  the  lo  byte  of  the  buffer 

pointer  in  DIRBUF    ($94)  . 

Zero   .Y  and  exit  routine  with  an  RTS. 
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CURBLK 
GETHDR 


WRTAB 

RDAB 

WRTOUT 

RDIN 

WRTSS 

RDSS 
RDS5 


SJIO 


SJ20 


RDLNK 


$DE3B 

$DE3E 

$DE41 
$DE43 

$DE45 

$DE4A 

$DE4F 

$DE50 

$DE57 

$DE5E 

$DE65 

$DE6C 

$DE73 
$DE75 
$DE78 

$DE7A 

$DE7F 

$DE82 

$DE85 
$DE86 

$DE8B 

$DE8E 

$DE91 
$DE92 

$DE95 


Set  TRACK  &  SECTOR  from  header: 

JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 

read  channel. 

JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Store  the  buffer  number  in  JOBNUM  ($F9) 
Multiply  the  buffer  number    (in   .A)  by 
two    (ASL)    and  transfer  the  result  to  .Y, 
Move  the  track  number  from  the  header 
table,   HDRS,X    ($0006, Y)    to  TRACK  ($80). 
Move  the  sector  number  from  the  header 
table,   HDRS+1 ,X ($0007 ,Y)    to  SECT0R($81). 
Terminate  routine  with  an  RTS. 

Do  read  and  write  jobs: 

Store  $90 (write  job  code)    in  CMD($024D) 

and  branch  to  SJIO    (always) . 

Store  $80  (read  job  code)    in  CMD($024D) 

and  branch  to  SJIO  (always). 

Store  $90 (write  job  code)    in  CMD($024D) 

and  branch  to  SJ20    (always) . 

Store  $80 (read  job  code)    in  CMD($024D) 

and  branch  to  SJ20    (always) . 

Store  $90 (write  job  code)    in  CMD($024D) 

and  branch  to  RDSS    (always) . 

Load   .A  with  $80  (read  job  code) 

Store  job  code    (in   .A)    into  CMD($024D). 

Load   .X  with  the  active  buffer  number 

from  LINDX    ($82)  . 

Load   .A  with  the  side  sector  buffer 
number  from  SS,X    ($CD,X)    and  tranfer  it 
to   .X.    If  the  SS  buffer  number  <  127, 
branch  to  SJ30. 

JSR  to  SETHDR  ($D6D0)  to  set  header  from 
TRACK  and  SECTOR. 

JSR  to  GETACT  to  get  the  active  buffer 

number    (returned  in  .A). 

Transfer  the  buffer  num.ber  to  .X. 

Copy  the  drive  number  from  DRVNUM  ($7F) 

to  LSTJOB,X    ($025B,X) . 

JSR  to  CDIRTY    ($E115)    to  clear  the 

dirty  buffer  flag. 

JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in   .A) . 
Transfer  the  buffer  number  to  .X. 
Continue  routine  with  JMP  to  SETLJB 
($D506)    to  set   last  used  buffer. 

Set  TRACK  &  SECTOR  from  link  in  buffer: 
Load   .A  with  $00  and  JSR  to  SETPNT 
($D4C8)    to  set  the  buffer  pointer  to  the 
first  byte  in  the  buffer    (track  link) . 
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$DE9A 
$DE9F 
$DEA4 


BOTOBO 


B02 


CLRBUF 


CBIO 


SSSET 


SSDIR 


$DEA5 

$DEA6 
$DEAC 


$DEB1 

$DEB6 

$DEB9 
$DECO 


$DEC1 
$DEC2 


$DEC7 
$DECC 
$DED1 


$DED2 
$DED7 
$DEDB 


$DEDC 
$DEDE 

$DEEO 

$DEE2 
$DEE3 

$DEE8 


JSR  to  GETBYT    ($D137)    to  read  the  track 
link.   Store  the  link  in  TRACK    ($80) . 
JSR  to  GETBYT    ($D137)    to  read  the  sector 
link.   Store  the  link  in  SECTOR   ($81)  . 
Terminate  routine  v;ith  an  RTS. 

Move  bytes  from  one  buffer  to  another: 
On  entry:    .A  =  number  of  bytes  to  move 

.Y  =  from  buffer  # 

.X  =  to  buffer  # 
Save  number  of  bytes  to  move    (in  .A) 
onto  the  stack. 

Zero  TEMP    ($6F)    and  TEMP+2  ($71). 
Move  the  hi  byte  of  the  from  buffer 
pointer  from  BUFIND,Y    ($FEEO,Y)  to 
TEMP+1    ($70) . 

Move  the  hi  byte  of  the  to  buffer 
pointer  from  BUFIND,X    ($FEEO,X)  to 
TEMP+3    ($72)  . 

Pull  the  number-of -by tes-to-move  from 
the  stack,  transfer  it  into  .Y,  and 
decrement   .Y  by  1    (0th  byte  is  #1) . 
Loop  using   .Y  as  a  count-down  index  to 
transfer  bytes  from   (TEMP)Y  to    (TEMP+2 )Y 
Terminate  routine  with  an  RTS. 

Clear  buffer:    (buffer  #   in  .A) 

Transfer  buffer  number  from   .A  to  .Y. 

Move  the  hi  byte  of  the  from  buffer 

pointer  from  BUFIND,Y    ($FEEO,Y)  to 

TEMP  +  1    ($70)  . 

Zero  TEMP    ($6F)    and  .Y 

Loop  to  fill  buffer  with  $00 's. 

Terminate  routine  with  an  RTS. 

Set  side  sector  pointer  to  $00: 

Zero   .A  and  JSR  to  SSDIR   ($DEDC)    to  set 

DIRBUF  with  current  SS  pointer. 

Load   .Y  with  $02.   Load   .A  with  the  side 

sector  pointer  from   (DIRBUF) ,Y;    ($94) ,Y. 

Terminate  routine  with  an  RTS. 

Use  SS  pointer  to  set  DIRBUF: 

On  entry:    .A  =   lo  byte 
Store  lo  byte    (in   .A)    into  DIRBUF  ($94). 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  side  sector  buffer 
number  from  SS,X    ($CD,X) . 
Transfer  SS  buffer  number  to  .X. 
Copy  hi  byte  of  buffer  pointer  from 
BUFIND    ($FEEO)    to  DIRBUF  +  1    ($95)  . 
Terminate  routine  with  an  RTS. 
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SETSSP 


SSPOS 


SSPIO 


SSP20 


$DEE9 
$DEEA 

$DEED 


$DEEE 
$DEF1 
$DEF4 
$DEF7 

$DEF8 
$DEFB 
$DEFD 
$DEFF 

$DF01 

$DF03 
$DF06 
$DF09 

$DFOB 

$DFOE 

$DF12 

$DF14 

$DF17 


IBRD 


$DF1B 


Use  SS  pointer  to  set  DIRBUF  &  BUFTAB: 

On  entry:    .A  =   lo  byte 
Save   lo  byte    (in   .A)    onto  the  stack. 
JSR  to  SSDIR    ($DEDC)    to  set  DIRBUF  from 
current  SS  pointer. 

On  return,    ,A  contains  the  hi  byte  of 
the  SS  buffer  pointer.   Save  the  hi  byte 
onto  the  stack. 

Transfer  the  SS  buffer  number  from  .X 
to   .A,   multiply  it  by  two    (ASL) ,  and 
transfer  it  back  into  .X. 
Pull  hi  byte  of  SS  buffer  pointer  off 
the  stack  and  store  it  in  BUFTAB+1,X 
($9A,X) . 

Pull   lo  byte  of  SS  buffer  pointer  off 
the  stack  and  store  it  in  BUFTAB, X 
($99, X) . 

Terminate  routine  with  an  RTS. 

Use  SSNUM  &   SSIND  to  set  SS  &  BUFTAB: 
On  return  V  =  0  all  OK 

V  =  1  out  of  range 
JSR  to  SSTEST    ($DF66)    to  test  if  SSNUM  & 
SSIND  are  resident  and  v/ithin  range. 
If  N  flag  set,   out  of  range  so  branch 
to  SSPIO. 

If  V  flag  clear,   it  is   in  residence  so 
branch  to  SSP20. 

Since  V  flag  set,   maybe  in  range  and 
maybe  not.   Do  another  test: 
Load   .X  with  the  active  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  side  sector  buffer 
number  from  SS,X    ($CD,X) . 
JSR  to  IBRD    ($DF1B)    to  read  in  the  SS. 
JSR  to  SSTEST    ($DF66)    to  test  again. 
If  N  flag  clear,    it  is   in  range  so 
branch  to  SSP20. 

Out  of  range  so  JSR  to  SSEND    ($E1CB)  to 
set  SS  &  BUFTAB  to  end  of   last  record. 
BIT  with  ERl    ($FECE)    to  set  flags  and 
terminate  routine  with  an  RTS. 
Load   .A  with  the  SS  pointer  from  SSIND 
($D6)  . 

JSR  to  SETSSP    ($DEE9)    to  set  DIRBUF  and 
BUFTAB. 

BIT  with  ERO    ($FECD)    to  set  flags  and 
terminate  routine  with  an  RTS. 

Indirect  block  read/write: 
On  entry:    .A  =  buffer  number  for  R/W 
.X  =  active  buffer  (LINDX) 
(DIRBUF) ,Y  points  to  T&S  to  be  R/W 
Store  buffer  number    (.A)    in  JOBNUM  ($F9) 
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IBWT 


IBOP 


GSSPNT 


SCALl 


SSCALC 


ADDT12 


$DF1D 


$DF21 
$DF23 

$DF25 
$DF26 


$DF2C 

$DF32 
$DF37 
$DF3B 

$DF40 

$DF45 
$DF47 
$DF49 

$DF4C 
$DF4E 
$DF51 
$DF54 


$DF57 
$DF5A 


$DF5C 
$DF5D 


Load  .A  with  $80  (read  job  code) 
branch  to  IBOP. 


and 


Store  buffer  number  (.A)  in  JOBNUM  ($F9) 
Load   .A  with  $90    (write  job  code) 

Push  the  job  code  onto  the  stack. 
Load   .A  with  the  file's  drive  number 
from  FILTYP,X    ($EC,X) ,   AND  it  with  $01 
to  mask  off  the  non-drive  bits,   and  use 
it  to  set  the  drive,   DRVNUM  ($7F) 
Pull   the  job  code  off  the  stack,  OR  it 
with  the  drive  number  in  DRVNUM    ($7F)  , 
and  store  the  result  in  CMD    ($024D) . 
Move  the  track  number  from   (DIRBUF) ,Y 
($94) ,Y  to  TRACK    ($80) .    Increment  .Y 
Move  the  sector  number  from    (DIRBUF) ,Y 
($94)  ,Y  to  SECTOR    ($81)  . 
Load   .A  with  the  buffer  number  from 
JOBNUM    ($F9)    and  JSR  to  SETH    ($D6D3)  to 
set  up  the  header. 

Load  .X  with  the  buffer  number  from 
JOBNUM    ($F9)    and  JMP  to  D0IT2  ($D593) 
to  do  the  job. 

Get  side  sector  pointers: 

Load   .X  with  the  active  buffer  number 

from  LINDX    ($82)  . 

Load   .A  with  the  side  sector  buffer 
number  from  SS,X  ($CD,X) 

JMP  to  SETDIR ($D4EB)    to   set  the  DIRBUF 
pointers . 

Calculate  side  sectors: 

Load   .A  with  $78,   the  number  of  side 

sector  pointers  in  a  buffer. 

JSR  to  ADDT12    ($DF5C)    to  add  the  number 

of  side  sectors  needed  *  120. 

Decrement   .X.    If   .X         $00,   branch  to 

SCALl . 

Load   .A  with  the  number  of  SS  indices 

needed  from  T3    ($72)    and  multiply  it 

by  2    (ASL)    since  two  bytes    (track  &  sec) 

are  needed  for  each  index. 

JSR  to  ADDT12   to  add   .A  to  Tl   &  T2. 

Load   .A  with  the  number  of  SS  blocks 

needed  from  T4  ($73) 

Clear  the  carry  flag. 
Add  the  contents  of  Tl    ($70)    to  the 
contents  of  the  accumulator  and  store 
the  result  back  in  Tl    ($70)  . 
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ADDRTS 


SSTEST 


STIO 


ST20 


ST30 


ST40 


GETACT 


$DF61 
$DF63 
$DF65 


$DF66 
$DF69 

$DF6D 
$DF6F 

$DF73 

$DF77 

$DF7B 

$DF81 
$DF83 
$DF87 

$DF8B 
$DF8F 


$DF93 
$DF95 


If  carry  is  clear,   branch  to  ADDRTS. 
Increment  the  value  in  T2  ($71). 
Terminate  routine  v;ith  an  RTS. 


Test  SSNUM  &  SSIND  for  range  & 
Flag  meanings  on  exit: 


residence 


N 

Range 

V 

Residence 

0 

OK 

0 

YES 

ERO 

0 

MAYBE 

1 

NO 

ERl 

1 

BAD 

0 

YES 

ER2 

1 

BAD 

1 

NO 

ER3 

JSR  to  SSSET    ($DED2)    to  set  the  pointer 
to  $00  and  get  the  SS  number    (in  .A). 
Compare  the  SS  number  in   .A  with  the 
one  in  SSNUM    ($D5) .   If  they  are  not 
equal,   branch  to  ST20. 
Load   .Y  with  the  pointer  into  the  SS 
buffer  from  SSIND  ($D6) 
Load   .A  from    (DIRBUF) ,Y;    ($94), Y.  If 
this  value  is  $00,   the  proper  side 
sector  is  not  present  so  branch  to  STIO. 
BIT  ERO    ($FECD)    to  clear  the  N  and  V 
flags.   All  OK  so  exit  with  an  RTS. 

Definitely  out  of  range  so  BIT  with  E2 
($FECF)    and  exit  with  an  RTS. 

Load   .A  with  the  SS  number  from  SSNUM 
($D5)    and  compare  it  with  $06,  the 
number  of  side  sector   linJcs.    If  the 
value  in  SSNUM  >  $06,   branch  to  ST30. 
Multiply  the  SS  number  in   .A  by  2  (ASL) 
and  transfer  the  result  into  .Y. 
Load   .A  with  $04,   and  store  this  value 
in  DIRBUF    ($94) ,    lo  byte  of  the  pointer. 
Load   .A  with  the  value  from   (DIRBUF) ,Y 
($94) ,Y.    If  this  value  is  not  $00, 
branch  to  ST40. 

Way  out  of  range  so  BIT  with  E3  ($FEDO) 
and  exit  with  an  RTS. 

Not  in  residence  and  range  is  unknown 
so  BIT  with  El    ($FECE)    and  exit  with  RTS 

Get  active  buffer  number: 
On  exit:    .A  =  active  buffer  number 
.X  =  LINDX 
Flag  N  =  1   if  no  active  buffer 
Load   .X  with  the  current  buffer  number 
from  LINDX    ($82)  . 

Load   .A  with  the  buffer  number  from 
BUFO,X    ($A7,X).    If  bit  7  is  not  set, 
this  buffer  is  active  so  branch  to  GAl . 
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GAl 


GAFLGS 
GA2 


GA3 


GETINA 


GIIO 


PUTINA 


$DF99 
$DF9B 
$DF9D 


$DF9E 

$DFAO 
$DFA3 


$DFA7 


$DFAE 

$DFBO 
$DFB2 


$DFB6 

$DFB7 
$DFB9 

$DFBD 
$DFBF 
$DFC1 

$DFC2 
$DFC4 
$DFC6 


Load   .A  with  the  buffer  number  from 
BUFl ,X    ($AE,X) , 

AND  the  buffer  number  vjith  $BF  to  strip 
the  dirty  bit. 

Terminate  routine  with  an  RTS . 


Get  active  buffer  &   set  LBUSED: 
On  exit:    .A  =  active  buffer  number 
.X  =  LINDX 
Flag  N  =   1   if  no  active  buffer 
Flag  V  =   1  if  buffer  is  dirty 
Load   .X  with  the  current  buffer  number 
from  LINDX    ($82)  , 

Save  buffer  number  into  LBUSED    ($0257)  . 
Load   .A  with  the  buffer  number  from 
BUFO,X    ($A7,X) .    If  bit  7   is  not  set, 
this  buffer  is  active  so  branch  to  GA3 . 
Transfer  the  buffer  number  from  .X  to 
•A,   clear  the  carry  flag,   add  $07  (the 
maximum  number  of  channels  +   1),  and 
store  the  result  in  LBUSED    ($0257) . 
Load   .A  v/ith  the  buffer  number  from 
BUFl ,X    ($AE,X) . 

Store  the  buffer  number  in  Tl    ($70) . 
AND  the  buffer  number  with  $1F  and  BIT 
the  result  with  Tl    ($70)    to  set  the 
N  and  V  flags. 

Terminate  routine  with  an  RTS. 


Get  a  channel's  inactive  buffer  number: 
On  entry:     LINDX  =  channel  number 
On  exit:    .A  =  buffer  #  or  $FF  if  none 

Load   .X  with  the  channel  number  from 

LINDX    ($82)  . 

Load   .A  with  the  buffer  number  from 
BUFO,X    ($A7,X).    If  bit  7  is  set,  this 
buffer  is  inactive  so  branch  to  GIIO. 
Load   .A  with  the  buffer  number  from 
BUF1,X    ($AE,X) . 

Compare  the  buffer  number  with  $FF  to 
set  the  Z   flag  if  inactive  buffer  found. 
Terminate  routine  with  an  RTS. 

Set  the  inactive  buffer's  buffer  number: 

On  entry:      .A  =  buffer  number 
Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 

OR  the  buffer  number  in   .A  with  $80  to 
set  the  inactive  buffer  bit. 
Load   .Y  with  the  buffer  number  from 
BUFO,X    ($A7,X) .    If  bit  7   is  clear,  the 
other  buffer  is  the  inactive  one  so 
branch  to  PIl. 
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PIl 


NXTREC 


NXTR15 


NXTR20 


$DFCA 
$DFCC 
$DFCD 
$DFCF 

$DFDO 

$DFD5 

$DFDC 
$DFDE 

$DFE2 
$DFE4 
$DFE6 
$DFE8 
$DFEA 
$DFED 
$DFEF 

$DFF3 

$DFF6 

$DFF8 

$DFFA 

$DFFD 

$DFFF 
$E001 

$E006 


This  buffer  is  inactive  so  store  new 
buffer  number  in  BUFO,X  ($A7,X). 
Exit  with  an  RTS. 

This  buffer  is  inactive  so  store  new 
buffer  number  in  BUF1,X  ($AE,X). 
Exit  with  an  RTS. 


Set  up  next  relative  record: 
Load   .A  with  $20    (overflow  flag)  and 
JSR  to  CLRFLG    ($DD9D)    to  clear  the 
record  overflow  flag. 

Load   .A  with  $80    (last  record  flag)  and 
JSR  to  TSTFLG    ($DDA6)    to  test  if  we  are 
out  beyond  the   last  record.    If  not, 
branch  to  NXTR40. 

Load   .X  with  the  current  channel  number 
from  LINDX    ($82)  . 

Increment  the  lo  byte  of  the  record 
counter  in  RECL,X    ($B5,X).    If  the  result 
is  not   $00,   branch  to  NXTR15. 
Increment  the  hi  byte  of  the  record 
counter   in  RECH,X  ($BB,X). 
Load   .X  with  the  current  channel  number 
from  LINDX    ($82) . 

Load   .A  with  the  pointer  to  the  next 
record  from  NR,X  ($C1,X). 

If  the  next  record  pointer  is  $00,  there 
is  no  next  record  so  branch  to  NXTR45. 
JSR  to  GETPNT    ($D4E8)    to  get   the  buffer 
pointer . 

Load   .X  with  the  current  channel  number 
from  LINDX    ($82)  . 

Compare  the  buffer  pointer  in  .A  with 
the  pointer  in  NR,X  ($C1,X).  If  BT<NR 
then  branch  to  NXTR20. 

Not  in  this  buffer,   must  be  in  the  next 
one   so  JSR  to  NRBUF    ($E03C)    to  set  up 
the  next  one. 

Load   .X  with  the  current  channel  number 
from  LINDX    ($82)  . 

Load   .A  with  the  pointer  to  the  next 
record  from  NR,X  ($C1,X). 
JSR  to  SETPNT    ($D4C8)    to  advance  to  the 
next  record. 

Load   .A  with  the  first  byte  of  the 
record  from    (BUFTAB,X)    ($99, X). 
Save  the  first  data  byte  into  DATA  ($85) 
Load   .A  with  $20    (overflow  flag)  and 
JSR  to  CLRFLG    ($DD9D)    to  clear  the 
record  overflow  flag. 

JSR  to  ADDNR    ($E304)    to  advance  the  NR 
pointer . 
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NXOUT 


NXTR45 
NXTR40 


NXTR50 

NXTR30 
NXTR35 


NRBUF 


$E0C9 


$EOOC 


$E013 

$E018 

$E01D 
$E020 

$E025 
$E029 

$E02A 
$E02D 

$E033 

$E034 

$E035 

$E039 


$E03C 
$E03F 
$E042 

$E047 
$E04A 

$E04D 
$E052 


Save  the  new  value  of  NR    (in   .A)  onto 
the  stack.    If  the  carry  flag  is  clear, 
we  have  NOT  crossed  a  block  boundary  so 
branch  to  NXTR30. 

Load   .A  with  $00  and  JSR  to  DRDBYT 
($D4F6)    to  read  the  track  link  of  the 
data  block.    If  the  track   link  is  not 
$00,   this  is  not  the   last  block  so 
branch  to  NXTR30. 

Pull   the  new  NR  value  off  the  stack  and 
compare  it  to  $02.    If  it  equals  $02, 
branch  to  NXTR50. 

Load   .A  with  $80    (last  record  flag)  and 
JSR  to  SETFLG    ($DD97)    to  set   this  flag. 
JSR  to  GETPRE    ($D12F)    to  get  pointers. 
Move  the  data  byte  from  BUFTAB,X    ($99, X) 
to  LSTCHR    ($0244)  . 

Store  $0D  (carriage  return)  in  DATA($85) 
Terminate  routine  with  an  RTS. 

JSR  to  NXTR35    ($E035)    to  store  NR  value 
Load   .X  with  the  channel   number  from 
LINDX    ($82).    Store   $00   in  NR,X  ($C1,X). 
Terminate  routine  with  an  RTS. 

Pull   the  new  NR  value  off  the  stack. 

Load   .X  with  the  channel  number  from 
LINDX    ($82)  .   Store  the  byte  in   .A  into 
NR,X    ($C1 ,X) . 

Terminate  routine  with  a  JMP  to  SETLST 
($E16E)  to  set  the  pointer  to  the  last 
character . 


Set  up  next  record  in  buffer: 
JSR  to  SETDRN    ($D1D3)    to  set  drive 
number  to  agree  with  the   last  job. 
JSR  to  RDLNK    ($DE95)    to  set  TRACK  and 
SECTOR  from  the  track  &   sector  link. 
JSR  to  GAFLGS    ($DF9E)    to  test   if  the 
current  buffer  is  dirty    (changed) .  If 
V  flag  clear,    it   is  clean;   branch  to 
NRBU50  so  we  don't  write  it  out. 
JSR  to  WRTOUT    ($DE5E)    to  write   it  out. 
JSR  to  DBLBUF    ($CF1E)    to  toggle  the 
active  and  inactive  buffers. 
Load   .A  with  $02  and  JSR  to  SETPNT 
($D4C8)    to  set   the  pointer  to  point  to 
the  first  data  byte  in  the  new  sector. 
JSR  to  TSTWRT    ($DDAB)    to  test  if  the 
last  job  was  a  write.    If  it  was  not  a 
write  job,   branch  to  NRBU20  ($E07B) 
since  buffer  is  OK. 
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NRBU50 


NRBU70 


NRBU20 


RELPUT 


RELP0  6 
RELP05 


$E057 
$E05A 
$E05D 
$E060 

$E065 
$E068 
$E06B 
$E06E 

$E072 
$E075 
$E078 
$E07B 

$E07C 
$E07F 
$E082 
$E084 
$E088 

$E08D 
$E08F 


$E094 
$E096 
$E097 

$E099 


JSR  to  RDAB    ($DE57)    to  read  in  needed 
buffer . 

JSR  to  WATJOB    ($D599)    to  wait  for  the 

read  job  to  be  completed. 

JSR  to  DBLBUF    ($CF1E)    to  toggle  the 

active  and  inactive  buffers. 

JSR  to  TSTWRT    ($DDAB)    to  test  if  the 

last  job  was  a  write.    If   it  was  not  a 

write  job,   branch  to  NRBU70. 

JSR  to  RDAB    ($DE57)    to  read  in  needed 

buffer . 

JSR  to  WATJOB    ($D599)    to  wait  for  the 
read  job  to  be  completed. 
JSR  to  RDLNK    ($DE95)    to  set  TRACK  and 
SECTOR  from  the  track  &  sector  link. 
Load   .A  with  the  track  link  from  TRACK 
($80).    If  track  link  is  $00,   this  is  the 
last  block  with  no  double  buffering 
needed  so  branch  to  NRBU20. 
JSR  to  DBLBUF    ($CF1E)    to  toggle  the 
active  and  inactive  buffers. 
JSR  to  RDAB    ($DE5E)    to  start  a  read  job 
for  the  inactive  buffer. 
JSR  to  DBLBUF    ($CF1E)    to  toggle  the 
active  and  inactive  buffers. 
Terminate  routine  with  an  RTS. 


Put  relative  record  into  buffer: 

JSR  to  SDIRTY    ($E105)    to  flag  buffer  as 

dirty    (RAM  version  changed) . 

JSR  to  GETACT    ($DF93)    to  get  active 

buffer  number    (returned  in   .A) . 

Multiply  the  buffer  number    (in   .A)  by 

two    (ASL)    and  transfer  the  result  to  .X. 

Copy  the  data  byte  from  DATA   ($85)  into 

the  buffer  at    (BUFTAB,X)    ($99, X). 

Load   .Y  with  the  lo  byte  of  the  pointer 

BUFTAB,X  and  increment  the  pointer  in 

. Y  by  1.    If  the  new  pointer  value  is  NOT 

$00,   branch  to  RELP05. 

Load   .Y  with  the  channel  number  from 

LINDX    ($82) . 

Load   .A  with  the  next  record  pointer 
from  NR,Y.   If  this  value  is  $00,  branch 
to  RELP0  7. 
Load   .Y  with  $02. 

Transfer  the  contents  of   .Y  to  .A. 
Load   .Y  with  the  channel  number  from 
LINDX    ($82) . 

Compare  the  contents  of   .A  to  NR,Y 
($C1,Y)    to  test  if  NR  =  pointer.    If  they 
are  not  equal,  NR  is  not  a  pointer  so 
branch  to  RELPIO  to  set  new  pointer. 
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RELP0  7 


RELPIO 


RELP20 


WRTREL 


WRIO 


WR20 


WR3  0 


WR40 


WR4  5 
WR50 


WR51 
WR60 


$E09E 


$E0A3 


$E0A7 
$EOAA 


$EOAB 

$EOBO 
$E0B2 

$E0B7 

$EOBB 
$EOBC 


$E0C1 
$E0C3 


$E0C8 
$EOCB 
$EOCE 
$E0D3 
$E0D6 
$E0D9 

$EODD 

$E0E1 
$E0E2 


Load  .A  with  $20  (the  overflow  flag) 
and  JMP  to  SETFLG  ($DD9  7)  to  set  the 
overflow  flag  and  exit. 

Increment  the  lo  byte  of  the  pointer 
BUFTAB,X    ($99, X) .    If  the  result  is  not 
$00,  we  don't  need  the  next  buffer  so 
branch  to  RELP20. 

JSR  to  NRBUF($E03C)  to  get  next  buffer, 
Terminate  routine  with  an  RTS. 


Write  out  relative  records: 
Load   ,A  with  $A0    (last  record  flag  + 
overflow  flag)    and  JSR  to  TSTFLG  ($DDA6) 
to  check  for  last  record  &  overflow. 
If  Z  flag  clear,   some  flag  is  set  so 
branch  to  WR50. 

Load   .A  with  the  byte  from  DATA  ($85) 
and  JSR  to  RELPUT    ($E07C)    to  put  the 
data  into  the  buffer. 

Load   ,A  with  the  EOIFLG    ($F8) .    If  it 
equals  $00,   an  EOI  was  NOT  sent  so 
branch  to  WR40. 

Terminate  routine  with  an  RTS. 

Load  .A  with  $20  (overflow  flag)  and 
JSR  to  TSTFLG  ($DDA6)  to  test  for  an 
overflow  error. 

If  Z  set,   no  error  so  branch  to  WR40. 
Overflow  error  so  load   .A  with  $51 

(recover  flag)    and  store  it  in  ERWORD 

($026C)    to  flag  the  error. 
JSR  to  CLREC    ($E0F3)    to  clear  the  rest 
of  the  record. 

JSR  to  RD40    ($E153)    to   set   up  for  the 
next  record. 

Load    .A  from  ERWORD    ($026C) .    If   it  is 
$00,   no  errors  so  branch  to  WR45. 
Abort  with  a  JMP  to  CMDERR  ($C1C8) 

Terminate  with  a  JMP  to  OKERR    ($E6BC) . 

AND  the  error  flag  in   .A  with  $80  (the 
last  record  flag) .   If  the  result  is  not 
$00,   the   last  record  flag  was  set  so 
branch  to  WR6  0  to  add  to  file. 
Load   .A  with  the  EOIFLG    ($F8).    If  this 
is  $00,   an  EOI  was  not  sent  so  branch 
to  WR3  0. 

Terminate  routine  with  an  RTS. 

Load   .A  with  the  data  byte  from  DATA 
($85)    and  push  it  onto  the  stack. 
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CLREC 


CLRIO 


SDIRTY 


CDIRTY 


RDREL 


RDIO 


$E0E5 
$E0E9 
$EOEB 
$EOFO 

$E0F3 
$E0F8 
$EOFA 
$E101 
$E104 

$E105 
$E107 
$E10A 

$E10D 

$E10F 

$E112 

$E114 

$E115 
$E118 
$E11A 
$E11D 
$E11F 

$E120 
$E125 
$E127 
$E12A 


JSR  to  ADDREL    ($E31C)    to  add  to  the 
relative  file. 

Pull   the  data  byte  off  the  stack  and 
put  it  back  in  DATA  ($85). 
Load   .A  with  $80    (last  record  flag)  and 
JSR  to  CLRFLG    ($DD9D)    to  clear  the  flag. 
JMP  to  WRIO. 


Clear  rest  of  relative  record: 
Load   .A  with  $20    (overflow  flag)  and 
"JSR  to  Tbl't'LG  ■($DuA6')    tx)"'fesr   the  "flag". 
If  Z  flag  not  set,   overflow  has  occured 
so  branch  to  CLRIO  to  exit. 
Set  DATA    ($85)    to  $00   and  JSR  to  RELPUT 
($E07C)    to  put  a  null  byte  in  the  buffer 
Loop  with  a  JMP   to  CLREC  ($E0F3). 

Terminate  routine  with  an  RTS. 


Set  buffer  dirty  flag: 

Load   .A  with  $40    (dirty  flag) . 

JSR  to  SETFLG    ($DD97)    to  set  flag. 

JSR  to  GAFLGS    ($DF9E)    to  get  active 

buffer  number  in   .A  and  set  flags. 

OR  the  contents  of   .A  with  $40  to  set 

the  dirty  flag. 

Load   .X  with  the  number  of  the  last 
buffer  used  from  LBUSED  ($0257). 
Store  the  content  of   .A  as  the  buffer 
number  in  BUFO,X  ($A7,X). 
Terminate  routine  with  an  RTS. 


Clear  buffer  dirty  flag: 

JSR  to  GAFLGS    ($DF9E)    to  get  active 

buffer  number  and  set  flags. 

AND  the  contents  of   .A  with  $BF  to  clear 

the  dirty  flag. 

Load   .X  with  the  number  of  the  last 
buffer  used  from  LBUSED    ($0257) . 
Store  the  content  of   .A  as  the  buffer 
number  in  BUF0,X  ($A7,X). 
Terminate  routine  with  an  RTS. 


Read  relative  record: 

Load   .A  with  $80    (last  record  flag)  and 
JSR  to  TSTFLG    ($DDA6)    to  test  the^flag. 
If  Z  flag  not  set,    last  record  error  has 
occured  so  branch  to  RD05. 

JSR  to  GETPRE  ($D12F)  to  set  pointers  to 
existing  buffer. 

Load   .A  with  the  lo  byte  of  the  buffer 
pointer  from  BUFTAB,X    ($99, X). 
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RD15 
RD20 
RD2  5 


RD30 


RD40 


RD05 


SETLST 


$E12C 

$E131 

$E135 

$E138 

$E13B 

$E13D 
$E140 

$E145 

$E14C 
$E14D 

$E152 

$E153 

$E156 

$E159 
$E15B 

$E15E 

$E160 

$E165 

$E169 

$E16E 
$E170 


Compare  this  value  to  the  contents  of 
LSTCHR,Y    ($0244).    If  they  are  equal, 
branch  to  RD40  because  we  want   the  next 
record  not  the   last  one. 

Increment  the  buffer  pointer  in  BUFTAB,X 
($99, X).    If  the  result   is  not  equal  to 
$00,   we  don't  need  the  next  buffer  so 
branch  to  RD20. 

JSR  to  NRBUF    ($E03C)    to  read  in  the 
next  buffer  of  relative  records. 
JSR  to  GETPRE    ($D12F)    to  set  pointers  to 
existing  buffer. 

Load   .A  with  the  data  byte  from 
(BUFTAB,X);    ($99, X). 

Store  the  data  byte  in  CHNDAT , Y ( $02 3E , Y) 
Load   .A  with  $89    (random  access  -  ready) 
and  store  this  as  the  channel   status  in 
CHNRDY, Y    ($F2 , Y) . 

Load  the  pointer  from  BUFTAB,X    ($99, Y) 
and  compare  it  to  the  pointer  to  the 
last  character  in  the  record  from 
LSTCHR,Y    ($0244, Y).    If  they  are  equal, 
branch  to  RD30  to  send  EOI. 
Terminate  routine  with  an  RTS. 

Load   .A  with  $81    (random  access  -  EOI) 
and  store  this  as  the  channel   status  in 
CHNRDY, Y    ($F2,Y) . 
Terminate  routine  with  an  RTS. 

JSR  to  NXTREC    ($DFDO)    to  get  the  next 
record . 

JSR  to  GETPRE  ($D12F)  to  set  pointers  to 
existing  buffer. 

Load   .A  with  the  byte  from  DATA    ($85)  . 
JMP  to  RD25  to  carry  on. 

No  record  error  so  load   .X  with  the 

channel  number  from  LINDX    ($82)  . 

Store  $0D    (carriage  return)    as  the  data 

byte   in  CHNDAT, X    ($023E,X) . 

Load   .A  with  $81    (random  access  -  EOI) 

and  store  this  as  the  channel  status  in 

CHNRDY, Y    ($F2 ,Y) . 

Load   .A  with  $50    (no  record  error)  and 
abort  with  a  JMP  to  CMDERR   ($C1C8) . 


Set  pointer  to  last  character  in  record: 
Load   .X  with  the  channel  number  from 
LINDX  ($82) 

Copy  the  next  record  pointer  from  NR,X 
($C1 ,X)    into  Rl    ($87) . 
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SETLOl 


SETL0  5 


SETLIO 


SETL4  0 


FNDLST 


FNDLIO 


$E174 

$E17A 
$E17E 
$E182 

$E18D 
$E190 

$E195 
$E197 
$E19A 

$E19D 
$E1A0 
$E1A4 

$E1A9 
$E1AC 
$E1AE 
$E1B1 

$E1B2 
$E1B5 
$E1B7 

$E1BB 


Decrement   the  pointer  in  Rl    ($87)    by  1 
and  compare  the  result  to  $02,  the 
pointer  to  the  first  data  byte  in  the 
sector.    If  the  pointer  does  not  equal 
$02,   branch  to  SETLOl. 

Store  $FF  into  Rl    ($87)    so  it  points  to 
the  last  byte  in  a  sector. 
Copy  the  record  size  from  RS,X  ($C7,X) 
into  R2    ($88) . 

JSR  to  GETPNT    ($D4EB)    to  get  the  pointer 
into  the  active  buffer    (returned  in  .A) 
Compare  this  value  with  the  pointer  in 
Rl  "($87).    If  Rl   >=   .A  branch  to  SETLIO. 
JSR  to  DBLBUF    ($CF1E)    to  toggle  the 
active  and  inactive  buffers. 
JSR  to  FNDLST    ($E1B2)    to  find  the  last 
character.   On  return,   if  carry  is  clear, 
branch  to  SETL05. 

Load   .X  with  the  channel   number  from 
LINDX    ($82)  . 

Store  the  character  in   .A  into  LSTCHR,X 
($0244  ,X)  . 

JMP  to  DBLBUF    ($CF1E)    to  toggle  the 
active  and  inactive  buffers  and  exit. 

JSR  to  DBLBUF    ($CF1E)    to  toggle  the 

active  and  inactive  buffers. 

Store  $FF  into  Rl    ($87)    so  it  points  to 

the   last  byte  in  a  sector. 

JSR  to  FNDLST    ($E1B2)    to  find  the  last 

non-zero  character  in  the  record.  On 

return,    if  carry  set,   branch  to  SETL40. 

JSR  to  GETPNT    ($D4E8)    to  get  the  pointer 

into  the  active  buffer    (returned  in  .A) 

Load   .X  with  the  channel  number  from 

LINDX    ($82)  . 

Store  the  character  in   .A  into  LSTCHR,X 
($0244, X) . 

Terminate  routine  with  an  RTS. 

Find  last  non-zero  character  in  record: 
JSR  to  SETOO    ($DE2B)    to  set  up  pointer 
to  start  of  buffer. 

Load  .Y  with  the  offset  to  start  at 
from  Rl    ($87)  . 

Load  .A  with  the  data  byte  from  the 
buffer  at    (DIRBUF),Y;    ($94), Y.    If  the 
data  byte  is  not  $00,   branch  to  FNDL20. 
Decrement  the  pointer  in   .Y.    If  the 
resulting  pointer   is   less  than  or  equal 
to  $0  2,   branch  to  FNDL3  0  since  the 
start  of  the  record  is  not  in  here. 
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FNDL3  0 


FNDL2  0 


SSEND 


SEIO 
SE20 


SE30 


$E1C0 
$E1C4 

$E1C8 
$E1C9 

$E1CE 
$E1CE 
$E1D0 
$E1D4 
$E1D8 
$E1DC 


$E1E0 
$E1E1 


$E1E6 
$E1E8 
$E1EA 

$E1EF 
$E1F3 


$E1F7 
$E1F8 


Decrement  the  record  size  in  R2  ($88). 
If  R2  has  not  counted  down  to  $00  yet, 
branch  FNDLIO. 

Decrement  the  record  size  in  R2    ($88)  . 
Clear  the  carry  flag  to  indicate  that 
the  record  was  not  found  here  and  exit 
from  the  routine  with  an  RTS. 

Found  the  last  non-zero  character  so 
transfer  the  pointer  from   .Y  to  .A. 
Set  the  carry  flag  to  indicate  it  was 
found  here  and  terminate  with  an  RTS. 

Set  SS  &  BUFTAB  to  end  of  last  record: 
JSR  to  SSSET    ($DED2)    to  set  the  SS 
pointer  to  $0  0. 

Store  the  side  sector  number  returned 
in   .A  into  SSNUM    ($D5) . 
Set  the  lo  byte  of  the  pointer  in 
DIRBUF    ($94)    to  $04. 

Load  .Y  with  $A0    (the  side  sector  offset 
less  6)    and  branch  to  SE20  (always). 
Decrement  pointer  in   .Y  by  2.    If  the 
result  is   less  than  $00,   branch  to  BREAK 
Look  for  the   last  SS  number  by  loading 
.A  from    (DIRBUF) ,Y;    ($94) ,Y.    If  the 
byte  is  $0  0,  we  have  not  found  it  yet 
so  branch  back  to  SEIO. 
Transfer  the  pointer  in   .Y  into  .A. 
Multiply  the  pointer  in   .A  by  2  (ASL) 
and  compare  the  result  to  the  side 
sector  number  in  SSNUM    ($D5) .    If  they 
are  equal,   this  is  the  last  SS  number 
so  branch  to  SE30. 

Store  the  SS  number  in   .A  into  SSNUM 
($D5) . 

Load  .X  with  the  channel  number  from 
LINDX    ($82)  . 

Load   .A  with  the  side  sector  from 
SS,X    ($CD,X)  and  JSR  to   IBRD  ($DF1B) 
to  do  an  indirect  block  read  of  the 
last  side  sector. 

Zero  .Y  and  set  the  lo  byte  of  the 
pointer  in  DIRBUF    ($94)    to  $00. 
Load   .A  with  track  link  from    (DIRBUF) ,Y 
($94) ,Y.   If  the  link  is  not  $00,  branch 
to  BREAK. 
Increment  .Y 

Load   .A  with  sector  link  fromi   (DIRBUF)  ,Y 
($94), Y.   This  points  to  the  last  good 
byte  in  the  buffer.   Transfer  the  pointer 
to  .Y,  decrement  it  by  1,   store  it  in 
SSIND    ($D6) ,   and  transfer  it  back  to  .A. 
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$E1FF       JMP  to  SETSSP    ($DEE9)    to  set  DIRBUF  and 
BUFTAB  with  current  88  pointer. 

BREAK         $E202       Load   .A  with  $67  to  indicate  a  SYSTEM 

TRACK  OR  SECTOR  error  and  JSR  to  CMDERR2 
($E645) . 


RECORD  COMMAND 


Position  pointer  to  given  record 


RECORD 


Note:    set  to  last  record  if  out  of  range 
JSR  to  CMDSET    ($C2B3)    to  initialize  the 
pointers  and  tables. 

Load   .A  with  the  second  character  in  the 
command  from  CMDBUF+1    ($0201)    and  use  it 
to  set  the  secondary  address  in  SA  ($83) 
JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 
read  channel . 

If  carry  flag  clear,   channel  found  so 
branch  to  R20. 

Load   .A  with  $70  to  indicate  a  NO 
CHANNEL  error  and  JSR  to  CMDERR    ($C1C8)  . 


R20 


R3  0 


$E207 
$E20A 

$E20F 
$E212 
$E214 

$E219 

$E21E 

$E223 

$E228 

$E22E 

$E233 

$E238 
$E23A 
$E23E 

$E243 


Load   .A  with  $A0    (last  record  flag  plus 
overflow  flag)    and  JSR  to  CLRFLG  ($DD9D) 
to  clear  these  flags. 

JSR  to  TYPFIL   ($D125)   to  determine  the 
file  type.    If  the  Z  flag  is  set,    it  is 
a  relative  file  so  branch  to  R30. 
Load   .A  with  $64  to  indicate  a  FILE  TYPE 
MISMATCH  error  and  JSR  to  CMDERR  ($C1C8) 

Load   .A  with  the  file  type  from  FILTYP,X 
($EC,X) ,   AND  the  type  with  $01  to  mask 
off  the  non-drive  bits,  and  store  the 
result  as  the  drive  #  in  DRVNUM    ($7F) . 
Load  .A  with  the  third  character  in  the 
command  from  CMDBUF+2    ($0202)    and  use  it 
to  set  the   lo  byte  of  the  record  number 
in  RECL,X    ($B5 ,X) . 

Load   .A  with  the  fourth  character  in  the 
command  from  CMDBUF+3    ($0203)    and  use  it 
to  set  the  hi  byte  of  the  record  number 
in  RECH,X    ($BB,X) . 

Load  .X  with  the  channel  number  from 
LINDX    ($82)  . 

Store  $89    (random  access  -  ready)    as  the 
channel   status   in  CHNRDY,X  ($F2,X). 
Load  .A  with  the  fifth  character  in  the 
command  from  CMDBUF+4    ($0204) .   This  is 
the  byte  pointer  into  the  record.    If  the 
byte  pointer  is  $00,  branch  to  R40. 
Set  the  carry  flag  and  subtract  $01  from 
the  byte  pointer.   If  the  result  is  $00, 
branch  to  R40. 
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R40 


R50 


R60 


POSITN 


P2 


P30 


$E248 

$E24C 
$E253 
$E2  5  5 
$E258 

$E25D 
$E262 

$E265 
$E268 

$E26F 
$E272 

$E275 
$E278 

$E27D 
$E27F 
$E282 

$E286 
$E289 


$E28E 
$E291 


Compare  the  adjusted  byte  pointer  to  the 
record  size  in  RS,X    ($C7,X).    If  the  byte 
pointer  is  within  the  record,   branch  to 
R40. 

Load   .A  with  $51    (record  overflow)  and 
store  it  in  ERWORD    ($026C).   Zero  .A, 
Store  the  byte  pointer    (in   .A)  into 
RECPTR    ($D4) . 

JSR  to  FNDREL    ($CEOE)    to  calculate  the 
side  sector  pointers. 

JSR  to  SSPOS    ($DEF8)    to  set  the  side 
sector  pointers.    If  V  flag  is  clear, 
we  have  not  attempted  to  go  beyond  the 
last  record  so  branch  to  R50. 
Load   .A  with  $80    (last  record  flag)  and 
JSR  to  SETFLG    ($DD9  7)    to  set  the  flag. 
JMP  to  RD05    ($E15E)    to  set  pointers  to 
the  last  record. 

JSR  to  POSITN  ($E275)  to  position  to  the 
desired  record. 

Load   .A  with  $80    (last  record  flag)  and 
JSR  to  TSTFLG    ($DDA6)    to  test  if  this 
flag  has  been  set.    If  not,   branch  to 
R60  to  exit. 

JMP  to  RD05    ($E15E)    to  set  pointers  to 
the  last  record. 

JMP  to  ENDCMD    ($C194)    to  terminate. 
Position  to  record: 

Moves  relative  record  into  active  buffer 
and  the  next  block  into  inactive  buffer. 
JSR  to  POSBUF    ($E29C)    to  position  data 
blocks  into  buffers. 

Load   .A  with  the  pointer  from  RELPNT 
($D7)    and  JSR  to  SETPNT    ($D4C8)    to  set 
up  the  buffer  pointers. 
Load   .X  with  the  channel  number  from 
LINDX    ($82) . 

Load   .A  with  the  record  size  from  RS,X 
(C7,X)    and  set  the  carry  flag. 
Subtract  the  pointer  in  RECPNT  ($D4) 
from  the  record  size  in  .A  to  find  the 
offset.    If  offset  >  $00,   branch  to  P2 . 
Trouble!    JMP  to  BREAK  ($E202). 

Clear  the  carry  flag  and  add  the  pointer 
in  RELPNT    ($D7) .    If  there  is  no  carry, 
branch  to  P3  0. 

Add  another  $01  and  set  the  carry  flag. 
JSR  to  NXOUT  ($E009)  to  set  up  the  next 
record . 


347 


NAME 


ADDRESS 


DESCRIPTION  OF  WHAT   ROM  ROUTINE  DOES 


POSBUF 


PIO 


P75 
P80 


BHERE 
BHERE2 


BHIO 


$E294 
$E297 

$E29C 
$E2A0 
$E2A4 

$E2A9 

$E2AA 
$E2AD 

$E2B0 

$E2B4 

$E2B9 
$E2BC 

$E2BF 

$E2C2 
$E2C4 

$E2C9 

$E2CD 

$E2D0 

$E2D3 
$E2D5 

$E2D9 

$E2DC 
$E2DD 

$E2E1 


JMP  to  RD15    ($E138)    to  complete  set  up. 

-   *   -   *   -  UNUSED  CODE  _   *   -   *  _ 

Load   .A  with  $51    (record  overflow)  and 
JSR  to  CMDERR    ($C1C8) . 

Position  proper  data  blocks  into  buffers 
Save  the   lo  byte  of  the  DIRBUF  ($94/5) 
pointer  into  R3    ($89) . 

Save  the  hi  byte  of  the  DIRBUF  ($94/5) 
pointer  into  R4    ($8A) . 

JSR  to  BHERE    ($E2D0)    to  check  if  desired 
block  is  in  the  buffer.    If  not,  branch 
to  PIO  to  read  it  in. 
Terminate  routine  with  an  RTS. 

JSR  to  SCRUB    ($DDF1)    to  clean  the  buffer 
JSR  to  GETLNK    ($DEOC)    to  set  TRACK  and 
SECTOR  from  the  link. 

If  TRACK    ($80)    is  $00,   there  is  no  next 
track  so  branch  to  P80. 

JSR  to  BHERE    ($E2D0)    to  check  if  desired 

block  is  in  the  buffer.    If  not,  branch 

to  P75  to  read  it  in. 

JSR  to  DBLBUF    ($CF1E)    to  toggle  the 

active  and  inactive  buffers. 

JMP  to  FREIAC    ($D2DA)    to  free  the 

inactive  buffer. 

JSR  to  FREIAC    ($D2DA)    to  free  the 
inactive  buffer. 
Load   .Y  with  $00, 

Move  the  desired  track  from  (R3),Y 
($89)  ,Y  into  TRACK    ($80)  .    Increment  .Y 
Move  the  desired  sector  from  (R3),Y 
($89)  ,Y  into  SECTOR    ($81)  . 
JMP  to  STRDBL    ($DOAF)    to  read  in  the 
desired  block  and  the  next  one  too. 

Check  if  desired  block  is  in  buffer: 
JSR  to  GETHDR    ($DE3E)    to  set  TRACK  and 
SECTOR  from  the  header. 
Load   .Y  with  $00 

Compare  the  desired  track  from    (R3) ,Y 
($89)  ,Y  with  the  value  in  TRACK    ($80)  . 
If  they  are  equal,   branch  to  BHlO  to 
compare  the  sectors. 
No  match    (Z=0)    so  exit  with  an  RTS 

Increment  .Y. 

Compare  the  desired  sector  from  (R3),Y 
($89)  ,Y  with  the  value  in  SECTOR   ($81)  . 
This  sets  Z=l  if  they  are  equal. 
Terminate  routine  with  an  RTS. 
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NULBUF 


NB20 


NB30 


ADDNR 


AN0  5 
ANIO 

ADDREL 


$E2E2 

$E2E5 

$E2EE 

$E2F1 

$E2F3 
$E2F4 

$E2F8 

$E2FB 


$E2FD 
$E2FF 

$E303 


$E304 

$E306 

$E309 
$E30B 

$E30E 
$E310 
$E312 
$E314 
$E317 

$E318 

$E31B 

$E31C 
SE31F 

$E322 

$E325 

$E328 

$E32C 


Set  null  records  an  active  buffer: 

JSR  to  SETOO    ($DE2B)    to  set  pointers  to 

start  of  data  buffer. 

Loop  to  fill  data  buffer  with  $00 's 

from  $xx02  to  $xxFF. 

JSR  to  ADDNR    ($E304)    to  calculate  the 
position  of  the  next  record    (in  .A). 
Store  the  new  pointer  value  in  NR,X 
($C1,X)  . 

Transfer  the  next  record  pointer  to  .Y. 
Store  $FF  as  the  first  character  in  the 
next  record  at    (DIRBUF)  ,Y;    ($94)  ,Y. 
JSR  to  ADDNR    ($E304)    to  calculate  the 
position  of  the  next  record    (in  .A). 
If  carry  flag  is  clear,  we  haven't  done 
all  the  records  in  this  block  yet  so 
branch  to  NB20. 

If  the  Z  flag  is  not  set,   branch  to  NB30 
Store  $00  into  NR,X    ($C1,X)    to  flag  the 
last  record. 

Terminate  routine  with  an  RTS. 

Add  record  size  &  next  record  pointer: 
On  exit:   C=l   if  crossed  buffer  boundary 
Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 

Load  .A  with  the  next  record  pointer 

from  NR,X   ($C1,X)   and  set  the  carry  flag 

If  NR  pointer  is  $00  branch  to  AN05. 

Clear  the  carry  flag  and  add  the  record 

size  from  RS,X  ($C7,X). 

If  carry  clear,   branch  to  ANIO. 

If  result  is  not  $00,   branch  to  AN05. 

Load   .A  with  $02    (bypass  link) 

BIT  with  EROO    ($FECC)    to  set  flags. 

Terminate  routine  with  an  RTS 

Add  $01  to  the  contents  of   .A  to  adjust 
for  the  link  and  set  the  carry  flag. 
Terminate  routine  with  an  RTS 

Add  blocks  to  a  relative  file: 

JSR  to  SETDRN    ($D1D3)    to  set  drive  #. 

JSR  to  SSEND    ($E1CB)    to  set  up  end  of 

file. 

JSR  to  POSBUF    ($E29C)    to  position  the 
proper  data  blocks  into  the  buffers. 
JSR  to  DBSET    ($CF7C)    to  set  up  double 
buffering . 

Copy  side  sector  index  from  SSIND  ($D6) 
into  Rl    ($87)  . 

Copy  side  sector  number  from  SSNUM  ($D5) 
into  RO    ($86)  . 
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ADDRl 


ARIO 


AR20 


AR25 


AR30 


$E330 
$E334 
$E338 
$E33B 
$E33E 
$E340 

$E344 

$E347 
$E349 

$E34F 

$E355 
$E35D 

$E363 

$E368 
$E36B 
$E36F 
$E372 
$E374 

$E37A 


Set  R2    ($88)    to  $00  to  clear  the  flag 
fcr  one  block. 

Set  RECPTR   {$D4)    to  $00  to  clear  this 
for  calculations. 

JSR  to  FNDREL    ($CEOE)    to  calculate  the 
side  sector  pointers. 

JSR  to  NUMFRE    ($EF4D)    to  calculate  the 
number  of  blocks  free. 
Load   .Y  with  the  channel  number  from 
LINDX    ($82)  . 

Load   .X  with  the  record  size  from  RS,Y 
($C7,Y) ,   decrement  the  size  by  1,  and 
transfer  the  result  into  .A. 
Clear  the  carry  flag  and  add  the  record 
pointer,   RELPTR    ($D7)    to  the  record  size 
in   .  A . 

If  no  cany  results,   there  is  no  span 
to  the  next  block  so  branch  to  ARIO. 
Increment  the  SS  pointer,   SSIND  ($D6) 
twice.    If  the  result  is  not  zero,  branch 
to  ARIO. 

Increment  the  side  sector  number,  SSNUM 
(D5)    by  1  and  store  $10    (the  side  sector 
offset)    into  SSIND    ($D6)    since  we  are 
starting  a  new  block. 

Load   .A  with  the  SS  index  from  Rl ,  clear 
the  carry  flag,   add  $02,   and  JSR  to 
SETSSP    ($DEE9)    to  set  DIRBUF   &  BUFTAB. 
Load  the  side  sector  number  from  SSNUM 

($D5)    and  compare  it  with  $06,  the 
number  of  side  sector   links.    If  SSNUM 
is   less  than  or  equal   to  $06,   the  range 
is  valid  so  branch  to  AR25. 
Load   .A  with  $52  to  indicate  a  TOO  BIG 
RELATIVE  FILE  error  and  JSR  to  CMDERR 

($C1C8)  . 

Load   .A  with  the  side  sector  index  from 
SSIND    ($D6)    and  set   the  carry  flag. 
Subtract  the  SS  index  from  Rl    ($87) .  If 
the  result   is  positive,   branch  to  AR30. 
Subtract  $0F    (the  side  sector  index 
offset   less  1)    and  clear  the  carry  flag. 
Store  the  number  of  side  sector  indicies 
(in   .A)    into  T3    ($72) . 

Load  .A  with  the  SS  number  from  SSNUM 
($D5) .  Subtract  the  SS  number  from  RO 
($86)    to  find  the  number  of  side  sectors 

needed.   Store  the  number  needed  into 

T4    ($73)  . 

Zero  Tl    ($70)    and  T2    ($71)    to  serve  as 
a  results  accumulator. 
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AR3  5 


AR4  0 


AR45 


AR50 


$E380 

$E384 
$E388 


$E38D 
$E38F 


$E396 

$E39D 
$E3A2 
$E3A5 
$E3A7 
$e;- A9 
$E3AC 
$E3AF 

$E3B3 

$E3B6 
$E3B9 

$E3BC 

$E3BF 

$E3C2 

$E3C5 

$E3C8 


Transfer  the  number  of  side  sectors 
needed  from   .A  to   .X  and  JSR  to  SSCALC 
($DF51)    to  calculate  the  number  of 
blocks  needed. 

Load   .A  with  the  hi  byte  of  the  number 

needed  from  T2    ($71) ,    If  the  hi  byte  is 

not  $00,   branch  to  AR35. 

Load   .X  with  the   lo  byte  of  the  number 

needed  from  Tl    ($70).   Decrement   .X  by  1. 

If  the  result  is  not  $00,   branch  to  AR35 

Increment  R2    ($88)    by  1. 

Check  if  there  are  enough  blocks  left: 

Compare  the  hi  byte  of  the  number  of 

blocks  needed    (in   .A)   with  the  hi  byte 

of  the  number  of  blocks  free  in  NBTEMP+1 

($0273).    If  there  are  more  than  enough, 

branch  to  AR40.    If  there  are  NOT  enough, 

branch  to  AR20.    If  we  have  just  enough, 

we  had  better  check  the  lo  byte. 

Load   .A  with  the   lo  byte  of  the  number 

free  from  NBTEMP    ($0272)    and  compare  it 

with  the   lo  byte  of  the  number  needed  in 

Tl    ($70) .    If  there  are  not  enough, 

branch  to  AR2  0  to  abort. 

Load    .A  with  $01   and  JSR  to  DRDBYT 

($D4F6)    to  read  the  sector  link. 
Clear  the  carry  flag  and  add  $01  to  .A 
to  give  the  NR. 

Load   .X  with  the  channel   number  from 
LINDX    ($82)  . 

Store  the  NR  value    (in   .A)    into  NR,X 
($C1,X)  . 

JSR  to  NXTTS    {$F11E)    to  get  the  next 
available  track  and  sector. 
JSR  to  SETLNK    ($DDFD)    to  set  the  track 
and  sector   link  in  the  current  block. 
Load   .A  with  the  add-l-block  flag  from 
R2    ($88) .    If  the  flag  is  set,  branch 
to  AR50. 

($DE5E) 


JSR  to  WRTOUT 
current  block  to  disk 
JSR  to  DBLBUF  ($CF1E) 
JSR  to  SETHDR 


to  write  the 

to  switch  buffers, 
to  set  header  from 


($D6D0) 
TRACK  and  SECTOR. 

JSR  to  NXTTS    ($F11E)    to  get  the  next 

available  track  and  sector. 

JSR  to  SETLNK    ($DDFD)    to  set  the  track 

and  sector  link  in  the  current  block. 

JSR  to  NULBUF    ($E2E2)    to  clean  out  the 

buffer 

JMP   to  AR55    ($E3D4) . 

JSR  to  DBLBUF    ($CF1E)    to  switch  buffers, 
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AR55 


AR60 


$E3CB 
$E3CE 
$E3D1 

$E3D4 
$E3D7 
$E3DA 
$E3E0 
$E3E3 
$E3E9 
$E3EC 

$E3EF 
$E3F2 

$E3F7 
$E3F9 

$E3FD 

$E401 
$E404 
$E407 

$E409 

$E40F 
$E412 


JSR  to  SETHDR  ($D6D0)  to  set  header  from 
TRACK  and  SECTOR. 

JSR  to  NULBUF    ($E2E2)    to  clean  out  the 
buffer 

JSR  to  NULLNK    ($DE19)    to  set   link  for 
the  last  block. 

JSR  to  WRTOUT    ($DE5E)    to  write  the 
current  block  to  disk. 

JSR  to  GETLNK    ($DEOC)    to  set  TRACK  and 
SECTOR  from  the  track  &   sector  link. 
Save  the  value  of  TRACK    ($80)    and  SECTOR 
($81)    onto  the  stack. 

JSR  to  GETHDR    ($DE3E)    to  set  TRACK  and 
SECTOR  from  the   last  sector  read. 
Save  the  value  of  TRACK    ($80)    and  SECTOR 
($81)    onto  the  stack. 

JSR  to  GSSPNT    ($DF45)    to  calculate  the 
side  sector  pointer    (returned  in  .A) 
Transfer  the  pointer  in   .A  to   .X.    If  the 
pointer  value  is  not  $00,  we  don't  need 
another  side  sector  so  branch  to  AR60. 
JSR  to  NEWSS    ($E44E)    to  get  another  side 
sector . 

Load   .A  with  $10,   side  sector  offset, 
and  JSR  to  SETSSP    ($DEE9)    to  set  the 
side  sector  pointer. 

Increment  the  side  sector  count  in  RO 
($86)    by  1, 

Pull  this  sector's  track  off  the  stack 

and  JSR  to  PUTSS    ($DD8D)    to  write  it 

into  the  side  sector  buffer. 

Pull  this  sector's  sector  off  the  stack 

and  JSR  to  PUTSS    ($DD8D)    to  write  it 

into  the  side  sector  buffer. 

Pull  this  sector's  sector  link  off  the 

stack  and  store  it  in  SECTOR   ($81)  . 

Pull  this  sector's  track  link  off  the 

stack  and  store  it  in  TRACK  ($80). 

If  track  link  is  $00,   there  are  no  more 

blocks  in  this  file  so  branch  to  AR65 

Compare  the  side  sector  counter  in  RO 
($86)   with  the  end  count  in  SSNUM  ($D5). 
If  they  are  not  equal,   we  haven't  done 
enough  new  blocks  yet  so  branch  to  AR45. 
Almost  done   so  JSR  to  GSSPNT    ($DF45)  to 
get  the  side  sector  pointer. 
Compare  the  pointer  in   .A  with  the  end 
pointer  in  SSIND($D6),    If  SSIND>.A,  we 
are  almost  done  so  branch  to  AR45.  If 
SSIND=.A  there  is  one  more  block  left  so 
branch  to  AR50. 
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AR65 


AR70 


$E418 
$E41C 
$E421 
$E427 

$E42D 

$E430 

$E433 
$E436 

$E439 
$E43C 
$E43F 

$E441 
$E444 


NEWSS 


$E44E 
$E451 
$E454 

$E457 


$E45B 
$E45E 


All  done.   JSR  to  GSSPNT    ($DF45)    to  get 
the  side  sector  pointer.   Save  it  onto 
the  stack. 

Load   ,A  with  a  $00  and  JSR  to  SSDIR 
($DEDC)    to  set  DIRBUF  with  the  current 
SS  pointer. 

Zero   .A  and   .Y.    Zero  the  track   link  of 
the  side-sector  sector  in    (DIRBUF) ,Y 
($94) ,Y.    Increment  .Y. 

Pull  the  pointer  into  this  sector  off 
the  stack,   subtract  $01,   and  store  the 
result  as  the  sector  link  of  the  side- 
sector  sector   in    (DIRBUF) ,Y;    ($94), Y. 
JSR  to  WRTSS    ($DE6C)    to  write  out  the 
current  block  of  side  sectors  to  disk. 
JSR  to  WATJOB    ($D599)    to  wait  for  the 
write  job  to  be  completed. 
JSR  to  MAPOUT    ($EEF4)    to  write  the  BAM. 
JSR  to  FNDREL    ($CEOE)    to  find  the 
relative  file  and  calculate  SSNUM  and 
SSIND  for  the  desired  record. 
JSR  to  DBLBUF    ($CF1E)    to  get  back  to 
the  leading  buffer. 

JSR  to  SSPOS    ($DEF8)    to  position  SS  and 
BUFTAB  to  SSNUM  and  SSIND. 
On  return,   if  V  flag  is  set,   the  record 
is  still  beyond  the  end  of  the  relative 
file  so  branch  to  AR70. 

All  OK  so  exit  from  routine  with  a  JMP 
to  POSITN    ($E275)    to  position  to  the 
record . 

Still  beyond  end  of  file  so:    load  .A 
with  $80    (the   last  record  flag) ,   JSR  to 
SETFLG    ($DD97)    to  set  the  flag,    load  .A 
with  $50    (no  record  error)    and  exit  with 
a  JSR  to  CMDERR    ($C1C8) . 

Create  a  new  side  sector  and  change  the 

old  side  sectors  to  reflect  it. 

JSR  to  NXTTS    ($F11E)    to  find  the  next 

available  track  and  sector. 

JSR  to  DBLBUF    ($CF1E)    to  toggle  to  the 

inactive  buffer. 

JSR  to  SCRUB    ($DDF1)    to  write  out  the 
buffer  if  it  is  dirty    (doesn't  match 
copy  on  disk) . 

JSR  to  GETACT    ($DF93)    to  determine  the 
active  buffer  number    (returned  in   .A) . 
Save  the  buffer  number  onto  the  stack. 
JSR  to  CLRBUF    ($DEC1)    to  zero  the  buffer 
Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 
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$E460 

$E463 

$E465 
$E467 

$E46A 
$E46F 
$E474 
$E479 
$E47F 

$E485 
$E48A 


$E490 
$E491 


$E497 
$E49C 

$E4A1 

$E4A6 
$E4A9 


Load   .A  with  the  number  of  the  buffer 
containing  the  side  sectors  from  SS,X 
($CD,X)    and  transfer  this  value  into  .Y. 
Pull  the  active  buffer  number  off  the 
stack  and  transfer  it  into  .X. 
Load   .A  with  $10,   the  side  sector  offset 
JSR  to  BOTOBO    ($DEA5)    to  move  $10  (.A) 
bytes  from  buffer  #(.X)    to  buffer  #(.Y). 
Load    .A  with  $00  and  JSR  to  SSDIR($DEDC) 
to  set  the  pointer  at  DIRBUF    ($94)  to 
point  to  the  start  of  the  old  SS  buffer. 
Load   .Y  with  $02,   and   load   .A  with  the 
side  sector  number  from    (DIRBUF) ,Y  and 
save  it  onto  the  stack. 

Zero   .A  and  JSR  to  SETPNT    ($D4C8)    to  set 
the  pointer  at  DIRBUF    ($94)    to  point  to 
the  start  of  the  new  SS  buffer. 
Pull  the  SS  number  off  the  stack,   add  1, 
and  store  the  result  in  the  new  side 
sector  table  at    (DIRBUF) ,Y. 
Multiply  the  SS  number  in   .A  by  2    (ASL) , 
add  4,   store  the  result    (points  to  the 
new  SS  value  in  the  buffer)    in  R3    ($89)  , 
and  transfer  this  value  into  .Y. 
Subtract  $02  from  the  result  and  store 
this  pointer  in  R2    ($88)  . 
Copy  the  current  value  of  TRACK  ($80) 
into  Rl    ($87)    for  use  in  SS  update  and 
into  the  new  SS  buffer  at    (DIRBUF) ,Y 
Increment  .Y 

Copy  the  current  value  of  SECTOR  ($81) 
into  R2    ($88)    for  use  in  SS  update  and 
into  the  new  SS  buffer  at    (DIRBUF) ,Y 
Set  the  track  link  at  the  start  of  the 
new  SS  block  to  $00. 

Set  the  sector  link  at  the  start  of  the 
new  SS  block  to  $11  to  indicate  that  the 
last  non-zero  character  in  the  buffer  is 
the  one  following  the  SS  offset. 
Load   .A  with  $10 " (the  SS  offset)    and  JSR 
to  SETPNT    ($D4C8)    to  set  the  pointer 
to  the  new  SS  block. 

JSR  to  WRTAB    ($DE50)    to  write  out  the 
new  side  sector  block  to  disk. 
JSR  to  WATJOB    ($D599)    to  wait  for  the 
write  job  to  be  completed. 


Note:  Finished  creating  new  block.  Now, 
revise  old  SS  to  reflect  the  new. 
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NS20 


NS40 


NS50 


$E4AC 
$E4AE 

$E4B1 
$E4B4 
$E4B6 

$E4B8 

$E4BE 

$E4C3 

$E4CA 

$E4CE 
$E4D1 
$E4D4 
$E4D6 
$E4DB 


$E4DE 
$E4E2 

$E4E4 


$E4E8 
$E4E9 


$E4ED 
$E4F0 


Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 

Load   .A  with  the  side  sector  buffer 

number  from  SS,X    ($CD,X)    and  save  this 

number  onto  the  stack. 

JSR  to  GAFLGS    ($DF9E)    to  get  active 

buffer  number  and  set  flags. 

Load   .X  with  the  new  channel  number  from 

LINDX    ($82)  . 

Store  the  side  sector  buffer  number  from 
.A  into  SS,X    ($CD,X) .   Note:   this  swaps 
the  active  buffer  and  the  SS  buffer. 
Pull  the  old  side  sector  buffer  number 
off  the  stack,    load   .X  with  the  last 
buffer  used  from  LBUSED    ($0257) ,  and 
store  the  old  SS  buffer  #    (in   .A)  into 
BUFO ,X    ($A7 ,X) . 

Zero   .A  and  JSR  to  SETPNT    ($D4C8)    to  set 
the  buffer  pointer  to  the  start  of  the 
buffer . 

Zero  .Y  and  set  the  track  link  to  point 
to  the  new  SS  block  using  the  value  from 
TRACK    ($80) .    Increment  .Y. 
Set  the  sector  link  to  point  to  the  new 
SS  block  using  the  value  from  SECTOR 
($81)  . 

JMP  to  NS50    ($E4DE) . 

JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Load   .X  with  the  channel  number  from 
LINDX    ($82)  . 

JSR  to  IBRD    ($DF1B)    to  read  the  next  SS. 
buffer  number    (returned  in  .A). 
Zero   .A  and  JSR  to  SETPNT    ($D4CB)    to  set 
the  buffer  pointer  to  the  start  of  the 
buffer . 

Decrement  the  pointer  in  R4  ($8A)  twice. 
Load  .Y  with  the  pointer  into  the  buffer 
from  R3    ($89)  . 

Load   .A  with  the  new  SS  track  pointer 
from  Rl    ($87)    and  store  this  value  into 
the  data  buffer  at   (DIRBUF) ,Y. 
Increment  .Y. 

Load   .A  with  the  new  SS  sector  pointer 

from  R2    ($88)    and  store  this  value  into 

the  data  buffer  at    (DIRBUF) ,Y. 

JSR  to  WRTOUT    ($DE5E)    to  write  out  the 

revised  side  sector  block. 

JSR  to  WAT JOB    {$D59  9)    to  wait  for  the 

write  job  to  be  completed. 
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$E4F3       Load   .Y  with  the  pointer  from  $R4  ($8A) 
and  compare  it  to  $03.    If   .Y>$03,  there 
are  more  side  sectors  to  update  so 
branch  back  to  NS40. 
$E4F9       Terminate  routine  with  a  JMP  to  DBLBUF 
($CF1E)    to  reset  the  active  buffer. 


ERROR  MESSAGE  TABLE        $E4FC  -  $E5D4 


Each  entry  consists  of  the  applicable  error  numbers 
followed  by  the  message  test  with  the  first  and  last 
characters  OR'ed  with  $80.   The  key  words  in  the  text 
are  tokenized    (values  $80  -  $8F) .   The  tokenized  word 
list  follows  the  main  error  message  table. 


Address 

Error  numbers 

Error  Message 

$E4FC 

$00 

OK 

$E500 

$20, $21, $22, $23, $24, $27 

READ  ERROR 

$E50B 

$52 

FILE  TOO  LARGE 

$E517 

$50 

RECORD  NOT  PRESENT 

$E522 

$51 

OVERFLOW  IN  RECORD 

$E52F 

$25, $28 

WRITE  ERROR 

$E533 

$26 

WRITE  PROTECT  ON 

$E540 

$29 

DISK   ID  MISMATCH 

$E546 

$30, $31, $32, $33, $34 

SYNTAX  ERROR 

$E552 

$60 

WRITE  FILE  OPEN 

$E556 

$63 

FILE  EXISTS 

$E55F 

$64 

FILE  TYPE  MISMATCH 

$E567 

$65 

NO  BLOCK 

$E570 

$66, $67 

ILLEGAL  TRACK  OR  SECTOR 

$E589 

$61 

FILE  NOT  OPEN 

$E58D 

$39 

FILE  NOT  FOUND 

$E592 

$01 

FILES  SCRATCHED 

$E59F 

$70 

NO  CHANNEL 

$E5AA 

$71 

DIR  ERROR 

$E5AF 

$72 

DISK  FULL 

$E5B6 

$73 

CBM  DOS  V2.6  4030 

$E5C8 

$74 

DRIVE  NOT  READY 

TABLE  OF  TOKENIZED  WORDS      $E5D5   -  $E609 


$E5D5 

$09 

ERROR 

$E5F4 

$06 

NOT 

$E5DB 

$0A 

WRITE 

$E5F8 

$07 

FOUND 

$E5E1 

$03 

FILE 

$E5FE 

$08 

DISK 

$E5E6 

$04 

OPEN 

$E603 

$0B 

RECORD 

$E5EB 

$05 

MISMATCH 
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ERROR 


ERRl 
ERR2 

ERR3 


ERR4 
CMDER2 

CMDER3 


$E60A 
$E60B 
$E60D 


$E610 

$E618 

$E619 

$E61D 
$E621 


$E625 
$E627 

$E62D 
$E62E 


$E635 
$E63A 


$E63E 
$E641 

$E644 
$E645 

$E648 

$E64B 

$E650 
$E653 
$E656 
$E65A 


Handle  errors  reported  by  controller: 
On  entry:    ,A  =  error  code  number 

.X  =   job  number 
Save  the  error  code  onto  the  stack. 
Store  the  job  number  into  JOBNUM    {$F9) . 
Transfer  job  number    (from   .X)    to  .A, 
multiply  it  by  2    (ASL) ,   and  transfer  the 
result  back  into  .X. 

Set  TRACK    ($80)    and  SECTOR   ($81)  using 
the  values  from  the  last  header  read  in 
HDRS,X    ($06, X)    and  HDRS+1,X    ($07, X). 
Pull   the  disk  controller  error  code  off 
the  stack  and  convert  it  into  a  DOS 
error  code  by: 

AND  the  error  code  in   .A  with  $0F.  If 
the  result  is  $00,   branch  to  ERRl  to 
handle  error  codes  $10  -  $14. 
Compare  the  result  to  $0F    (no  drive). 
If  the  code  is  NOT  $0F,   branch  to  ERR2 . 
Load   .A  with  $74    (DOS  no  drive  code) 
and  branch  to  ERR3    (always) . 

Load   .A  with  $06. 

OR  the  code  in   .A  with  $20  and  subtract 
2  from  the  result. 

Save  the  DOS  error  code  onto  the  stack. 
Compare  the  command  number  from  CMDNUM 
($022A)   with  $00  to  see  if  this  was  a 
VALIDATE  command.    If  not,   branch  to  ERR4 
Set  CMDNUM    ($022A)    to  $FF. 
Pull  the  DOS  error  code  off  the  stack 
and  JSR  to  ERRMSG    ($E6C7)    to  transfer 
the  error  message  to  the  error  buffer. 
JSR  to  INITDR    ($D042)    to  initialize  the 
drive  and  eliminate  the  bad  BAM  in  RAM. 
JMP  to  CMDER3    ($E648)    to  complete  the 
error  handling. 

Pull  the  DOS  error  code  off  the  stack.  " 
JSR  to  ERRMSG    ($E6C7)    to  transfer  the 
the  error  message  to  the  error  buffer. 
JSR  to  CLRCB    ($C1BD)    to  clear  out  the 
command  buffer. 

Clear  the  write-BAM  flag,  WBAM  ($02F9) 
so  a  bad  copy  of  the  BAM  will  not  be 
written  to  disk. 

JSR  to  ERRON   ($C12C)    to  start  the  error 
LED  flashing. 

JSR  to  FREICH    ($D4DA)    to  free  the 
internal  read  or  write  channel. 
Zero  BUFTAB+CBPTR    ($A3)    to  clear  the 
pointers . 

Load   .X  with  $45    (#TOPWRT)    and  transfer 
this  value  to  the  STACK  POINTER  to  purge 
the  stack 
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TLKERR 


LSNERR 

TLERR 
ERRIO 


HEXDEC 
HEXO 

HEX5 


$E65D 

$E663 

$E667 
$E668 

$E66C 

$E670 
$E672 

$E679 


$E680 
$E683 

$E688 
$E68B 

$E68E 
$E698 


$E69B 
$E69C 
$E69F 

$E6A3 

$E6AA 


Load   .A  with  the  original  secondary 
address  from  ORGSA    ($84) ,   AND  it  with 
$0F,   and  store  the  result  as  the  current 
secondary  address   in  SA  ($83). 
Compare  the  secondary  address    (in  .A) 
with  $0F.    If  it  is  $0F    (the  command 
channel),   branch  to  ERRIO. 
Set  the  interrupt  flag  to  prevent  any 
interrupts ! 

If  the  listener  active  flag  in  LSNACT 

($79)    is  not  $00,  we  are  an  active 

listener  so  branch  to  LSNERR. 

If  the  talker  active  flag  in  TLKACT 

($7A)    is  not  $00,   we  are  an  active 

talker  so  branch  to  TLKERR. 

Load   .X  with  the  current  secondary 

address  from  SA  ($83). 

Load   .A  with  the  active  channel  number 
from  LINTAB,X    ($022B,X) .    If  this  channel 
number  is  $FF,   the  channel   is  inactive 
so  branch  to  ERRIO. 

AND  the  channel  number    (in   .A)   with  $0F, 
store  it  as  the  current  channel  number 
in  LINDX    ($82)    and  JMP  to  TLERR    ($E68E) . 

Talker  error  recovery: 

Release  all  bus   lines  and  go  idle. 

JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 

read  channel. 

JSR  to  ITERR   ($EA4E)    to  release  all  bus 
lines  and  JMP  to  IDLE    ($EBE7) . 

Listener  error  recovery: 

Release  all  bus   lines  and  go  idle. 

JSR  to  FNDRCH    (SDOEB)    to  find  an  unused 

read  channel. 

JSR  to  ITERR    ($EA4E)    to  release  all  bus 
lines  and  JMP  to  IDLE    ($EBE7) . 

Unused  on  the  1541 

Terminate  routine  with  a  JMP  to  IDLE 
($EBE7) . 

Convert  hex  to  BCD: 

On  entry:    .A  contains  hex  number 

On  exit:    .A  contains  BCD  number 

Transfer  hex  from  .A  to  .X. 

Zero   .A  and  set  decimal  mode  (SED). 

Compare   .X  value  to  $00.    If  equal, 

branch  to  HEX5  to  exit. 

Clear  carry  flag,   add  1  to  value  in  .A, 
decrement   .X,   and  JMP  back  to  HEXO. 
Clear  decimal  mode    (CLD) . 
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BCDDEC 


BCD2 


OKERR 


ERRTSO 
ERRMSG 


$E6AB 
$E6AC 
$E6B0 

$E6B3 
$E6B4 


$E6BA 
$E6BB 


$E6BC 

$E6BF 
$E6C1 
$E6C7 
$E6C9 

$E6D1 


$E6D4 

$E6D8 
$E6D9 


$E6DF 


$E6E3 

$E6E7 
$E6E8 

$E6EA 


$E6ED 

$E6F1 
$E6F2 

$E6F4 


Convert  BCD  to  ASCII  decimal  digit. 
On  exit:    .X  contains  BCD  number 
(CB+2)Y  contains  ASCII 
Transfer  BCD  from  .A  to  .X. 
Divide  BCD  value  in   .X  by  16    (4  x  LSR) 
JSR  to  BCD2    ($E6B4)    to  convert  the  most 
significant  digit  to  ASCII. 
Transfer  original  BCD  byte  from   .X  to  .A 
AND  the  BCD  value  in   .A  with  $0F  to  mask 
off  the  higher  order  nybble,   OR  the 
result  with  $30    (convert  to  ASCII),  and 
store  the  ASCII  value  in   (CB+2)Y;  ($A5)Y 
Increment  .Y 

Terminate  routine  with  an  RTS. 

Transfer  error  message  to  error  buffer: 
JSR  to  ERROFF  ($C123)  to  turn  off  error 
LED. 

Load   .A  with  $00    (no  error) . 

Set  TRACK    ($80)    and  SECTOR    ($81)    to  $00. 

Load   .Y  with  $00. 

Set  pointer  at  CB+2/3    ($A5/6)    to  point 
to  the  error  buffer  ($02D5). 
JSR  to  BCDDEC    ($E6AB)    to  convert  the 
BCD  number  in   .A  to  ASCII  and  store  it 
at  the  start  of  the  error  buffer. 
Store  $2C  ","  after  the  error  code  in 
the  error  buffer    (CB+2) ,Y;    ($A5) ,Y. 
Increment   .Y    (points  into  error  buffer). 
Copy  the  first  character  of  the  error 
buffer  from  ERRBUF    ($02D5)    into  the 
channel  data  area  CHNDAT  +  ERRCHN    ($0243)  . 
Transfer  the  error  number  from   .X  to  .A 
and  JSR  to  ERMOVE    {$E706)    to  move  the 
error  message  into  the  error  buffer. 
Store  $2C  ","  after  the  error  message  in 
the  error  buffer    (CB+2) ,Y;    ($A5) ,Y. 
Increment   .Y    (points  into  error  buffer) . 
Load   .A  with  the  track  number  from 
TRACK    ($80)  . 

JSR  to  BCDDEC    {$E6AB)    to  convert  the 
track  number  in   .A  to  ASCII  and  store 
it  in  the  error  buffer. 

Store  $2C  ","  after  the  track  number  in 
the  error  buffer    (CB+2),Y;  ($A5),Y. 
Increment   .Y    (points  into  error  buffer) . 
Load   .A  with  the  sector  number  from 
SECTOR    ($81)  . 

JSR  to  BCDDEC    ($E6AB)    to  convert  the 
sector  number  in   .A  to  ASCII  and  store 
it  in  the  error  buffer. 
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ERMOVE 


ElO 


E20 


E30 


E40 


$E6F7 


$E6FF 

$E701 
$E705 

$E706 
$E707 

$E70D 

$E715 
$E716 
$E718 

$E71C 
$E71D 

$E720 

$E722 

$E725 

$E727 


$E72F 


$E735 


Decrement  the   .Y  pointer  by  1,  transfer 
the  result  to   .A,   clear  the  carry  flag, 
add  $D5    (the  start  of  the  error  buffer), 
and  store  the  final  result    (points  to 
the  last  character)    into  LSTCHR+ERRCHN 
($0249)  . 

Increment  the   lo  byte  of  the  pointer 
in  CB+2    ($A5)    by  1  so  it  points  to  the 
second  character  of  the  message   (we  put 
the  first  character  into  the  channel 
data  area  already. 

Set  error  channel   status  CHNRDY+ERRCHN 
($F7)    to  $88  to  indicate  that  it  is 
ready-to-talk . 

Terminate  routine  with  an  RTS. 

Move  the  error  message  from  the  error 
table  to  the  error  buffer.   The  tokens 
in  the  table  are  converted  to  words. 
Transfer  the  error  message  number  from 
.A  to  .X. 

Save  the  current  values  of  RO    ($86)  and 
RO+1    ($87)    onto  the  stack  so  we  can  use 
this  as  a  temporary  pointer. 
Set  up  a  pointer  in  RO/RO+1  to  point  to 
the  error  message  table  in  ROM    ($E4FC) . 
Transfer  the  error  number  back  into  .A. 
Zero   .X  to  use  as  an  indirect  pointer. 
Compare  the  error  number    (in   .A)  with 
the  error  number  in  the  table  (RO,X) 
($86, X).    If  a  match  is  found,  branch 
to  E5  0. 

Save  error  number  onto  the  stack. 

JSR  to  EADV2    ($E775)    to  advance  the 

pointer  to  the  error  table. 

If  carry  flag  is  clear,   there  are  more 

messages  to  check  so  branch  to  E30 

No  more  messages  so  JSR  to  EADV2  ($E775) 

to  advance  the  pointer. 

If  carry  flag  is  clear,  we  are  not  done 
with  the  message  yet  so  branch  to  E20. 
Compare  the  hi  byte  of  the  pointer  in 
RO+i    ($87)    to  $E6.    If  the  pointer  is 
less  than  $E6,   there  is  more  table  left 
so  branch  to  E40.   If  the  pointer  is 
greater  than  $E6,   we  are  past  the  end  of 
the  table  so  branch  to  E45. 
The  hi  bytes  match  so  compare  the  lo 
bytes  of  the  pointer  in  RO    ($86)  with 
$0A    (the  end  of  the  table) .    If  we  are 
past  the  end,   branch  to  E45. 
Pull  the  error  number  off  the  stack  and 
JMP  to  ElO  to  continue  checking. 
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E45 


E50 


E55 


E90 


E60 


E70 


EADVl 


EAIO 


$E739 

$E73D 

$E740 

$E742 

$E745 
$E748 

$E74A 

$E74D 

$E753 

$E754 


$E758 
$E759 

$E75D 
$E75E 
$E75F 

$E762 

$E763 

$E765 
$E766 

$E767 

$E76B 
$E76D 
$E76F 

$E770 


Can't  find  error  number  in  table  so 
pop  the  error  number  off  the  stack  and 
JMP  to  E90    ($E74D)    to  quit. 

The  error  number  has  been  located  so 

JSR  to  EADVl    ($E767)    to  advance  past 

the  other  error  numbers. 

If  carry  flag  is  clear,  we  have  not 

advanced  far  enough  so  branch  to  E50. 

JSR  to  E60    ($E754)    to  check  for  token 

and  put  character (s)    into  buffer. 

JSR  to  EADVl    ($E767)    to  advance  pointer. 

If  carry  flag  is  clear,   there  is  more  to 

do  so  branch  back  to  E5  5. 

JSR  to  E60    ($E754)    to  check  for  token 

or  last  word. 

All  done!   Pull  original  RO  and  RO+1 
values  off  the  stack  and  replace  them. 
Terminate  routine  with  an  RTS . 

Sub  to  check  for  token  or  word  and  put 
it  into  the  buffer. 

Compare  the  character  in   ,A  with  $20 
(the  maximum  token  number  +1) .    If   .A  is 
greater,   this  is  not  a  token  so  branch 
to  E7  0. 

Save  token    (in   .A)    into  .X. 
Store  $20    (implied  leading  space)  into 
the  buffer  at    (CB+2) ,Y;    ($A5) ,Y. 
Increment  .Y. 

Move  the  token  from   .X  back  into  .A. 
JSR  to  ERMOVE    ($E70  6)    to  add  the  token 
word  to  the  message. 
Terminate  routine  with  an  RTS. 

Store  character    (in   .A)    into  the  buffer 
at    (CB+2) ,Y;    ($A5) ,Y. 

Increment   .Y  pointer  into  error  buffer. 
Terminate  routine  with  an  RTS. 

Sub:   Advance  error  pointer  before  move: 
Increment  the   lo  byte  of  the  pointer  in 
RO    ($86).    If  the  new  value  is  not  $00, 
branch  to  EAIO. 

Increment  the  hi  byte  of  the  pointer  in 
RO+1    ($87) . 

Load   .A  with  the  next  character  from 
the  error  message  table    (RO,X);  ($A1,X). 
Shift  the  byte  in   .A  left  to  set  the 
carry  flag  if  this  is  the  first  or  last 
character  in  the  message. 
Load   .A  with  the  next  character  from 
the  error  message  table    (RO,X);  ($A1,X). 
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EADV2 


EA20 


$E772 
$E774 

$E775 
$E778 

$E77C 
$E77E 


AND  the  character  in  .A  with  $7F  to  mask 
off  bit  7. 

Terminate  routine  with  an  RTS. 


Sub:   Advance  error  pointer  after  move: 
JSR  to  EAIO    ($E76D)    to  get  the  next 
byte  from  the  error  message  table. 
Increment  the  lo  byte  of  the  pointer  in 
RO    ($86).    If  the  new  value  is  not  $00, 
branch  to  EA20. 

Increment  the  hi  byte  of  the  pointer  in 
RO  +  1    ($87)  . 

Terminate  routine  with  an  RTS. 


UTILITY  LOADER  PROGRAM 


This  utility  is  used  to   load  and  execute  user  programs 

or   system  utilities  from  disk. 

This  utility  may  be  used  in  two  ways: 

a)  On  power-up: 

If  the  data  and  clock  lines  are  grounded  at  power  up, 
the  routine  is  entered.    It  waits  until   the  ground  clip 
is  removed  and  then  loads  the  first  file  found  in  the 
directory  into  disk  RAM  using  the  first  two  bytes  of 
the  file  as  the  load  address.   Once  the  file  is  loaded, 
it  is  executed  starting  at  the  first  byte. 

b)  Normal  entry: 

The  disk  command  "&:filename"  will   load  and  execute 
the  file  whose  filename  is  specified.   For  example: 
PRINT#15,"&0:DISK  TASK" 


File  structure: 

The  utility  or  program  must  be  of  the  following  form. 
File  type:  USR 

Bytes  1/2:   Load  address  in  disk  RAM  (lo/hi). 
Byte  3:         Lo  byte  of  the  length  of  the  routine 
Bytes  4/N:   Disk  routine  machine  code. 

Byte  N+1:     Checksum.   Note  that  the  checksum  includes 
all  bytes  including  the  load  address, 
formula:   CHECKSUM  =  CHECKSUM  +  BYTE  +  CARRY 


NOTE:   Routines  may  be  longer  than  256  bytes.  However, 
there  MUST  be  a  valid  checksum  byte  after  the 
number  of  bytes  specified  in  byte  #3  and  after 
each  subsequent  256  bytes! 


B00T2      I    $E77F    I    Exit  routine  with  an  RTS. 


BOOT 


$E780 
$E784 


Load   .A  with  input  port  data  from  PB 
($1800) .   Transfer  data  from   .A  to  .X. 
AND  the  data  byte    (in   .A)   with  $04  to 
see  if  clock  is  grounded.    If  not,  branch 
to  E00T2  to  exit. 
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B00T3 


UTLODR 
B00T4 


UTLDOO 


UTLDIO 


$E788 
$E789 


$E78D 

$E78F 
$E791 

$E795 
$E798 
$E79B 

$E7A0 

$E7A3 

$E7A8 

$E7AB 

$E7AF 
$E7B4 
$E7B8 

$E7BB 
$E7C0 

$E7C5 
$E7C9 
$E7CE 
$E7D3 
$E7D8 
$E7DC 
$E7DF 


Transfer  data  byte  from   .X  to  .A. 
AND  the  data  byte    {in   .A)   with  $01  to 
see  if  data  line  is  grounded.    If  not, 
branch  to  B00T2  to  exit. 

Clear  interrupt  flag  so  that  background 
routines  will  run. 

BOOT  CLIP  MUST  BE  ON! 

Load   .A  with  input  port  data  from  PB 
($1800)  . 

AND  the  data  byte    (in   .A)   with  $05  to 

see  if  clip  has  been  removed.    If  not, 

branch  to  B00T3   to  wait  until   it  is. 

Set  the  number  of  files  to  $01  by 

incrementing  F2CNT    ($0278) . 

Set  the  command  string  length  to  $01  by 

incrementing  CMDSIZ    ($0274)  . 

Set  the  first  character  in  the  command 

buffer,   CMDBUF    ($0200),    to  $2A    ("*")  to 

match  any  file  name. 

JMP  to  B00T4    ($E7A8)    to  continue. 

NORMAL  ENTRY  POINT 

Load   .A  with  $8D  and  JSR  to  PARSE 
($C268)    to  parse  the  comm.and  string. 

JSR  to  KILLP    ($F258)    to  kill  protect. 

Does  nothing  on  the  15411 

Load   .A  with  the  file  count  from  F2CNT 
($0278)    and  save  it  on  the  stack. 

Set  file  count  in  F2CNT    ($0278)    to  $01. 

Set  first-byte  flag  in  RO    ($86)    to  $FF. 

JSR  to  LOOKUP    ($C44F)    to  locate  the  file 

name  on  the  disk. 

Check  the  track  link  for  the  file  found 
in  FILTRK    ($0280).    If  it  is  $00,  the 
file  was  not  found  so  branch  to  UTLDOO. 
Load   .A  with  $39   to  indicate  a  FILE  NOT 
FOUND  error  and  JSR  to  CMDERR    ($C1C8)  to 
exit . 

Pull  original   file  count  off  the  stack 
and  restore  it  into  F2CNT    ($0278)  . 
Set  TRACK    ($80)    from  the  track  link 
for  the  file  from  FILTRK    ($0280)  . 
Set  SECTOR    ($81)    from  the  sector  link 
for  the  file  from  FILSEC    ($0285) . 
Load   .A  with  $03    (USER  FILE  TYPE)  and 
JSR  to  OPNTYP    ($D477)    to  open  the  file. 
Load   .A  with  $00  and  store  it  in  Rl($87) 
to  initialize  the  checksum. 
JSR  to  GTABYT    ($E839)    to  get   the  first 
byte  from  the  file    (lo  of   load  address). 
Store  the  lo  byte  of  the   load  address 
in  R2    ($88) . 
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UTLD20 


UTLD30 


UTLD35 


UTLD50 


$E7E1 
$E7E4 
$E7E7 
$E7E9 
$E7EC 

$E7F0 

$E7F3 

$E7F6 

$E7FA 

$E7FD 
$E7FF 

$E802 
$E805 
$E809 
$E80C 

$E813 
$E817 

$E81B 
$E81E 

$E824 
$E827 
$E82C 


JSR  to  ADDSUM    ($E84B)    to  add  the  byte 
into  the  checksum. 

JSR  to  GTABYT    ($E839)    to  get  the  second 
byte  from  the  file    (hi  of  load  address). 
Store  the  hi  byte  of  the  load  address 
in  R3    ($89) . 

JSR  to  ADDSUM    ($E84B)    to  add  the  byte 
into  the  checicsum. 

Load   .A  with  the  flag  from  RO    ($86) .  If 
the  flag  is  $00,   this   is  not  the  load 
address  so  branch  to  UTLD20. 
Load  lo  byte  of   load  address  from  R2 
($88)    and  save  it  onto  the  stack. 
Load  hi  byte  of   load  address  from  R3 
($89)    and  save  it  onto  the  stack. 
Set  first-byte  flag  in  RO    ($86)    to  $00. 

JSR  to  GTABYT    ($E839)    to  get  the  data 
byte  count  from  the  file. 
Store  the  data  byte  count  in  R4    ($8A) . 
JSR  to  ADDSUM    ($E84B)    to  add  the  byte 
into  the  checksum. 

JSR  to  GTABYT  ($E839)  to  get  a  data  byte 
from  the  file. 

Zero   .Y  and  store  the  data  byte    (in  .A) 
at  desired  address,    (R2),Y;    ($88) ,Y. 
JSR  to  ADDSUM    ($E84B)    to  add  the  byte 
into  the  checksum. 

Increment  the  lo  byte  of  the  pointer  in 
R2    ($88)    by  $01.    If  the  result  is  not 
$00,   branch  to  UTLD35. 

Increment  the  hi  byte  of  the  pointer  in 
R3    ($89)    by  $01. 

Decrement  the  byte  counter  in  R4    ($8A) . 
If  the  result  is  not  $00,   there  are  more 
bytes  to  get  so  branch  back  to  UTLD30. 

JSR  to  GIBYTE    ($CA35)    to  get  a  data  byte 
from  the  file  without  an  EOI  check. 
Load   .A  with  the  checksum  from  DATA ($85) 
and  compare  it  with  the  computed  check- 
sum in  Rl    ($87) ,    If  they  match,   all  is 
OK  so  branch  to  UTLD50. 

Bad  checksum  so  JSR  to  GETHDR    ($DE3E)  to 
set  TRACK  and  SECTOR  from  the  header. 
Load   .A  with  $50  to  indicate  a  NO  RECORD 
error  and  JSR  to  CMDER2    ($E645) . 
Load   .A  with  the  EOI  flag  from  EIOFLG 
($F8) .    If  the  flag  is  NOT  $00,  we  are 
not  done  yet  so  branch  back  to  UTLDIO 
to  do  another  256  bytes. 
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$E830 

Routine  all   loaded  so  pull   load  address 
off  the  stack    (lo/hi) ,   set  up  a  jump 
vector  in  R2/3    ($88/9) ,   and  do  an 
indirect  JMP  to  the  routine  via    (R2) . 

Subroutines  for  UTLODR 

GTABYT 

$E839 
$E83C 

$E840 

$E843 

Get  a  byte  from  the  file  opened  using 

the  internal  read  channel.  There  is  an 

end-of-file  check  done.    If  EOI  occurs, 

a  #51  DOS  error  is  reported. 

JSR  to  GIBYTE    ($CA3  5)    to  fetch  a  byte 

and  store  it  in  DATA  ($85). 

Test  the  end  of  information  flag,  EOIFLG 

($F8) .    If  NOT  $00,  we  have  not  come  to 

the  end  so  branch  to  GTABYE. 

We  have  an  EOI  condition.   JSR  to  GETHDR 

($DE3E)    to  set  TRACK  and  SECTOR  from 
the  header. 

Load   .A  with  $51  to  indicate  a  RECORD 
SIZE  error  and  JSR  to  CMDER2  ($E645). 

GTABYE 

$E848 
$E84A 

Load   .A  with  the  byte  from  DATA  ($85) 
Terminate  routine  with  an  RTS. 

ADDSUM 

$E84B 
$E84C 

$E850 
$E852 

Compute  the  running  checksum  in  Rl : 
On  entry:    .A  =  new  byte  to  add 
Clear  the  carry  flag. 

Add  the  byte  in  Rl    ($87)    to  the  byte  in 
.A  and  then  add  $00  to  the  result  to 
add  in  the  carry  bit. 
Store  the  new  checksum  into  Rl. 
Terminate  routine  with  an  RTS. 

SERIAL  BUS  COMMUNICATION  ROUTINES 

ENTRY  POINT  FOR   IRQ  ROUTINE  TO  SERVICE 
ATTENTION    (ATN)    SIGNALS   FROM  THE  C-64. 

ATN IRQ 

$E853 
$E856 
$E85A 

Load   .A  with  the  contents  of  PAl  ($1801) 
to  clear  the  interrupt    (IRQ)    flag    (CAl) . 
Store  $01   in  ATNPND    ($7C)    to  indicate 
that  an  ATN  request  is  pending. 
Terminate  routine  with  an  RTS. 

ATNSRV 

$E85B 
$E85C 
$E860 

Service  the  attention  request  from  the 
C-64  . 

Set  the  interrupt  flag    (SEI)    to  prevent 
any  interrupts. 

Store  $00  in  ATNPND    ($7C)    to  indicate 
that  no  ATN  request  is  pending. 
Zero  the  listener  and  talker  active 
flags  LSNACT    ($79)    and  TLKACT    ($7A) , 

NAME 


ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


ATNS15 


ATN35 


ATN40 


$E864 
$E867 
$E86B 
$E86D 
$E870 
$E873 


$E87B 


$E880 


$E884 
$E887 

$E88B 
$E891 

$E895 
$E89B 


Load   .X  with  $45  and  transfer  this  value 
to  the  stack  pointer  to  reset  the  stack. 
Store  $80  in  the  EOI  flag,   EOIFLG  ($F8) 
to  indicate  a  non-EOI  state. 
Store  $80  in  the  ATN  mode  flag,  ATNMOD 
($7D)    to  set  ATN  mode  for  ACPT  routine 
JSR  to  CLKHI    ($E9B7)    to  wait  for  the 
clock  line  go  high. 

JSR  to  DATLOW   ($E9A5)    to  set  the  data 
line  low  as  a  response. 

To  get  hardware  control  of  the  data  line 
acknowledge  the  attention  signal  by: 
loading   .A  with  the  contents  of  port  B, 
PB    ($1800),   OR  the  byte  with  $10  to  set 
the  ACK  ATN  bit,   and  store  the  result 
back  into  port  B,   PB    ($1800) . 
Check  to  see  if  the  ATN  signal   is  still 
present  by:    loading   .A  with  the  contents 
of  port  B,   PB    ($1800).    If  bit  7  is  not 
set,   the  ATN  signal   is  gone  so  branch 
to  ATNS20    ($E8D7) . 

AND  the  contents  of   .A  with  $04  to  see 
if  the  clock  line  is  still   low.   If  bit 
2   is  set    (result  of  AND  is  not  $00) ,  the 
clock  line  is  still   low  so  branch  back 
to  ATNS15  to  wait. 

Clock  line  went  high  so  there  is  a 
command  byte  waiting  for  us. 
JSR  to  ACPTR    {$E9C9)    to  get  the  command 
byte . 

Compare  the  command  byte    (in   .A)  with 
$3F    (unlisten) ,    If  this  is  not  an 
unlisten  command,   branch  to  ATN35. 

General  unlisten  command  received. 
Zero  the  listener  active  flag,  LSNACT 
($7A)    and  branch  to  ATN122  ($E902). 

Compare  the  command  byte    (in   .A)  with 
$5F    (untalk) .    If  this  is  not  an  untalk 
command,   branch  to  ATN40. 

General  untalk  command  received. 
Zero  the  talker  active  flag,  TLKACT 
($7A)    and  branch  to  ATN122    ($E902) , 

Compare  the  command  byte    (in   .A)  with 
our  talk  address  in  TLKADR   ($78)  .  If 
this  is  not  our  talk  address,   branch  to 
ATN45 . 
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ATN4  5 


ATN50 


ATN95 


$E89F 


$E8A9 


$E8AD 

$E8B7 
$E8B8 


$E8BE 
$E8BF 
$E8C1 


$E8C5 


$E8CD 
$E8CE 

$E8D1 
$E8D2 


Talk  command  for  us. 

Set  the  talker  active  flag,  TLKACT  ($7A) 
to  $01,  the  listener  active  flag,  LSNACT 
($79)    to  $00,   and  branch  to  ATN95. 

Compare  the  command  byte    (in   .A)  with 
our  listen  address  in  LSNADR    ($77) .  If 
this  is  not  our  listen  address,  branch 
to  ATN5  0. 

Listen  command  for  us. 
Set  the   listener  active  flag,  LSNACT 
($79)   to  $01,   the  talker  active  flag, 
TLKACT    ($7A)    to  $00,   and  branch  to  ATN95 

Save  the  command  byte  by  transferring  it 
from  .A  to  .X. 

Test  if  the  command  byte  is  a  secondary 
address  by  AND'ing  it  with  $60.    If  the 
result  is  not  $60,   this  is  not  a 
secondary  address  so  branch  to  ATN120. 
NOTE:      SA  =    $60   +  N 

A  secondary  address  for  the  drive. 
Transfer  the  original  command  byte  from 
.X  back  into  .A. 

Store  the  original   secondary  address 
byte  into  ORGS A    ($84)  . 

AND  the  secondary  address    (in   .A)  with 
$0F  to  strip  off  any  junk  and  store  the 
result  as  the  current  secondary  address 
in  SA    ($83)  . 

Test  if  this  is  a  CLOSE  command  for  this 
secondary  address. 

Load   .A  with  the  original  secondary 
address  from  ORGSA   ($84).   AND  this  value 
with  $F0  to  mask  off  the  low  nybble.  If 
the  result  is  not  $E0,   this  is  not  a 
CLOSE  command  so  branch  to  ATN12  2. 

CLOSE  the  file  with  this  SA. 

Clear  the  interrupt  flag    (CLI)    to  enable 

interrupts . 

JSR  to  CLOSE    ($DACO)    to  close   the  file. 

WARNING:   CLOSE  routine  does  not  return 

in  time  to  be  handled  by  ATN122 

Set  the  interrupt  flag    (SEI)    to  prevent 
any  interrupts. 

Test  if  the  ATN  signal  is  still  present. 
If  it  is,   branch  back  to  ATN30. 
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ATSN20 


ATNIOO 


ATNllO 

ATN120 
ATN12  2 


$E8D7 
$E8DB 

$E8E3 

$E8E7 
$E8EA 
$E8ED 


$E8F1 
$E8F4 
$E8F7 
$E8FA 


$E8FD 
$E902 


ATN  SIGNAL  GONE  -  CARRY  OUT  COMMAND 
Store  $00  in  ATNMOD    ($7D)    to  clear  the 
attention  mode. 

Release  the  ATN  ACK  line  by  loading  the 
byte  from  port  B,   PB    ($1800),  AND'ing 
it  with  $EF    ($FF-ATNA) ,   and  storing  the 
result  back  into  port  B    ($1800)  . 
Test  the  listener  active  flag,  LSNACT 
($79)    to  se  if  we  are  supposed  to  be  a 
listener.    If  flag  is  $00,   branch  to 
ATNIOO . 

BE  AN  ACTIVE  TALKER. 
JSR  to  DATHI    ($E99C)    to  free  data  line, 
serial  bus. 
JMP   to   IDLE    ($EBE7) . 

Test  the  talker  active  flag,  TLKACT($7A) 
to  see  if  we  are  supposed  to  talk.  If 
flag  is  $00,   branch  to  ATNllO. 

BE  AN  ACTIVE  TALKER. 
JSR  to  DATHI    ($E99C)    to  free  data  line. 
JSR  to  CLKLOW    ($E9AE)    to  pull   clock  low. 
JSR  to  TALK    ($E909)    to  talk  on  the  bus. 
JMP  to  ILERR   ($EA4E)    to  release  all  the 
lines  and  shift  to  idle  mode. 

FIX   SO  DEVICE  NOT  PRESENT   IS  REPORTED 
Store  $10   in  PB    ($1800)    to  kill  all  the 
lines  except  ATN  ACK    (ATN  ACKnowledge) . 
Test  if  ATN  signal   is  still  present  (bit 
7  of  PB  set).    If  gone,   branch  to  ATNS20. 
If  still  present,    loop  to  ATN122. 


SERIAL  BUS  TALK  ROUTINES 


TALK 


TALKl 


NOTLK 


TLK05 


$E909 
$E90A 

$E90F 
$E911 

$E905 
$E906 


Set  the  interrupt  flag    (SEI)    to  prevent 
any  interrupts. 

JSR  to  FNDRCH    ($DOEB)    to  find  an  unused 
read  channel.    If  no  channel   is  available 
branch  to  NOTLK  to  exit. 

Load   .X  with  the  current  channel  number 
from  LINDX    ($82)  . 

Load   .A  with  the  channel   status  from 
CHNRDY,X    ($F2,X).    If  bit  7   is   set,  the 
status  is  OK  so  branch  to  TLK05. 

Terminate  routine  with  an  RTS. 

NOTE:  CODE  ADDED  TO  FIX  VERIFY  ERROR 
JSR  to  TSTATN  ($EA59)  to  test  for  an 
ATN  signal. 
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TALK2 


TLK02 


TLK03 


NOEOI 


$E909 

$E91C 
$E91F 
$E922 

SE925 
$E928 
$E92B 

$E92F 
$E931 


$E937 
$E93A 
$E93D 

$E941 
$E944 
$E947 

$E94B 
$E94E 
$E951 
$E954 


JSR  to  DEBNC    ($E9C0)    to  test  if  the 
clock  signal   is  gone.   NOTE:    this  must  be 
80  microseconds  or  more  from  JMP  TALKl. 
AND  the  data  byte  in   .A  with  $01  and 
save  it  on  the  stack. 

JSR  to  CLKHI    ($E9B7)    to  set  the  clock 
line  high. 

Pull  the  test  byte  off  the  stack.    If  it 
is  $00,    this  is  a  VERIFY  ERROR  so  branch 
to  TLK02   to  send  an  EOI . 
JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 

JSR  to  DEBNC    ($E9C0)    to  test   if  the 
data   line  has  been  set  low. 
AND  the  test  byte    (in   .A)    with  $01. 
If  the  result  is  not  $00,   the  line  has 
not  been  set  hi    (no  response)    so  branch 
back  to  TALK2  to  wait  for  response. 

Load   .X  with  the  current  channel  number 
from  LINDX    ($82)  . 

Load   .A  with  the  channel   status  from 
CHNRDY,X    ($F2,X),   and  AND  it  with  $08  to 
test  if  we  have  an  EOI  condition.    If  the 
result  is  not  $00,  we  do  not  have  an 
EOI   so  branch  to  NOEOI    ($E94B) . 
Send  an  EOI   signal   to  the  C-64  by: 
JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 

JSR  to  DEBNC    ($E9C0)    to  send  an  EOI  and 
test  if  the  data  line  has  been  set. 
AND  the  test  byte    (in   .A)   with  $01. 
If  the  result  is  not  $00,   the  line  has 
not  been  set  hi    (no  response)    so  branch 
back  to  TLK02  to  wait  for  hi  response. 
JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 

JSR  to  DEBNC    ($E9C0)    to  test  if  the 

data  line  has  been  set. 

AND  the  test  byte    (in   .A)   with  $01. 

If  the  result  equals  $00,   the  line  has 

not  been  set  lo   (no  response)    so  branch 

back  to  TLK02  to  wait  for  lo  response. 

JSR  to  CLKLOW    ($E9AE)    to  set  the  clock 
line  low. 

JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 

JSR  to  DEBNC    {$E9C0)    to  test  if  the 
data   line  has  been  set. 
AND  the  test  byte    (in   .A)   with  $01. 
If  the  result  is  not  $00,   the  line  has 
not  been  set  hi    (no  response)    so  branch 
back  to  NOEOI   to  wait  for  hi  response. 
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ISROl 


ISR02 


ISRHI 
ISRCLK 


ISR03 


ISR04 


$E958 
$E95C 
$E95F 

$E963 
$E965 

$E96C 

$E96E 
$E971 

$E973 

$E976 

$E979 

$E97B 
$E980 
$E983 

$E987 
$E98A 

$E991 

$E992 
$E995 
$E996 


Store  $08   in  CONT    ($98)    to  set  up  the 
bit  counter. 

JSR  to  DEBNC    ($E9C0)    to   let  the  port 
settle . 

AND  the  test  byte    (in   .A)   with  $01  to 
be  sure  the   line  is  hi  before  we  send. 
If  the  result  is  not  $00,   the  line  has 
not  been  set  hi    (no  response)    so  branch 
to  FRMFRX ($E999)    to  wait  for  hi  response 
Load   .X  with  the  current  channel  number 
from  LINDX    ($82)  . 

Load   .A  with  the  channel  data  byte  from 
CHNDAT,X    ($F2,X).   Rotate  the  status  byte 
one  bit  right    (ROR)    and  store  the  result 
back   into  CHNDAT,X  ($F2,X). 
If  the  carry  bit  is  set,   branch  to  ISRHI 
to  send  a  1 . 

JSR  to  DATLOW    ($E9A5)    to  send  a  0. 
Branch  to  ISRCLK  to  clock  it. 

JSR  to  DATHI    ($E99C)    to  send  a  1. 

JSR  to  CLKHI    ($E9B7)    to  set  the  clock 
line  hi.    (rising  edge). 
Load   .A  with  the  speed  flag  from 
DRVTRK+1    ($23).    If  the  flag  is  not  $00, 
no  slow  down  is  required  so  branch  to 
ISR03 , 

JSR  to  SLOWD    ($FEF3)    to  slow  down  the 
data  transmission. 

JSR  to  CLKDAT    ($FEFB)    to  pull   the  clock 
low  and  release  the  data. 
Decrement  the  bit  count   in  CONT    ($98)  . 
If  the  count  is  not  $00,   there  are  more 
bits  to  send  from  this  byte  so  branch 
back  to  ISROl. 

JSR  to  DEBNC    ($E9C0)    to  test  if  the 

data  line  has  been  set. 

AND  the  test  byte    (in    .A)    with  $01. 

If  the  result  equals  $00,    the  line  has 

not  been  set  lo    (no  response)    so  branch 

back  to  ISR04  to  wait  for  lo  response. 

Clear  the  interrupt  flag    (CLI)  to 

allow  interrupts  in  preparation  for 

sending  the  next  byte. 

JSR  to  GET    ($D3AA)    to  get  the  next 

data  byte  to  send. 

Set  the  interrupt  flag    (SEI)    to  prevent 
any  interrupts. 

JMP  to  TALKl  to  keep  on  talking. 
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FRMERX 


DATHI 


DATLOW 


CLKLOW 


CLKHI 


DEBNC 


$E999 

$E99C 
$E9A4 
$E9A5 
$E9AD 
$E9AE 
$E9B6 
$E9B7 
$E9BF 
$E9C0 

$E9C8 


TALK  SUBROUTINES: 


JMP  to  FRMERR  ($EA4E)  to  release  all 
lines  and  go  to  idle  mode. 


Set  data  out   line  high. 
Load   .A  with  the  byte  from  port  B,  PB 
($1800) ,    AND   it  with  $FD    ($FF-DATOUT) , 
and  store  the  result  back  in  PB  ($1800) 
Terminate  routine  with  an  RTS. 


Set  data  out   line  lo. 

Load   .A  with  the  byte  from  port  B,  PB 
($1800) ,   OR  it  with  $02    (DATOUT) ,  and 
store  the  result  back  in  PB   ($1800) . 
Terminate  routine  with  an  RTS. 


Set  clock  line  lo. 

Load   .A  with  the  byte  from  port  B,  PB 
($1800) ,   OR  it  with  $08    (CLKOUT) ,  and 
store  the  result  back  in  PB    ($1800) . 
Terminate  routine  with  an  RTS. 


Set  clock  line  hi. 

Load   .A  with  the  byte  from  port  B,  PB 
($1800) ,   AND  it  with  $F7    ($FF-CLKOUT) , 
and  store  the  result  back  in  PB  ($1800) 
Terminate  routine  with  an  RTS. 


Wait  for  response  on  bus. 
Load   .A  with  the  byte  from  port  B,  PB 
($1800).   Compare  the  old  port  value  (.A) 
with  the  current  value  of  PB    ($1800)  .  If 
there  is  no  change,   branch  to  DEBNC. 
Terminate  routine  with  an  RTS. 


SERIAL  BUS  LISTEN  ROUTINES 


ACPTR 
ACPOOA 


ACPOO 


$E9C9 
$E9CD 
$E9D0 
$E9D3 

$E9D7 
$E9DA 
$E9DF 


Store  $08   in  CONT    ($98)    to  set  up  the 
bit  counter. 

JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 

JSR  to  DEBNC    ($E9C0)    to  test   if  the 
clock  line  has  been  set. 
AND  the  test  byte    (in   .A)   with  $04. 
If  the  result  is  not  $00,   the  line  has 
not  been  set  hi    (no  response)    so  branch 
back  to  ACPOOA  to  wait  for  hi  response. 
JSR  to  DATHI    (SE99C)    to  make  data  line 
high . 

Store  $01   in  TlHCl    ($1805)    to  set  up 
for  a  255  microsecond  delay. 
JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 
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ACPOOB 


ACP02A 


ACPOl 
ACP03 


ACP03A 


$E9E2 

$E9E9 
$E9EC 


$E9F2 
$E9F5 

$E9FA 
$E9FD 
$EAOO 
$EA03 

$EA07 
$EAOB 


$EA15 

$EA18 

$EA1A 
$EA1D 


Load  .A  with  the  interrupt  flag  register 
from  IFRl    ($180D)    and  AND  the  test  byte 
with  $4  0.    If  the  result  is  NOT  $00,  the 
time  has  run  out  so  it  MUST  be  an  EOI. 
Since  it  is  an  EOI,  branch  to  ACPOOB. 
JSR  to  DEBNC    ($E9C0)    to  test  if  the 
clock  line  has  been  set. 
AND  the  test  byte    (in   .A)   with  $04. 
If  the  result  is  $00,   the  clock  line  has 
not  been  set  lo   (no  response)   so  branch 
back  to  ACPOO  to  wait  for  lo  response. 
If  the  result  is  not  $00,   the  line  has 
been  set  lo  so  branch  to  ACPOl  to  go  on. 

JSR  to  DATLOW   ($E9A5)    to  set  data  line 
low  as  a  response. 

Load   .X  with  $0A,   and   loop  to  count  .X 
down  to  $00  to  delay  for  talker  turn 
around  time. 

JSR  to  DATHI    ($E99C)    to  make  data  line 
high . 

JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 

JSR  to  DEBNC    ($E9C0)    to  test  if  the 

clock  line  has  been  set. 

AND  the  test  byte    (in   .A)   with  $04. 

If  the  result  is  $00,   the  clock  line  has 

not  been  set  lo   (no  response)   so  branch 

back  to  ACP02A  to  wait  for  lo  response. 

Store  $00  in  EOIFLG    ($F8)    to  indicate 

that  an  EOI  has  been  received. 

Load   .A  with  the  data  byte  from  port  B, 
PB    ($1800) ,   EOR  it  with  $01  to  find  the 
complement  of  the  data  bit,   shift  the 
data  bit  into  the  carry  flag    (LSR) .  AND 
the  result  in   .A  with  $02  to  test  if  the 
clock  line  has  been  set  high  to  indicate 
valid  data.   If  the  result  is  NOT  $00, 
the  clock  line  has  not  been  set  hi  yet 
so  branch  back  to  ACP03  and  try  again. 
Three  $EA    (NOP)    bytes  to  fill  space 
left  by  speed-up  to  fix  VC20  901229-02 
ROM ' s . 

We  have  valid  data  bit  in  the  carry  so 
do  a  rotate  right    (ROR)    on  DATA    ($85)  to 
store  the  bit  into  the  data  byte, 
JSR  to  TSTATN    ($EA59)    to  test  for  an 
ATN  signal. 

JSR  to  DEBNC    ($E9C0)    to  test  if  the 
clock  line  has  been  set. 
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LISTEN 


LSN15 


LSN30 


FRMERR 

ITERR 

ILERR 


ATNLOW 


TSTATN 


$EA20 

$EA24 

$EA28 
$EA2B 
$EA2D 

$EA2E 
$EA2F 

$EA34 
$EA36 

$EA39 

$EA41 

$EA44 
$EA47 

$EA48 

$EA4B 

$EA4E 

$EA56 
$EA59 


AND  the  test  byte    (in   .A)   with  $04. 
If  the  result  is  $00,   the  clock  line  has 
not  been  set  lo    (no  response)    so  branch 
back  to  ACP03A  to  wait  for  lo  response. 
Decrement  the  bit  counter  in  CONT    ($98)  , 
If  the  count  is  not  $00,   there  are  more 
bits  to  get  so  branch  back  to  ACP03. 
JSR  to  DATLOW   ($E9A5)    to  set  data  line 
low  as  a  response. 

Load   .A  with  the  data  byte  from  DATA 
($85)  . 

Terminate  routine  with  an  RTS. 


MAIN  LISTEN  ROUTINE 


Set  interrupt  mask    (SEI)    to  prevent  any 
interrupts . 

JSR  to  FNDWCH    ($D107)    to  find  an  unused 
write  channel.    If  none  available,  branch 
to  LSN15. 

Load   .A  with  the  write  channel  status 
from  CHNRDY,X  ($F2,X). 

Rotate  the  status  byte  right   (ROR) .  If 
the  carry  bit  is  set,   the  write  channel 
is  inactive  so  branch  to  LSN30. 
Test  if  this   is  an  OPEN  command  by: 
loading   .A  with  the  original  secondary 
address  from  ORGSA    ($84)'   and  AND'ing  it 
with  $F0.    If  the  result  is  $F0,    it  is 
an  OPEN  command  so  branch  to  LSN3  0. 
Not  an  active  channel   so  JMP  to  ILERR 
($EA4E)    to  abort. 

JSR  to  ACPTR    ($E9C9)    to  get  a  data  byte. 
Clear  interrupt  mask    (CLI)    to  allow 
interrupts . 

JSR  to  PUT    ($CFB7)    to  put  the  data  byte 
into  its  proper  place    (DATA,   EOI,   SA) . 
JMP  to  LISTEN    ($EA2E)    to  keep  on 
listening. 


Release  all  bus   lines  and  go  idle: 
Store  $00  into  port  B,   PB    ($1800)  and 
JMP  to   IDLE    ($EBE7) . 


LISTEN  SUBROUTINES 


JMP  to  ATNSRV  ($E85B)  to  service  ATN 
request . 


Test  if  in  ATN  mode: 

Load   .A  with  the  attention  mode  flag 
from  ATNMOD    ($7D) .    If  $00,  we  are  not 
in  attention  mode  so  branch  to  TSTA50. 
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TSTRTN 


TSTA50 


TATN20 


PEZRO 
PERR 

PE20 
PE30 


REA7D 

PDIO 

PD20 


$EA5D 

$EA62 
$EA63 


$EA6B 


$EA6E 
$EA70 


$EA71 
$EA73 

$EA74 
$EA75 


$EA7D 
$EA7E 
$EA7F 

$EA83 


$EA86 


We  are  in  attention  mode.   Load   .A  with 
the  byte  from  port  B,   PB    ($1800) .  If 
bit  7  of  this  byte  is  clear,   the  ATN 
signal   is  gone  so  branch  to  TATN20  to 
do  what  we  were  told. 

The  ATN  signal  hasn't  gone  away  yet  so 
exit  with  an  RTS. 

We  are  not  in  attention  mode  now.  Load 
.A  with  the  byte  from  port  B,   PB  ($1800) 
If  bit  7  of  this  byte  is  clear,   there  is 
no  ATN  signal  present  so  branch  to 
TSTRTN  to  exit. 

If  bit  7  of  this  byte  is  set,  there  is 
an  ATN  signal  present  so  JMP  to  ATNSRV 
($E85B)    to  service  the  ATN  request. 

JMP  to  ATNS20    ($E8D7)    to  carry  out  the 
attention  command. 

FLASH  LED  TO  SIGNAL  ERROR 

No-error  status: 

Load   .X  with  $00. 

.BYTE  $2C  skips  next  two  bytes. 

Error  status: 

Load   .X  with  the  error  number  from  TEMP 
($6F) . 

Transfer  the  error  number  from   .X  into 
the  stack  pointer  to  use  the  stack  as  a 
storage  register. 

Transfer  the  value  of  the  stack  pointer 
(the  error  number)    into  .X 
Load   .A  with  $08    (the  LED  mask) ,   OR  it 
with  the  data  port  controlling  the  LED ' s 
LEDPRT    ($1C00) .   and  JMP  to  PEA7A  ($FEEA) 
to  turn  on  LED.  NOTE:    this  is  a  patch  to 
be  sure  the  data  direction  register  for 
the  LED  line  is  set  to  output. 
Transfer  the  byte  in   .Y  to  .A 
Clear  the  carry  flag. 

Add  $01  to  the  contents  of   .A.    If  the 
result  is  not  $00,   branch  to  PD20. 
Decrement   .Y    (the  hi  byte  of  the  timer) . 
If  value  of   .Y  is  not  $00,   branch  to 
PDIO . 

Turn  off  LED  (s)  . 

Load   .A  with  the  byte  from  the  data  port 
controlling  the  LED,   LEDPRT    ($1C00).  AND 
the  byte  with  $F7    ($FF  -  LED  mask)  and 
store  the  result  back  into  LEDPRT ($ ICOO ) 
to  turn  OFF  the  LED. 
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PE40 
PDll 
PD21 


$EA8E 
$EA8F 
$EA90 

$EA94 
$EA97 
$EA9A 


Transfer  the  byte  in   .Y  to  .A 
Clear  the  carry  flag. 

Add  $01  to  the  contents  of   .A.    If  the 
result  is  not  $00,   branch  to  PD21. 
Decrement   .Y    (the  hi  byte  of  the  timer) . 
If  value  of   .Y  is  not  $00,   branch  to 
PDll . 

Decrement  the  count  in   .X.    If  the  result 
is  greater  than  or  equal   to  $00,  branch 
to  PE30  to  flash  again. 
Compare   .X  to  $FC  to  see  if  we  have 
waited  long  enough  between  groups  of 
flashes.    If   .X  <>  $FC  branch  to  PE40  to 
wait  some  more.    If   .X  =   $FC,   branch  to 
PE20  to  repeat  the  sequence. 


INITIALIZATION  OF  DISK 


DSKINT 


PVIO 


PV2  0 


PV3  0 


RMIO 


$EAAO 

$EAA1 
$EAA2 

$EAA7 


$EAAC 
$EAAD 
$EAAF 


$EAB2 
$EAB3 

$EAB7 
$EAB9 

$EABC 


$EACO 
$EAC2 


$EAC6 


$EAC9 


Set  the  interrupt  flag  (SEI)  to  prevent 
interrupts . 

Clear  the  decimal  mode  flag    (CLD) . 
Store  $FF  into  the  data  direction 
register  DDRAl    ($1803) . 
Load   .X  and   .Y  with  $00. 

Fill   zero  page  with  ascending  pattern 
Transfer  the  byte  from  .X  into  .A. 
Store  the  byte  from   .A  into  $00, X, 
Increment   .X.    If   .X  is  not  $00,  branch 
back  to  PVIO. 
Check  zero  page  bits. 
Transfer  the  byte  from   .X  into  .A. 
Compare  the  byte  in   .A  with  $00,X. 
If  no  match,   branch  to  PEZRO    ($EA6E) . 
Increment  the  contents  of  $00, X  by  1. 
Increment   .Y.    If   .Y  is  not  $00,  branch 
back  to  PV3  0. 

Check  if  $00, X  equals  byte  in   .A.   If  no 
match,    something  is  wrong  so  branch  to 
PEZRO    ($EA6E) . 

Store  the  $00  byte  from   .Y  into  $00, X. 
Check  if  $00, X  equals  $00.    If  it  does 
not,   something  is  wrong  so  branch  to 
PEZRO  ($EA6E). 

Increment   the  counter  in   .X.    If  the 
result  is  not  $00,  we  have  more  of  zero 
page  to  check  so  branch  back  to  PV2  0. 

Test  the  two  64K  bit  ROM's. 

Increment  TEMP    ($6F)    to  set  the  next 
error  number    ($01=$E/F; $02=$C/D  ROM). 
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RTIO 
RT20 


CR20 
CR30 


RAMTST 
RAIO 


RA30 
RA40 


$EACB 

$EACF 
$EAD1 
$EAD4 
$EAD5 

$EAD7 


$EADC 


$EADF 
$EAE1 
$EAE2 


$EAE6 


$EAEA 
$EAEC 

$EAEE 

$EAFO 
$EAF2 
$EAF4 


$EAF8 
$EAFB 

$EBOO 
SEB02 

$EB04 

$EB07 

$EBOD 


Store   .X  value    (page  number)    into  IP+1 
($76)    as  the  hi  byte  of  the  pointer. 
Set   lo  byte  of  pointer,    IP    ($75)    to  $00. 
Set   .Y  to  $00  and   .X  to  $20    (32  pages) . 
Clear  the  carry  flag. 

Decrement  the  hi  byte  of  the  pointer  in 
IP+1    ($76)    and  we'll  do  it  bacl^wards . 
Add  the  ROM  value  from    (IP),Y  to  the 
contents  of   .A,    increment  the  Y  pointer, 
and  if   .Y  is  not  $00,   branch  back  to 
RT20  to  do  another  byte  from  this  page. 
Decrement   .X    (page  count) .    If  the  page 
count  is  not  zero,   branch  to  RTIO  to  do 
the  next  page  of  the  ROM. 
Add  $00  to   .A  to  add  in  the   last  carry. 
Transfer  the  checksum  from   .A  to  .X. 
Compare  the  checksum  in   .A  with  the 
hi  byte  of  the  count   in  IP+1    ($76) .  If 
the  bytes  do  not  match,   branch  to  PERR2 
($EB1F) .         $E/F  ROM:   checksum  =  $E0 
$C/D  ROM:   checksum  =  $C0 
Compare  checksum  in   .X  with  $C0  to  check 
if  we  are  done.    If  not,   branch  to  RMIO. 

Test  the  disk  RAM. 

Load   .A  with  $01    (start  of  first  block) . 
Save  contents  of   .A    (page  number)  into 
IP+1    ($76)    as  hi  byte  of  pointer. 
Increment  TEMP    ($6F)    to  bump  the  error 
number    ($03=RAM  problem) 

Load   .X  with  $07    (number  of  RAM  pages) . 
Transfer   .Y  value  to   .A  and  clear  carry. 
Add  the  hi  byte  of  the  pointer,  IP+1 
($76)    to  the  accumulator  and  store  the 
result  in    (IP,Y) . 

Increment   .Y  and  if   .Y  is  not  $00, 
branch  to  RAIO  to  fill  RAM  page. 
Increment  the  hi  byte  of  the  pointer  in 
IP+1    ($76)    and  decrement  the  page  count 
in   .X.    If   .X  is  not  $00,  we  have  more 
pages  to  do  so  branch  back  to  RAIO. 
Load   .X  with  $07    (number  of  RAM  pages) . 
Decrement  the  hi  byte  of  the  pointer  in 
IP+1    ($76).  We'll  check  backwards. 
Decrement   .Y,    transfer  the   .Y  value  into 
.A  and  clear  the  carry. 
Add  the  hi  byte  of  the  pointer,  IP+1 
($76)    to  the  accumulator  and  compare  the 
result  with    (IP,Y).    If  they  don't  match, 
branch  to  PERR2  to  report  the  error. 
EOR  the  contents  of   .A  with  $FF  to  flip 
the  bits  and  store  the  result  into  the 
RAM  at    ( IP) , Y, 


376 


NAME 


ADDRESS 


DESCRIPTION  OF  WHAT  ROM  ROUTINE  DOES 


PERR2 
DIAGOK 


$EB11 

$EB17 

$EB1A 
$EB1D 
$EB1F 
$EB22 
$EB25 

$EB2D 
$EB32 

$EB3A 


INTTAB 
INTTl 


$EB43 
$EB43 


$EB4B 
$EB4F 

$EB53 


$EB59 


$EB5F 


EOR  the  contents  of   .A  with    (IP),Y  and 
store  the  result    (should  be  $00)  back 
into    (IP),Y.    If  the  result  is  not  $00, 
branch  to  PERR2  to  report  the  error. 
Transfer  the  contents  of   .Y  into   .A.  If 
.Y  is  not  $00,  we  have  more  to  do  on 
this  page  so  branch  back  to  RA40. 
Decrement  the  page  count  in   .X.    If  there 
are  more  pages  to  do,   branch  to  RA3  0. 
Branch  to  DIAGOK. 

JMP  to  PERR   ($EA71)    to  report  error. 

Load   .X  with  $45  and  transfer  this  value 
to  the  stack  pointer  to  reset  the  stack. 
Load   .A  with  the  byte  from  the  LED 
control   port,   LEDPRT    ($1C00) ,   AND  it 
with  $F7    ($FF-LED  mask)    and  store  the 
result  back  in  LEDPRT  to  turn  off  LED. 
Store  $01  in  PCRl    ($180C)    to  cause 
interrupt  on  the  negative  edge  of  ATN. 
Store  $82    (10000010)    in   IFRl  ($180D) 
and   lERl    ($180E) . 

COMPUTE  DEVICE   #   FROM  BITS   5/6   OF  PORT  B 

Load   .A  with  the  data  byte  from  Port  B, 
PB    ($1800) .   AND  the  byte  with  $60 
(%01100000) .   Do  one  ASL  and  three  ROL ' s 
to  convert  from  bits  6/5  to  bits  1/0. 
NOTE:      OXXOOOOO  becomes  OOOOOOXX 

OR   .A  with  $48    (the  talk  address)  and 
store  the  result  in  TLKADR    ($78)  . 
EOR   .A  with  $60    (the   listen  address)  and 
store  the  result  in  LSNADR   ($77) . 

Initialize  buffer  pointer  table 
Zero   .X  and  .Y 

Zero   .A  and  store  the  $00  byte  in   .A  in 
the  buffer  table  at  BUFTAB,X    ($99, X). 
Increment   .X  and  load   .A  with  the  hi 
byte  of  the  pointer  to  the  buffer  from 
BUFIND,Y    ($FEEO)    and  store  it  into  the 
buffer   table  at  BUFTAB,X    ($99, X). 
Increment    .X  and   .Y  and  compare  the  new 
value  of   .Y  with  $05    (the  number  of 
buffers) .    If  there  are  more  buffers  to 
do,   branch  to  INTTl. 

Store  the   lo  byte  of  the  pointer  to  the 
command  buffer    ($00)    into  the  buffer 
table  at  BUFTAB,X    ($99, X).    Increment  .X. 
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DSKINl 


DSKIN2 


$EB64 
$EB69 
$EB6E 

$EB72 
$EB76 

$EB7C 
$EB7E 

$EB87 

$EB8B 

$EB8F 
$EB93 
$EB95 

$EB9A 

$EB9F 

$EBA4 

$EBA8 

$EBAC 

$EBB6 

$EBBC 

$EBBF 

$EBC2 

$EBC5 

$EBCD 
$EBD1 


Store  the  hi  byte  of  the  pointer  to  the 
command  buffer    ($02)    into  the  buffer 
table  at  BUFTAB,X    ($99, X).    Increment  .X. 
Store  the  lo  byte  of  the  pointer  to  the 
error  buffer    ($D5)    into  the  buffer  table 
table  at  BUFTAB,X    ($99, X).    Increment  .X. 
Store  the  hi  byte  of  the  pointer  to  the 
error  buffer    ($02)    into  the  buffer  table 
table  at  BUFTAB,X    ($99, X).    Increment  .X. 

Load   .A  with  $FF    (inactive  SA)    and  .X 
with  $12    (the  maximum  secondary  address) 
Loop  to  set  all  LINTAB,X  ($022B,X) 
values  to  $FF  to  indicate  inactive. 

Load   .X  with  $05    (the  maximum  number  of 
channel s  -  1)  . 

Loop  to  set  all   BUFO,X    ($A7,X),  BUF1,X 
($AE,X)    and  SS,X    (CD,X)   values  to  $FF  to 
indicate  that  these  buffers  are  unused. 

Store  $05    (the  buffer  count)  into 
BUFO+CMDCHN  {$AB) 

Store  $05    {the  buffer  count  +   1)  into 
BUFO+ERRCHN  ($AC) 

Store  $FF   into  BUFO+BLINDX  {$AD) 
Store  $FF  into  BUFl+BLINDX  ($84) 
Store  $05    {the  error  channel   #)  into 
LINTAB+ERRSA    ($023B) . 

Store  $84    {$80  +  the  command  channel  #) 
into  LINTAB  +  CMDSA    ($023A)  . 
Store  $0F    {LINDX  0  to  5  free)  into 
LINUSE    {$0256)  . 

Store  $01    {ready  to  listen)  into 
CHNRDY  +  CMDCHN    ($F6)  . 
Store  $01    {ready  to  talk)  into 
CHNRDY  +  ERRCHN    ($F7)  . 

Store  $E0   into  BUFUSE    {$024F)    and  $FF 
into  BUFUSE  +  1    {$0250)  . 
Store  $01   into  WPSW   ($1C)    and  WPSW+1 
{$1D)    to  set  up  the  write  protect  status 
JSR  to  USRINT    {$CB63)    to  initialize  the 
user  jump  table. 

JSR  to  LRUINT    {$CEFA)    to  initialize  the 
least  recently  used  table. 
JSR  to  CNTINT    {$F259)    to  initialize  the 
disk  controller. 

Set  up  the  indirect  NMI  vector  at  VNMI 

($65/6)    to  point  to  the  diagnostic 

routine,   DIAGOK    {$EB22) . 

Store  $0A  into  SECINC    {$69)    as  the 

normal  next  sector  increment. 

Store  $05   into  REVCNT    {$6A)    as  the 

normal  recovery  counter. 
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SETERR  $EBD5 


$EBDA 


IDLE 


IDLl 


IDLOl 


IDL02 


$EBDF 
$EBE4 


$EBE7 
$EBE8 

$EBFO 

$EBF5 
$EBFA 
$EBFC 
$EBFF 
$ECOO 

$EC04 

$EC07 

$EC08 

$ECOC 
$EC12 

$EC14 


Load   .A  with  $73  and  JSR  to  ERRTSO 
($E6C1)    to  set  up  power-on  error  message 

73   CBM  DOS  V2.6   1541     0  0 
Load   .A  with  $1A    (%00011010)    and  store 
it  in  the  data  direction  register  DDRBl 
($1802) .   ATNA,CLKOUT,DATOUT  are  outputs. 
Store  $00  in  data  port  B,   PB   ($1800)  to 
set  DATA,   CLOCK,   &  ATNA  lines  high. 
JSR  to  BOOT    ($E780)    to  see  if  we  need 
to  boot  a  systems  routine. 


IDLE  LOOP, 


WAIT  FOR  SOMETHING  TO  DO. 


Clear  interrupt  mask    (CLI)    to  allow 
interrupts . 

Release  all  the  bus  lines: 
Load   .A  with  the  byte  from  port  B,  PB 
($1800) ,   AND  it  with  $E5   to  set  CLOCK, 
DATA,   and  ATNA  lines  high,   and  store  the 
result  back  in  PB    ($1800)  . 
Check  the  value  of  CMDWAT    ($0255)    to  see 
if  there  is  a  command  waiting.    If  it  is 
$00,   there  is  none  waiting  so  branch  to 
IDLl . 

Store  $00  in  CMDWAT  ($0255)  to  clear  the 
comm.and  waiting  flag. 

Store  $00  in  NMIFLG    ($67)    to  clear  the 
debounce . 

JSR  to  PARSXQ    ($C146)    to  parse  and  then 
execute  the  command. 

Clear  interrupt  mask    (CLI)    to  allow 
interrupts . 

Check  the  value  of  ATNPND    ($0255)    to  see 
if  there  is  an  attention  pending.    If  it 
is  $00,   there  is  nothing  pending  (such 
as  the  drive  running  or  an  open  file) 
so  branch  to  IDLOl. 

JMP  to  ATNSRV   ($E85B)    to  service  the 
attention  request. 

Clear  interrupt  mask    (CLI)    to  allow 
interrupts . 

Store  $0E    (#14),   the  maximum  secondary 
address  for  files  in  TEMP+3  ($72). 
Zero  TEMP    ($6F)    and  TEMP+1    ($70)  . 
Load   .X  with  the  secondary  address 
counter  from  TEMP+3    ($72) . 
Load   .A  with  the  channel  number  for  this 
secondary  address  from  LINTAB,X ($022B,X) 
If  it  is  $FF,   there  is  no  active  file 
for  this  SA  so  branch  to  IDL3. 
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IDL3 


IDL4 


IDL5 


IDL6 


IDL7 


$EC1B 


$EC1F 

$EC22 
$EC23 


$EC29 
$EC2B 

$EC2F 
$EC31 

$EC36 

$EC39 
$EC3B 

$EC3E 
$EC3F 

$EC45 

$EC49 
$EC4D 

$EC51 

$EC55 
$EC58 


$EC5C 
$EC5E 

$EC62 


We've  found  an  active  file  so  AND  the 
channel  number  with  $3F  and  store  the 
result  as  the  current  channel  number  in 
LINDX    ($82)  . 

JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in   .A) . 
Transfer  the  buffer  number  from   .A  to  .X 
Determine  which  drive  is  to  be  used  by 
loading  the  old  job  number  from  LSTJOB,X 
($025B,X) ,   AND'ing  it  with  $01,  and 
transferring  the  result  into  .X. 
Increment  the  count  of  the  number  of 
active  files  on  drive  X  in  TEMP,X ($6F,X) 
Decrement  the  SA  count  in  TEMP  +  3    ($72)  . 
If  there  are  more  secondary  addresses 
left  to  check,   branch  back  to  IDL2. 
Load   .Y  with  $04    (the  number  of  buffers 
less  1 ) . 

Load   .A  with  the  current  job  code  for 
this  buffer  from  the  job  queue,  JOBS,Y 
($00, Y).    If  bit  7  is  not  set,   no  job  is 
in  progress  so  branch  to  IDL5. 
There  is  a  job  in  progress  so  AND  the 
job  code  in   .A  with  $01  to  mask  off  the 
non-drive  bits  and  transfer  the  result 
to  .X. 

Increment  the  count  of  the  number  of 
active  files  on  drive  X  in  TEMP , X ( $6F , X ) 
Decrement  the  buffer  counter  in   ,Y.  If 
there  are  more  buffers  to  check,  branch 
to  IDL4. 

Set  the  interrupt  mask    (SEI)    to  prevent 
interrupts  while  reading  LEDPRT    ($1C00) . 
Load   .A  with  the  data  byte  from  the 
port  controlling  the  LED,   AND  the  byte 
with  $F7    ($FF  -  LED  mask) ,   and  save  the 
result  onto  the  stack. 

Load   .A  with  the  current  drive  number 
from  DRVNUM  '($7F)    and  save  it  in  R0($86) 
Zero  DRVNUM    ($7F) . 

Test  the  active  file  count  for  drive  0 
in  TEMP    ($6F) .    If  $00,   branch  to  IDL7. 
Load  the  write  protect  switch  byte  from 
WPSW   ($1C) .    If  it  is  $00  branch  to  IDL6. 
JSR  to  CLDCHN    ($D313)    to  close  all  files 
Pull  the  LED  data  byte  off  the  stack, 
OR  it  with  $08    (LED  mask)    to  turn  on  the 
LED  since  drive  0  is  active,   and  save 
the  byte  back  onto  the  stack. 
Increment  the  DRVNUM    ($7F) .      (to  $01) 
Test  the  active  file  count  for  drive  1 
in  TEMP+1    ($70).    If  $00,   branch  to  IDL9. 
Load  the  write  protect  switch  byte  from 
WPSW   ($1C) .    If  it  is  $00  branch  to  IDL8. 
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IDL8 


IDL9 


IDLIO 


IDLll 


IDL12 


STDIR 


$EC66 
$EC69 


$EC6D 

$EC71 
$EC72 


$EC77 
$EC7A 

$EC7E 

$EC81 

$EC86 
$EC8B 

$EC90 

$EC93 
$EC98 
$EC9B 

$EC9E 
$ECA2 

$ECA7 

$ECAC 
$ECAE 
$ECB3 


JSR  to  CLDCHN    ($D313)    to  close  all  files 
Pull  the  LED  data  byte  off  the  stack, 
OR  it  with  $00    (LED  mask)    to  turn  on  the 
LED  since  drive  1  is  active,   and  save 
the  byte  back  onto  the  stack. 
Copy  the  original  drive  number  from 
RO    ($86)    back  into  DRVNUM    ($7F) . 
Pull  the  LED  data  byte  off  the  stack. 
Load   .X  with  the  error  status  from 
ERWORD    ($026C) .    If   it  is   $00,    the  LED 
is  not  flashing  so  branch  to  IDL12. 

Error  light  is  flashing: 

Load   .A  with  the  LED  data  byte  from 

LEDPRT  ($1C00) 

Compare  the  error  status   in   .X  with  $80. 
If  it  is  not  $80,   this  is  not  the  first 
time  we  have  seen  this  error  so  branch 
to  IDL  10. 

We  have  just  encountered  a  new  error 
status  so  JMP  to  IDLll. 

Load   .X  with  the  value  of  TIMERl  ($1805) 
If  bit  7  is  set,  we  are  still  timing  so 
branch  to  IDL12. 

Store  $A0   into  TIMERl    ($1805)    to  set  the 
timer  to  a  new  8  millisecond  cycle. 
Decrement  the  count  of  8  millisecond 
cycles  in  ERWORD    ($026C) .    If  the  count 
is  not  $00  yet,   branch  to  IDL12 
Time  is  up.   EOR  the  LED  status   in  .A 
with  the  LED  mask  in  ERLED    ($026D)  to 
toggle  the  LED. 

Store  $10   in  ERWORD    ($026C)    to  start  a 
new  timing  cycle. 

Store  the  current  LED  status    (in  .A) 

into  the  LED  port,   LEDPRT    ($1C00) . 

JMP  to  IDLl    ($EBFF)    the  top  of  the  loop. 

Start  loading  the  directory: 

Set  current  secondary  address,   SA  ($83) 

to  $00. 

Load   .A  with  $01  and  JSR  to  GETRCH 
($D1E2)    to  allocate  a  channel  and  one 
buffer . 

Zero   .A  and  JSR  to  SETPNT    ($D4C8)  to 
set  the  buffer  pointer  to  the  start  of 
the  buffer. 

Load   .X  with  the  channel  number  from 
LINDX    ($82) . 

Store  $00  as  the  last  character  for  this 
channel   in  LSTCHR,X    ($0244) . 
JSR  to  GETACT    ($DF9  3)    to  get  the  active 
buffer  number    (returned  in   .A) . 
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DIRl 


$ECB6 
$ECB7 


$ECBC 
$ECC1 
$ECC6 
$ECCE 

$ECD4 

$ECD9 
$ECDC 
$ECDF 
$ECE1 
$ECE5 

$ECEA 

$ECF2 

$ECF7 

SECFD 

$ED03 
$ED06 


Transfer  the  buffer  number  into  .X 
Load   .A  with  the  current  drive  number 
from  DRVNUM    ($7F)    and  store  this  number 
as  the   last  job  number  for  this  buffer 
in  LSTJOB,X    ($025B) . 
Load   .A  with  $01  and  JSR  to  PUTBYT 

($CFF1)    to  put  the  lo  byte  of  the  load 
address    ($0401)    into  the  buffer. 
Load   .A  with  $04  and  JSR  to  PUTBYT 

($CFF1)    to  put  the  hi  byte  of  the  load 
address    ($0401)    into  the  buffer. 
Load   .A  with  $01  and  JSR  to  PUTBYT 

($CFF1)    twice  to  put  a  phony  program 
line  link    ($0101)    into  the  buffer. 
Load   .A  with  the  drive  number  for  the 
directory  from  NBTEMP    ($0272)    and  JSR  to 
PUTBYT    ($CFF1)    to  put  this  to  the  buffer 
as  the   lo  byte  of  the  first  line  number. 
Load   .A  with  $00  and  JSR  to  PUTBYT 

($CFF1)    to  store  this  as  the  hi  byte  of 
the   line  number. 

JSR  to  MOVBUF    ($ED59)    to  move  the  disk 
name  into  the  buffer. 

JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  it  into  .X. 

Decrement  the   lo  byte  of  the  pointer  in 
BUFTAB,X    ($$99, X)  twice. 
Load    .A  with  $00   and  JSR  to  PUTBYT 
($CFF1)    to  store  this  as  the  end  of 
program  line  null  byte. 
Load   .A  with  $01  and  JSR  to  PUTBYT 
($CFF1)    twice  to  put  a  phony  program 
line   link    ($0101)    into  the  buffer. 
JSR  to  GETNAM    ($C6CE)    to  get  the  buffer 
number  and  file  name.    If  the  carry  flag 
is  clear  on  return,   this   is  the  last 
entry  so  branch  to  DIR3. 
Load   .A  with  the   lo  byte  of  the  block 
count  from  NBTEMP    ($0272)    and  JSR  to 
PUTBYT    ($CFF1)    to  put   this  to  the  buffer 
as  the   lo  byte  of  the  line  number. 
Load   .A  with  the  hi  byte  of  the  block 
count  from  NBTEMP+1    ($0273)    and  JSR  to 
PUTBYT    ($CFF1)    to  put  this  to  the  buffer 
as  the  hi  byte  of  the   line  number. 
JSR  to  MOVBUF    ($ED59)    to  move  the  file 
name  and  file  type  into  the  buffer. 
Load   .A  with  $00  and  JSR  to  PUTBYT 
($CFF1)    to  store  this  as  the  end  of 
program  line  null  byte. 
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DIRIO 


DIR3 


$EDOB 

$EDOD 

$ED10 

$ED12 

$ED16 
$ED18 

$ED1A 

$ED1D 

$ED20 
$ED22 

$ED23 

$ED29 

$ED2F 
$ED32 
$ED35 
$ED37 
$ED3B 

$ED46 
$ED49 
$ED4B 
$ED4E 
$ED50 


If  the  Z  flag  is  not  set  on  return,  the 
buffer  is  not  full  so  branch  to  DIRl  to 
do  the  next  file  entry. 

JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  it  into  .X. 

Store  $00  as  the  lo  byte  of  the  pointer 
in  BUFTAB,X    ($$99 ,X) . 
Load   .A  with  $88    (ready-to-talk) . 
Load   .Y  with  the  channel  number  from 
LINDX    ($82)  . 

Store  $88    (in   .A)    into  the  directory 
list  flag  DIRLST    ($0254)    to  indicate 
that  the  directory  list  is  full. 
Store  $88    (in   .A)    as  the  channel  status 
in  CHNRDY,Y  ($00F2,Y). 

Load   .A  with  the  byte  from  DATA    ($85)  . 
Terminate  routine  with  an  RTS. 


End  directory  loading: 

Load   .A  with  the  lo  byte  of  the  block 
count  from  NBTEMP    ($0272)    and  JSR  to 
PUTBYT    ($CFF1)    to  put  this  to  the  buffer 
as  the   lo  byte  of  the   line  number. 
Load   .A  with  the  hi  byte  of  the  block 
count  from  NBTEMP+1    ($0273)    and  JSR  to 
PUTBYT    ($CFF1)    to  put  this  to  the  buffer 
as  the  hi  byte  of  the  line  number. 
JSR  to  MOVBUF    ($ED59)    to  move  the  file 
name  and  file  type  into  the  buffer. 
JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  it  into  .X. 
Decrement  the  lo  byte  of  the  pointer  in 
BUFTAB,X    ($$99, X)  twice. 
Load   .A  with  $00  and  JSR  to  PUTBYT 
($CFF1)    three  times  to  store  the  three 
null  bytes  at  the  end  of  a  program. 
JSR  to  GETACT    ($DF93)    to  get  the  active 
buffer  number    (returned  in  .A). 
Multiply  the  buffer  number  by  2  (ASL) 
and  transfer  it  into  .Y. 

Load   .A  with  the  lo  byte  of  the  pointer 
into  the  buffer  from  BUFTAB,Y    ($0099, Y). 
Load   .Y  with  the  channel  number  from 
LINDX    ($82)  . 

Store  the   lo  byte  of  the  pointer    (in  .A) 
into  the  lo  byte  of  the  pointer  to  the 
last  non-zero  character  in  the  buffer 
LSTCHR,X    ($0244, X) . 


383 


NAME 


ADDRESS 


DESCRIPTION  OF  WHAT   ROM  ROUTINE  DOES 


MOVBUF 
MOVBl 


GETDIR 


GETD3 


GDI 


$ED53 
$ED56 


$ED59 
$ED5B 


$ED61 
$ED66 

$ED67 

$ED6A 

$ED6C 

$ED6D 
$ED6F 

$ED71 
$ED74 
$ED76 


$ED7B 
$ED7D 

$ED7E 
$ED7F 

$ED82 
$ED83 


Decrement  the  pointer  in  LSTCHR,X 
($0244  , X)   by  1   so  it  does  actually  point 
to  the   last  character  in  the  buffer, 
JMP  to  DIRIO    ($EDOD)    to  set  the  channel 
status  and  flags  and  exit. 

Transfer  file  name  to  listing  buffer 
Zero  .Y 

Load   .A  with  the  character  from  NAMBUF,Y 
($02B1,Y)    and  JSR  to  PUTBYT    ($CFF1)  to 
store  it  in  the   listing  buffer. 
Increment   .Y.    If   .Y  is  not  $1B  (#27) 
yet,  branch  to  MOVBl. 
Terminate  routine  with  an  RTS. 

Get  character  for  directory  load 
JSR  to  GETBYT    ($D137)    to  get  a  byte  from 
the  data  buffer    (loads  next  block  if 
necessary) . 

On  return,   if  the  Z  flag  is  set,  we  are 
at  the  end-of-file  so  branch  to  GETD3 . 
Terminate  routine  with  an  RTS. 

Store  the  byte    (in   .A)    into  DATA    ($85)  . 
Load   .Y  with  the  channel   number  from 
LINDX    ($82)  . 

Load  .A  with  the  lo  byte  of  the  pointer 
into  the  directory  buffer  from  LSTCHR,Y 
($0244, Y) 

If  the  lo  byte  of  the  pointer  is  $00,  we 
have  exhausted  the  current  buffer  so 
branch  to  GDI. 

We  must  be  at  the  end-of-file  so  load 
.A  with  $80    (EOI)    and  store  it  as  the 
channel   status  in  CHNRDY,Y  ($00F2,Y). 
Load   .A  with  the  byte  from  DATA  ($85). 
Terminate  routine  with  an  RTS. 

Save  the  null  byte  in   .A  onto  the  stack, 
JSR  to  DIRl    ($ECEA)    to  create  pseudo 
program  listing  in  the   listing  buffer. 
Pull  the  null  data  byte  off  the  stack. 
Terminate  routine  with  an  RTS. 


VALIDATE    (COLLECT)    DISK  COMMAND 


Create  a  new  BAM  to  match  the  sectors 
VALDAT  used  by  the  current  directory  entries. 

VERDIR       $ED84       JSR  to  SIMPRS    ($C1D1)    to  parse  the 

command  string  and  extract  the  drive  #. 
$ED87       JSR  to  INITDR    ($D042)    to  initialize  the 

drive  specified. 
$ED8A       Store  $40   in  WBAM    ($02F9)    to  mark  BAM 
as  dirty    (needs  to  be  written  out) . 
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VDIO 


VD15 


VD17 


$ED8F 
$ED92 

$ED9A 


$ED9C 
$EDAO 

$EDA5 


$EDA8 
$EDAD 
$EDBO 


$EDB3 
$EDB4 


$EDB7 
$EDB8 


$EDBB 
$EDBD 


$EDC1 
$EDC3 
$EDC4 


$EDC8 

$EDCB 
$EDCE 
$EDD1 


JSR  to  NEWMAP    ($EEB7)    to  build  a  new 
blank  BAM  in  RAM. 

Store  $00   in  DELIND    ($0292)    to  force 
a  search  for  a  valid  directory  entry 
and  JSR  to  SRCHST    ($C5AC)    to  search  the 
directory  for  the  first  valid  entry. 
If  an  entry  is  found    (Z   flag  not  set), 
branch  to  VD25  to  process  it. 

No  more  entries  so  finish  up. 
Set  SECTOR    ($81)    to  $00. 

Set  TRACK  ($80)  with  the  value  $12  (#18) 
from  DIRTRK    ($FE85) . 

JSR  to  VMKBAM    ($EDE5)    to  trace  through 
the  directory  sectors  and  mark  those  in 
use  in  the  BAM. 

Store  $00   in  WBAM    ($02F9)    to  mark  BAM  as 
clean    (BAM  in  RAM  matches  BAM  on  disk) . 
JSR  to  SCRBAM    ($EEFF)    to  write  BAM  out 
to  disk. 

Terminate  command  with  a  JMP  to  ENDCMD 
($C194)  . 

Process  directory  entry  for  BAM 
Increment   ,Y    (points  to  entry  in  buffer) 
Load  the  track  link  for  the  entry  from 
(DIRBUF) ,Y;    ($94) ,Y  and  save  it  onto 
the  stack. 

Increment   .Y    (points  to  entry  in  buffer) 
Load  the  sector  link  for  the  entry  from 
(DIRBUF) ,Y;    ($94) ,Y  and  save  it  onto 
the  stack. 

Load   .Y  with  $13  so  it  points  to  the 
side  sector  track  link  of  the  entry. 
Load  the  SS  track  link  for  the  entry 
from    (DIRBUF) ,Y;    ($94) ,Y.    If   the  SS 
track  link  is  $00,  this  isn't  a  relative 
file  so  branch  to  VD17. 

Store  the  SS  track  link  in  TRACK    ($80)  . 
Increment   .Y    (points  to  entry  in  buffer) 
Load  the  SS  sector  link  for  the  entry 
from    (DIRBUF)  ,Y;    ($94)  ,Y.   Store  the  SS 
sector  link  in  SECTOR    ($81)  . 
JSR  to  VMKBAM    ($EDE5)    to  trace  through 
the  SS  file  and  mark  the  sectors  used 
in  the  BAM. 

Pull  the  main  file's  sector  link  off  the 
stack  and  store  it  in  SECTOR    ($81) . 
Pull  the  main  file's  track  link  off  the 
stack  and  store  it  in  TRACK    ($80)  . 
JSR  to  VMKBAM    ($EDE5)    to  trace  through 
the  main  file  and  mark  the  sectors  used 
in  the  BAM. 
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VD20 


VD25 


VMKBAM 


MRK2 


MRKl 


$EDD4 
$EDD7 

$EDD9 
$EDDB 

$EDDF 

$EDE2 

$EDE5 
$EDE8 

$EDEB 

$EDEE 

$EDF3 
$EDF8 
$EDFD 
$EE01 

$EE04 

$EE07 
$EEOA 


JSR  to  SRRE    ($C604)    to  search  for  the 
next  valid  directory  entry. 
If  another  entry  is  not  found   (Z  flag 
is  set)    branch  to  VDIO  to  finish  up. 

Check  if  entry  found  is  properly  closed 
Zero   .Y  so  it  points  to  the  first 
character  in  the  entry,   the  file  type. 
Load  .A  with  the  file  type  byte  from 
(DIRBUF) ,Y;    ($99) ,Y.    If  bit  7   is  set, 
the  file  has  been  properly  closed  so 
branch  to  VD15  to  process  it. 

File  was  not  properly  closed  so  JSR  to 
DELDIR   ($C8B6)    to  delete  it  from  the 
directory . 

JMP  to  VD20    ($EDD4)    to  find  next  entry. 


Trace  file  by  links  and  mark  BAM 

JSR  to  TSCHK    ($D5  5F)    to  check  that  the 

TRACK  and  SECTOR  values  are  legal. 

JSR  to  WUSED    ($EF90)    to  mark  the  sector 

pointed  to  by  TRACK  and  SECTOR  as   IN  USE 

in  the  BAM. 

JSR  to  OPNIRD    ($D475)    to  open  the 
internal   read  channel  and  read  in  the 
first  one  or  two  file  blocks. 
Load   .A  with  $00  and  JSR  to  SETPNT 

($D4C8)  to  set  the  pointers  to  the  first 
byte  in  the  buffer  (the  track  link) . 
JSR  to  GETBYT  ($D137)  to  read  the  track 
link  (in  .A).  Store  it  into  TRACK  ($80). 
JSR  to  GETBYT  ($D137)  to  read  the  sector 
link  (in  .A) .  Store  it  into  SECTOR  ($81) 
Load   .A  with  the  track  link  from  TRACK 

($80) .  If  it  is  not  $00,  branch  to  MRKl. 
Track  link  is  $00.  This  must  be  the  last 
block  in  the  file  so  JMP  to  FRECHN 

($D227)    to  free  the  channel  and  return. 
JSR  to  WUSED    ($EF90)    to  mark  the  sector 
pointed  to  by  TRACK  and  SECTOR  as   IN  USE 
in  the  BAM. 

JSR  to  NXTBUF    ($D44D)    to  read  in  the 

next  block  of  the  file. 

JMP  to  MRK2    ($EDEE)    to  do  next  block. 


NEW    (FORMAT)    DISK  COMMAND 


A  full,   or   long  NEW  marks  off  the  tracks 
and  sectors  on  a  diskette,  writes  null 
data  blocks  in  all  sectors,  and  creates 
a  new  BAM  and  directory  on  track  18. 
A  short  NEW  merely  creates  a  new  BAM  and 
directory  on  track  18. 
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NEW 


NlOl 


N108 


$EEOD 
$EE10 

$EE14 
$EE19 

$EE1D 
$EE20 

$EE24 

$EE27 


$EE2C 

$EE36 
$EE39 
$EE3D 


$EE40 
$EE43 


$EE46 
$EE49 

$EE4B 


JSR  to  ONEDRV   ($C312)    to  set  up  drive 
and  table  pointers. 

Load  the  number  of  the  drive  that  was 
set  up  from  FILDRV   ($E2) .    If  bit  7  is 
not  set,   a  legal  drive  number  was 
specified  so  branch  to  NlOl  to  continue. 

Load  .A  with  $33  to  indicate  a  BAD  DRIVE 
NUMBER  and  JMP  to  CMDERR  ($C1C8). 

AND  the  drive  number    (in   .A)   with  $01  to 
mask  off  the  non  drive  bits  and  store 
the  result  as  the  current  drive  in 
DRVNUM    ($7F) . 

JSR  to  SETLDS    ($C100)    to  turn  on  the 
drive  active  LED. 

Load   .A  with  the  drive  number  from 
DRVNUM    ($7F) ,   multiply  it  by  2    (ASL) , 
and  transfer  it  into  .X. 
Load   .Y  with  the  pointer  to  the  start 
of  the  new  disk  ID  in  the  command  buffer 
from  FILTBL+1    ($027B) . 

Compare  the  ID  pointer  in   .Y  with  the 
length  of  the  command  string  in  CMDSIZ 
($0274).    If  these  values  are  equal, 
there  is  no  new  disk  ID,   Therefore  this 
must  be  a  short  new  so  branch  to  N108. 

Transfer  new  disk  ID  from  the  command 
buffer  CMDBUF,Y    ($0200, Y)    and  CMDBUF+1,Y 
($0201, Y)    to  the  master  disk  ID  area 
DSKID,X    ($12, X)    and  DSKID+1,X    ($13, X), 

JSR  to  CLRCHN   ($D307)    to  clear  all 
channels  while  formatting. 
Store  $01   into  TRACK    ($80)    as  first 
track  to  do. 

JSR  to  FORMAT    ($C8C6)    to  set  up  JMP 
command  in  buffer  that  points  to  the 
formatting  routine  to  be  used  by  the 
disk  controller. 

JSR  to  CLRBAM    ($F005)    to  clear  the  BAM. 
JMP  to  NllO    ($EE56)    to  continue. 

Clear  directory  only. 

JSR  to  INITDR   ($D042)    to  init.   the  drive 
Load   .X  with  the  drive  number  from 
DRVNUM    ($7F) . 

Load   .A  with  the  DOS  version  number 
as  given  in  the  BAM,   DSKVER,X    ($0101, X) 
and  compare  it  with  the  1541  DOS  version 
number    ($41)    from  VERNUM    ($FED5) .    If  the 
version  numbers  match,   branch  to  NllO. 
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NllO 


$EE53 

$EE56 
$EE59 
$EE5C 
$EE5E 

$EE63 


$EE6B 
$EE6D 


$EE75 
$EE78 
$EE7D 

$EE83 

$EE87 
$EE88 

$EE8D 

$EE91 

$EE96 

$EE99 
$EE9D 

$EEAO 

$EEA3 


DOS  versions  do  not  match  so  JMP  to 
VNERR   ($D572)    to  abort. 

JSR  to  NEWMAP    {$EEB7)    to  create  a  new 
BAM. 

Load   .A  with  the  current  job  code  from 
JOBNUM    {$F9)    and  transfer  it  to  .Y. 
Multiply  the  job  code  in   .A  by  2  (ASL) 
and  transfer  the  result  to  .X. 
Load   .A  with  $90,   the  offset  of  the  disk 
name  in  the  BAM  from  DSKNAM   {$FE88)  and 
store  this  pointer  in  BUFTAB,X    ($99, X). 
Load   .X  with  the  buffer  number  from 
FILTBL    ($027A) ,    load   .Y  with  $27  (the 
name  length)    and  JSR  to  TRNAME  {$C66E) 
to  transfer  the  new  disk  name  from  the 
command  buffer  into  the  BAM  area. 
Load   .Y  with  $12    (position  of  disk  ID) . 
Load   .X  with  the  drive  number  from 
DRVNUM    ($7F)    and  copy  the  DOS  version 
number    ($41)    from  VERNUM    {$FED5)  into 
DSKVER,X    ($0101 ,X) . 

Transfer  the  drive  number  from  .X  to  .A, 
multiply  it  by  2  (ASL) ,  and  transfer  the 
result  back  into  .X. 

Transfer  the  first  disk  ID  character 
from  DSKID,X  ($12, X)  into  (DIRBUF),Y 
($94) ,Y.    Increment  .Y. 

Transfer  the  second  disk  ID  character 
from  DSKID+1,X    ($13, X)    into  {DIRBUF),Y 
($94), Y.    Increment   .Y  twice. 
Store  the  directory  DOS  version  ($32; 
ASCII   2)    into    {DIRBUF),Y;    ($94), Y. 
Increment  .Y. 

Transfer  the  format  type    ($41;   ASCII  A) 
from  VERNUM    {$FED5)    into    (DIRBUF) ,Y 
($94) ,Y. 

Load   .Y  with  $02  so  it  points  to  the 
third  byte  in  the  BAM  and  store  the 
format  type    ($41;   in   .A)    into  the  BAM 
at    (BMPNT) ,Y;    {$6D) ,Y. 

Transfer  the  directory  track  number,  $12 

from  DIRTRK    ($FE85)    into  TRACK    ($80) . 

JSR  to  USEDTS    ($EF93)    to  mark  track  18 

sector  0  as  used  in  the  BAM. 

Set  SECTOR    ($81)    to  $01. 

JSR  to  USEDTS    ($EF93)    to  mark  track  18 

sector  1  as  used  in  the  BAM. 

JSR  to  SCRBAM    ($EEFF)    to  write  out  the 

new  BAM  to  disk. 

JSR  to  CLRBAM    ($F005)    to  set  all   of  BAM 
area  to  $00. 
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NEWMPV 
NEWMAP 


NMIO 


NM20 


NM3  0 


$EEA6 

$EEAC 
$EEAF 

$EEB4 

$EEB7 
$EEBA 


$EEC4 
$EEC7 


$EECF 
$EED2 

$EED7 
$EED9 


$EEEO 
$EEE3 

$EEED 


Load   .Y  with  $01  and  store  $FF  as  the 
first  directory  block's  sector  link  in 
(BMPNT) ,Y;    ($6D) ,Y. 

JSR  to  DRTWRT    ($D464)    to  write  out  the 
new  directory  block  to  disk. 
Decrement  the  sector  number    (from  $01  to 
$00)    in  SECTOR    ($81)    and  JSR  to  DRTRD 
($D46  0)    to  read  the  BAM  back  into  RAM. 
Terminate  command  with  a  JMP  to  ENDCMD 
($C194)  . 

Create  a  new  BAM  map: 

JSR  to  CLNBAM    ($F0D1)    to  set  entire  BAM 
area  to  $00's. 

Using  .Y  as  a  pointer,   store  $12  (#18) 
and  $01  as  the  track  and  sector  link  in 
(BMPNT) ,Y;    ($6D) ,Y;   as  the  first  two 
bytes  of  the  new  BAM. 
Increment   .Y  until   it  is  $04. 
Zero  the  area  to  be  used  to  manipulate 
the  BAM  map  bits,   TO    ($6F)  ,   Tl    ($70)  , 
and  T2    ($71)  . 

Transfer  the  byte  from   .Y  into   .A  and 
divide  it  by  4    (2  *  LSR)    to  find  the 
track  number. 

JSR  to  MAXSEC    ($F24B)    to  calculate  the 
maximum  sector  number  for  this  track 
and  store  this  value  as  the  number  of 
sectors  free  on  this  track  in   (BMPNT) ,Y 
($6D) ,Y. 

Increment   .Y.  Transfer  the  maximum 
sector  number  from   .A  into  .X. 
Set  the  carry  flag   (this  1  bit  will 
indicate  that  this  sector  is  free)  and 
rotate  this  bit  from  the  carry  into 
the  bit  map  area    (TO/1/2)    using  ROL  TO, 
ROL  Tl,    and  ROL  T2. 

T2    ($71)      Tl    ($70)      TO    ($6F)  C 
before  00000000     11111111     11111111  1 
after  OOOOOOOK-lllllllK-lllllllK-0 
Decrement  the  sector  count  in   .X.    If  the 
resulting   .X  value  is  not  $00,   there  are 
more  to  do  so  branch  back  to  NM20. 
Transfer  the  bit  map  for  this  track  from 
TO,X    ($6F,X)    to  the  BAM  area    (BMPNT) ,Y, • 
($6D,Y) .    Increment    .Y  and   .X.    If  the 
new  .X  value  is  not  $03,  we  have  more 
to  transfer  so  branch  back  to  NM30. 
Compare  the   .Y  value  to  $90.    If  it  is 
less  than  $90,  we  have  more  tracks  to 
do  so  branch  back  to  NMIO. 
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MAPOUT 


SCRBAM 


SBIO 


SB20 


$EEF1 


$EEF4 

$EEF7 
$EEF8 


$EEFF 
$EF01 

$EF06 

$EF07 
$EFOC 
$EFOF 

$EF13 
$EF16 


$EF1D 

$EF20 
$EF24 


$EF28 


JMP  to  NFCALC    ($0075)    to  calculate  the 
number  of  blocks  free. 

Write  out  BAM  to  the  drive  specified  in 
LSTJOB. 

JSR  to  GETACT    ($DF93)    to  find  the  active 
buffer  number    (returned  in  .A). 
Transfer  the  buffer  number  to  .X. 
Load   .A  with  the  job  code  for  the  last 
job  from  LSTJOB, X    ($025B,X) ,   AND   it  with 
$01  to  mask  off  the  non-drive  bits,  and 
store  the  result  in  DRVNUM    ($7F) . 

Write  out  BAM  to  the  drive  specified  in 
DRVNUM. 

Load   .Y  with  the  drive  number  from 
DRVNUM    ($7F)  . 

Load   .A  with  the  BAM-dirty  flag  from 
MDIRTY,Y    ($0251, Y).    If  the  flag  is  not 
$00,   the  BAM  is  dirty    (the  copy  in  RAM 
does  NOT  match  the  copy  on  disk)  so 
branch  to  SBIO  to  write  it  out  to  disk. 
BAM  is  clean  so  there  is  no  reason  to 
write  it  out.   Terminate  routine  with 
an  RTS. 

Zero  the  BAM-dirty  flag  in  MDIRTY,Y 
($0251, Y) . 

JSR  to  SETBPT    ($EF3A)    to  set  up  the 
pointer  to  the  BAM. 

Load   .A  with  the  drive  number  from 
DRVNUM    ($7F)  ,    multiply  it  by  2    (ASL)  , 
and  save  the  result  onto  the  stack. 
JSR  to  PUTBAM    ($F0A5)    to  put  the  memory 
images  to  the  BAM. 

Pull  the    (drive  number  x  2)    off  the 
stack,   clear  the  carry  flag,   add  $01, 
and  JSR  to  PUTBAM   ($F0A5)    to  put  the 
memory  images  to  the  BAM. 

Verify  that  the  block  count  for  the 
track  matches  the  bit  map  for  the  track. 
Load   .A  from  TRACK    ($80)    and  push  the 
track  number  onto  the  stack. 
Load   .A  with  $01  and  store  it  in  TRACK, 
Multiply  the  track  number  in   .A  by  4 

(2  X  ASL)    and  store  the  result  as  the 
lo  byte  of  the  buffer  pointer  in  BMPNT 

($6D) . 

JSR  to  AVCK  ($F220)  to  check  that  the 
blocks  free  for  the  track  agrees  with 
the  bit  map. 
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SETBPT 


NUMFRE 


WFREI 


FRETS 


FRETS2 


$EF2B 

$EF34 
$EF37 

$EF3A 

$EF3E 
$EF41 
$EF43 

$EF48 
$EF4C 

$EF4D 
$EF4F 

$EF55 

$EF5B 

$EF5C 
$EF5F 

$EF62 
$EF63 


Increment  the  track  count  in  TRACK  ($80) 
If  the  new  count  is   less  than  the 
the  maximum  track  number    (#36)  ,  branch 
back  to  SB20  to  check  the  next  track. 
Pull  the  original   track  number  off  the 
stack  and  restore  it  into  TRACK    ($80) . 
JMP  to  DOVJRIT    ($D58A)    to  write  out  the 
BAM  to  disk. 

Read  in  the  BAM,    if  not  already  in  RAM, 

and  set  the  pointers  to  the  BAM 

JSR  to  BAM2A    ($F10F)    to  get  the  BAM 

channel  number  in   .A    (drO   =   6) .  Transfer 

the  channel   number  into  .X. 

JSR  to  REDBAM    ($FODF)    to  read   in  the  BAM 

if  not  already  in  memory. 

Load   .X  with  the  buffer  number  used  for 

the  read  from  JOBNUM    ($F9) . 

Set  the  hi  byte  of  the  pointer  to  the 

BAM  in  BMPNT+1    ($6E)    using  the  hi  byte 

pointer  value  for  the  buffer  from 

BUFIND,X    ($FEEO ,X) . 

Set  the  lo  byte  of  the  pointer  to  the 
BAM  in  BMPNT    ($6D)    to  $00. 
Terminate  routine  with  an  RTS. 

Get  the  number  of  blocks  free  on  the 
drive  specified  in  DRVNUM: 
Load   .X  with  the  drive  number  from 
DRVNUM    ($7F) . 

Transfer  the   lo  byte  of  the  number  of 
blocks  free  from  NDBL,X    ($02FA,X)  into 
NBTEMP    ($0272) . 

Transfer  the  hi  byte  of  the  number  of 
blocks  free  from  NDBH,X    ($02FC,X)  into 
NBTEMP+1    ($0273) . 
Terminate  routine  with  an  RTS. 

Free  the  block  specified  in  TRACK  and 
SECTOR  as  free  in  the  BAM: 
JSR  to  FIXBAM    ($EFF1)    to  write  out  the 
BAM  the  value  in  WBAM  indicates  that  it 
is  needed. 

JSR  to  FREUSE    ($EFCF)    to  calculate  the 
index  to  the  BAM  entry  that  contains 
the  desired  TRACK  and  SECTOR.   On  return 
.Y  points  to  the  entry  and   .X  points  to 
the  bit  within  the  entry. 
Set  the  carry  flag    (the  flag  for  no 
action  required) . 

If  Z  flag  is  NOT  set,   the  desired  TRACK 
and  SECTOR  is  already  free  in  the  BAM 
so  branch  to  FRERTS  to  exit. 
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FRERTS 


DTYBAM 


WUSED 


USEDTS 


$EF65 


$ED6C 
$ED6F 
$EF72 
$EF78 

$EF7F 

$EF84 
$EF87 

$EF88 
$EF8A 
$EF8F 

$EF90 
$EF93 

$EF96 


Load   .A  with  BAM  entry  from   (BMPNT) ,Y 
($6D),Y,   OR  it  with  the  bit  map  mask 
from  BMASK,X    ($EFE9,X)    to  turn  on  (free) 
the  bit  that  corresponds  to  the  desired 
block,   and  store  the  result  back  into 
(BMPNT) ,Y;    ($6D) ,Y. 

JSR  to  DTYBAM    ($EF88)    to  set  the  dirty 
BAM  flag    (BAM  in  RAM  and  BAM  on  disk 
do  not  match) . 

Load  .Y  with  the  pointer  to  the  number 
of  blocks  free  for  the  track  from  TEMP 

($6F)    and  clear  the  carry  flag. 
Load   .A  with  the  blocks  free  for  the 
track  from    (BMPNT) ,Y;    ($6D),Y,   add  1, 
and  store  the  result  back  into    (BMPNT) ,Y 
Load   .A  with  the  TRACK    ($80)    number  of 
the  block  we  just  freed.    If  it  is  on  the 
directory  track    (#18)  ,   branch  to  USEIO 

($EFBA) . 

Increment  the   lo  byte  of  the  count  of 
the  total   number  of  blocks  free  on  the 
disk,   NDBL,X    ($02FA,X)    by  1.    If  the 
result  is  NOT  $00,   branch  to  FRERTS 
Increment  the  hi  byte  of  the  count  of 
the  total  number  of  blocks  free  on  the 
disk,   NDBH,X    ($02FC,X)    by  1. 
Terminate  routine  with  an  RTS. 


Set  dirty-BAM  flag: 

Indicates  that  the  copy  of  the  BAM  in 
disk  RAM  does  not  match  the  disk  copy. 
Load   .X  with  the  current  drive  number 
from  DRVNUM    ($7F) . 

Store  a  $01   into  the  dirty  BAM  flag  in 

MDIRTY,X    ($0251)  . 

Terminate  routine  with  an  RTS. 

Mark  the  block  specified  in  TRACK  and 
SECTOR  as  USED   in  the  BAM: 
JSR  to  FIXBAM    ($EFF1)    to  write  out  the 
BAM  the  value  in  WBAM  indicates  that  it 
is  needed. 

JSR  to  FREUSE    ($EFCF)    to  calculate  the 
index  to  the  BAM  entry  that  contains 
the  desired  TRACK  and  SECTOR.   On  return 
.Y  points  to  the  entry  and   .X  points  to 
the  bit  within  the  entry. 
If  Z  flag  is  set,   the  desired  TRACK  and 
SECTOR  is  already  marked  as  USED  in  the 
BAM  so  branch  to  USERTS  to  exit. 
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$EF98 


USEIO 


USE20 


USERTS 


$ED9F 
$EDA2 
$EFA4 

$EFAB 

$EFB2 

$EFB7 
$EFBA 
$EFBD 

$EFC2 

$EFC9 
$EFCE 


FREUSE 


FREUS2 


$EFCF 


$EFD2 
$EFD3 


Load   .A  with  BAM  entry  from   (BMPNT) ,Y 
($6D) ,Y,   EOR  it  with  the  bit  map  mask 
from  BMASK,X    ($EFE9,X)    to  zero    (in  use) 
the  bit  that  corresponds  to  the  desired 
block,   and  store  the  result  back  into 
(BMPNT) ,Y;    ($6D) ,Y. 

JSR  to  DTYBAM    ($EF8  8)    to  set  the  dirty 
BAM  flag    (BAM  in  RAM  and  BAM  on  disk 
do  not  match) . 

Load  .Y  v,/ith  the  pointer  to  the  number 
of  blocks  free  for  the  track  from  TEMP 
($6F) . 

Load   .A  with  the  blocks  free  for  the 
track  from    (BMPNT) ,Y;    ($6D) ,Y,   set  the 
carry  flag,   subtract  $01,   and  store  the 
result  back  into    (BMPNT) ,Y. 
Load   ,A  with  the  TRACK    ($80)    number  of 
the  block  we  just  freed.    If  it  is  on  the 
directory  track    (#18),   branch  to  USE20 
($EFBD) . 

Load   .A  v/ith  the   lo  byte  of  the  count  of 
the  total  number  of  blocks  free  on  the 
disk,   NDBL,X    ($02FA,X) ,    If  the   lo  byte 
is  NOT  $00,   branch  to  USEIO. 
Decrement  the  hi  byte  of  the  count  of 
the  total  number  of  blocks  free  on  the 
disk,   NDBH,X    ($02FC,X)    by  1. 
Decrement  the   lo  byte  of  the  count  of 
the  total  number  of  blocks  free  on  the 
disk,   NDBL,X    ($02FA,X)    by  1. 
Load   .A  with  the  hi  byte  of  the  count  of 
the  total  number  of  blocks  free  on  the 
disk,   NDBH,X    ($02FC,X) .    If  the  hi  byte 
is  NOT  $00,  branch  to  USERTS. 
Load   .A  with  the   lo  byte  of  the  count  of 
the  total  number  of  blocks  free  on  the 
disk,   NDBL,X    ($02FA,X) .    If  the   lo  byte 
is  greater  than  2,   branch  to  USERTS. 
Load   .A  with  $72  to  indicate  a  DISK  FULL 
error  and  JSR  to  ERRMSG    ($E6C7) . 
Terminate  routine  with  an  RTS. 

Calculate  index  into  the  BAM  for 
FRETS  and  USEDTS. 

On  exit:   Z  flag  =  1  if  used  in  BAM 
Z  flag  =  0   if  free  in  BAM 
JSR  to  SETBAM    ($F011)    to  set  BAM  image 
in  memory.   On  return   .Y  contains  a 
pointer  to  the  start  of  the  bit  map  for 
the  desired  track. 

Transfer  the  pointer  from  .Y  to  .A. 
Store  the  pointer  from  .A  into  TEMP 
($6F) . 
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FREUS3 


BMASK 


FIXBAM 


FBAMIO 


CLRBAM 


CLBl 


$EFD5 


$EFDA 


$EFDE 


$EFE3 


$EFE8 


$EFE9 
$EFEA 
$EFEB 
$EFEC 
$EFED 
$EFEE 
$EFEF 
$EFFO 


$EFF1 
$EFF6 
$EFF8 
$EFFA 
$EFFC 
$FC04 

$F005 

$F008 
$FOOB 

$F010 


Load   .A  with  the  desired  sector  number 
from  SECTOR    ($81)    and  do  three  LSR's  to 
divide  the  sector  number  by  8   to  find 
out  which  of  the  three  bytes  for  this 
track  the  sector  is  in. 

Set  the  carry  flag,   add  the  pointer  to 
the  start  of  the  track  from  TEMP  ($6F) 
to  the  sector  index    (0/1/2)    in   .A,  and 
transfer  the  result  to  .Y. 
Load   .A  with  the  desired  sector  number 
from  SECTOR   ($81) ,   AND  the  sector  number 
with  $07  to  find  the  bit  position  that 
corresponds  to  that  sector,   and  transfer 
the  result  into  .X. 

Load   .A  with  the  BAM  byte  that  contains 
the  bit  for  the  desired  block  from 
(BMPNT) ,Y;    ($6D) ,Y,   and  AND  it  with  the 
bit  map  for  the  appropriate  bit  from 
BMASK, X    ($EFE9,X)    to  set  the  Z  flag. 
Terminate  routine  with  an  RTS. 


Bit  mask  table 

.BYTE  $01  1 

.BYTE   $02  2 

.BYTE  $04  4 

.BYTE   $08  8 

.BYTE   $10  16 

.BYTE   $20  3  2 

•BYTE   $40  64 

.BYTE   $80  128 


$EFE9-EFF0 


Write  out  BAM  to  disk  if  value  in  WBAM 

indicates  that  it  is  necessary. 

Load   .A  with  $FF  and  BIT  this  value  with 

the  value   in  WBAM    ($02F9) . 

If  Z  flag  set    (WBAM  was  $00)    branch  to 

FBAMIO   to  exit. 

If  N  flag  clear    (bit  7  of  WBAM  was  0) 

branch  to  FBAMIO  to  exit. 

If  V  flag  set    (bit  6  of  WBAM  was  0) 

branch  to  FBAMIO  to  exit. 

Set  WBAM    ($02F9)    to  $00  and  JSR  to 

DOWRIT    ($D58A)    to  write  BAM  to  disk. 

Terminate  routine  with  an  RTS. 

Zero  the  BAM  area: 

JSR  to  SETBPT    ($EF3A)    to   set  the 
pointers  to  the  BAM. 
Zero   .Y  and  .A. 

Loop,   using   .Y  as  an  index,   to  store 
$00 's   in  all   256   locations  in  the  BAM 
buffer . 

Terminate  routine  with  an  RTS. 
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SETBAM 


$F011 
$F017 


SBMIO 


$F019 

$F022 
$F025 
$F027 

$F02E 


$F033 
$F036 


SBM30 


$F03B 

$F03E 
$F040 
$F042 

$F045 


Set  BAM  image  in  memory: 

Save  the  values  of  TO    ($6F)    and  Tl  ($70) 
onto  the  stack  so  we  can  use  this  as  a 
work  area. 

Load   .X  with  the  current  drive  number 
from  DRVNUM    ($7F) .   Load   .A  with  the 
drive  status  for  this  drive  from  NODRV,X 
($FF,X) .    If  the  drive  status   is  $00,  we 
have  a  functioning  drive  so  branch  to 
SBMIO  to  continue. 

Load  .A  with  $74  to  indicate  a  DRIVE  NOT 
READY  error  and  JSR  to  CMDER3    ($E648) . 

JSR  to  BAM2A    ($F10F)    to  load   .A  with  the 
channel  number  and   .X  with  the  drive  #. 
Transfer  the  channel  number    (in   .A)  into 
TO    ($6F) . 

Transfer  the  drive  number  from   .X  into 
.A,   multiply  it  by  2    (ASL) ,   store  the 
result  in  Tl    ($70)    and  in  .X. 
Load   .A  with  the  current  track  number 
from  TRACK    ($80)    and  compare  it  with 
the  track  value  given  in  the  BAM  track 
table,   TBAM,X    ($029D,X) .    If  the  values 
match,   the  BAM  is   in  the  correct  area 
of  memory  so  branch  to  SBM30. 

Increment   .X  by  1  and  store  the  result 
in  Tl    ($70) .   Note  that   .X  now  points  to 
the  alternate  BAM  channel. 
Compare  the  current  track  value    (in  .A) 
with  the  contents  of  the  BAM  track  table 
TBAM,X    ($029D,X)    for  the  alternate  BAM 
location.    If  the  value  match,   the  BAM 
is  in  an  appropriate  location  so  branch 
to  SBM3  0. 

JSR  to  SWAP    ($F05B)    to  read  in  the  BAM 
if  necessary  and  move  it  to  the  correct 
area  of  the  disk  RAM. 

Load  .A  with  the  BAM  channel  number  from 
Tl    ($70)  . 

Load   .X  with  the  current  drive  number 
from  DRVNUM    ($7F) . 

Store  the  channel  number    (in   .A)  into 
UBAM,X    ($029B,X)    to  set  the  last  channel 
used  pointer. 

Multiply  the  channel  number    (in   .A)  by 
four    (2  X  ASL) ,   clear  the  carry,  and 
add  $A1,   the  lo  byte  of  the  pointer,  to 
the  start  of  the  BAM    ($02A1) .   Store  the 
result  into  the   lo  byte  of  the  BAM 
pointer,   BMPNT    ($6D) . 
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$F04C 


SWAP 


$F052 
$F054 


$F05A 
$F05B 
$F060 
$F063 


SVJAP3 


$F070 
$F074 

$F07A 

$F07F 

$F084 
$F088 
$F08A 


$F090 


Load   .A  with  $02,   the  hi  byte  of  the 
pointer  to  the  start  of  the  BAM,   add  $00 
to  add  in  the  carry    (if  any)    from  the 
previous  addition,   and  store  the  result 
as  the  hi  byte  of  the  BAM  pointer, 
BMPNT  +  1    ($6E)  . 
Zero  .Y. 

Pull  the  original  values  of  Tl    ($70)  and 
TO    ($6F)    off  the  stack  and  store  them 
back  in  their  original  locations. 
Terminate  routine  with  an  RTS. 


Swap  images  of  the  BAM: 

Load   .X  with  the  index  into  the  buffer 
from  TO    ($6F)    and  JSR  to  REDBAM  ($FODF) 
to  read  the  BAM  if  not  already  in  RAM. 
Load   .A  with  the  current  drive  number 
from  DRVNUM    ($7F)    and  transfer  the  drive 
number  into  .  X . 

Multiply  the  drive  number  in   .A  by  two 
(ASL) ,   OR  it  with  the  least  used  BAM 
pointer  in  UBAM,X    ($029B,X) ,   EOR  it  with 
$01,   and  AND  it  with  $03.   Store  the 
result  into  Tl    ($70)    and  JSR  to  PUTBAM 
($F0A5)    to  put  the  memory  image  into  the 
BAM. 

Load   .A  with  the  buffer  number  from 
JOBNUM    ($F9),   multiply  it  by  two  (ASL), 
and  transfer  the  result  into  .X. 
Load   .A  with  the  track  number  from  TRACK 
($80),   multiply  it  by  four    (2  x  ASL), 
and  store  the  result  as  the  lo  byte  of 
the  pointer  in  BUFTAB,X    ($99, X). 
Load   .A  with  the  value  from  Tl    ($70)  , 
multiply  it  by  four    (2  x  ASL) ,  and 
transfer  the  result  into  .Y. 
Transfer  one  byte  of  the  BAM  from  its 
position  in  RAM,    (BUFTAB,X)    ($99, X),  to 
its  proper  position  BAM,Y  ($02A1,Y). 
Zero  the  memory  location  that  held  the 
BAM  byte    (BUFTAB,X);    ($99, X). 
Increment  the  lo  byte  of  the  pointer  to 
the  original  BAM  image  BUFTAB,X    ($99, X). 
Increment   .Y,   the  pointer  to  the  new  BAM 
image.   Transfer  this  value  into   .A,  AND 
it  with  $03  to  mask  off  the  high  order 
bits,   and  if  the  result  is  not  $00, 
branch  back  to  SWAP3  to  move  the  next 
byte . 

Load  .X  with  the  drive  number  from  Tl 
($70) .  Load  .A  with  the  current  track 
number  from  TRACK  ($80)  and  store  the 
track  number  into  TBAM,X  ($029D,X)  to 
set  the  track  number  for  the  image. 
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SWAP  4 


PUTBAM 


SWAPl 


SWAP2 


CLNBAM 


$F097 


$F09C 


$F09F 


$F0A4 


$F0A5 
$F0A6 


$FOAB 
$FOAC 
$F0B1 


$F0B5 

$FOBA 

$FOBE 
$F0C3 
$F0C8 
$FOCA 


$FODO 

$F0D1 

$F0D5 
$FODA 


Load   .A  with  the  write-BAM  flag  from 
WBAM    ($02F9) .    If  the  flag  is  non-zero, 
branch  to  SWAP4  so  we  don't  write  out 
the  BAM  now. 

JMP  to  DOWRIT  ($D58A)  to  write  out  the 
BAM  to  disk  and  terminate  the  routine. 

OR  the  write-BAM  flag  (in  .A)  with  $80 
to  indicate  that  a  write  of  the  BAM  is 
pending  and  store  the  result  back  into 
WBAM    ($02F9) . 

Terminate  routine  with  an  RTS. 

Transfer  memory  image  of  BAM  into  the 
correct  position  in  disk  RAM: 
Transfer  the  pointer  in   .A  into  .Y. 
Load   .A  with  the  track  number  of  the  BAM 
from  TBAM,Y    ($029D,Y) .    If  the  track 
number  is  $00,   there  is  no  BAM  image 
in  RAM  so  branch  to  SWAP2 . 
Save  the  track  number  onto  the  stack. 
Zero  the  track  flag  in  TBAM,Y    ($029D,Y) . 
Load   .A  with  the  buffer  number  from 
JOBNUM    ($F9) ,   multiply  it  by  two    (ASL) , 
and  transfer  the  result  into  .X. 
Pull  the  track  number  off  the  stack, 
multiply  it  by  four    (2  x  ASL) ,   and  store 
the  result  as  the   lo  byte  of  the  pointer 
in  BUFTAB,X    ($99, X) . 

Transfer  the  pointer  in   .Y  into  .A, 
multiply  it  by  four    (2  x  ASL) ,  and 
transfer  the  result  back  into  .Y. 
Transfer  one  byte  of  the  BAM  image  from 
BAM,Y    ($02A1)    to    (BUFTAB,X);    ($99, X). 
Zero  the  memory  location  that  held  the 
BAM  byte  BAM,X  ($02A1,X). 
Increment  the  lo  byte  of  the  pointer  to 
the  original  BAM  image  BUFTAB,X    ($99, X). 
Increment   .Y,   the  pointer  to  the  nev;  BAM 
image.   Transfer  this  value  into   .A,  AND 
it  with  $03  to  mask  off  the  high  order 
bits,   and  if  the  result  is  not  $00, 
branch  back  to  SWAPl  to  move  the  next 
byte . 

Terminate  the  routine  with  an  RTS. 

Zero  the  track  number  for  BAM  images: 
Load   .A  with  the  drive  number  from  TRACK 
($80),   multiply  it  by  two    (ASL),  and 
transfer  the  result  into  .X. 
Zero   .A  and  store  $00  as  the  track  # 
for  the  BAM  image  in  TBAM,X    ($029D,X) . 
Increment  .X  and  store  $00  as  the  track 
#  for  the  BAM  image  in  TBAM,X    ($029D,X) . 
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REDBAM 


RBMIO 


RBM20 


BAM2A 


B2X10 


BAAM2X 


$FODE 

$FODF 

$F0E5 
$F0E7 

$FOEB 
$FOED 

$F0F2 
$F0F4 
$F0F6 

$FOFC 

$FOFE 

$F103 
$F107 

$F10A 

$F10E 


$F10F 
$F111 


$F115 
$F118 

$F119 
$F11C 


Terminate  the  routine  with  an  RTS. 

Read  BAM  from  disk,  if  not  already  in  RAM 
Load   .A  with  the  value  from  BUFO,X  and 
compare  it  with  $FF.    If  it  is  not  $FF, 
the  BAM  is  in  memory  so  branch  to  RBM20. 
Transfer  the  channel  number  from   .X  into 
.A  and  save  it  onto  the  stack. 
JSR  to  GETBUF    ($D28E)    to  find  a  free 
buffer.   On  return  transfer  the  buffer 
number  from   .A  into  .X. 

If  a  buffer  was  found    (bit  7  of  buffer 
number  not  set),   branch  to  RBMIO. 
Load   .A  with  $70  to  indicate  a  NO 
CHANNEL  ERROR  and  JSR  to  CMDERR    ($C1C8) . 

Store  the  buffer  number  assigned  (in  .X) 
into  JOBNUM    ($F9) . 

Pull  the  channel  number  off  the  stack 
and  transfer  it  into  .Y. 
Transfer  the  buffer  number  from   .X  to 
•A,   OR  it  with  $80  to  set  it  as  inactive 
for  stealing,   and  store  the  result  into 
BUFO ,Y    ($00A7 , Y) . 

Multiply  the  buffer  number    (in   .A)  by 
two    (ASL)    and  transfer  the  result  into 
.X . 

Load   .A  with  the  directory  track  number 
(#18)    from  DIRTRK    ($FE85)    and  store  it 
in  the  header  table  at  HDRS,X    ($06, X). 
Store  $00  as  the  BAM  sector  number  in 
the  header  table  at  HDRS+1,X    ($07, X). 
JMP  to  DOREAD    ($D586)    to  read  in  the 
BAM  and  terminate  routine. 

AND  the  channel  number    (in   .A)   with  $0F 
and  store  the  result  in  JOBNUM    ($F9)  to 
set  the  BAM's   job  number. 
Terminate  routine  with  an  RTS. 

Load   .A  with  the  channel   #  for  the  BAM 
Load   .A  with  $06,   the  BAM's  channel  # 
Load   .X  with  the  current  drive  number 
from  DRVNUM    ($7F) .    If  the  drive  number 
is  not  $00,   branch  to  B2X10. 
Clear  the  carry  flag  and  add  $07  to  find 
the  BAM  channel  number  for  drive  #1. 
Terminate  routine  with  an  RTS. 

Load   .X  with  the  channel   #  for  the  BAM 
JSR  TO  BAM2A    ($F10F)    to   load    .A  with  the 
BAM's  channel  number. 

Transfer  the  channel   #  from   .A  to  .X. 
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NXTTS 


NXTDS 
NXTl 


NXTERR 


NXT2 


$F11D 


$F11E 

$F121 
$F125 


$F12D 
$F130 
$F133 
$F136 

$F13A 

$F141 

$F143 
$F145 

$F14C 

$F14F 
$F150 

$F152 

$F156 
$F158 

$F15A 

$F15F 
$F161 

$F163 

$F166 


Terminate  routine  with  an  RTS. 

Next  available  track  and  sector: 
Given  current  track  and  sector,  this 
routine  returns  the  next  available  track 
and  sector. 

JSR  to  GETHDR    ($DE3E)    to  set  TRACK  and 

SECTOR  from  the  most  recent  header. 

Store  $03   into  TEMP    ($6F) . 

Load   .A  with  $01,   OR  it  with  the  value 

of  the  write-BAM  flag,   WBAM    ($02F9) ,  and 

store  the  result  back  into  WBAM  to 

prevent  a  write  of  the  BAM. 

Load   .A  with  the  value  from  TEMP  ($6F) 

and  save  it  onto  the  stack. 

JSR  to  SETBAM    ($F011)    to  set  the  BAM 

image  into  memory. 

Pull   the  original  value  of  TEMP  off  the 
stack  and  store  it  back  in  TEMP    {$6F) . 
Load   .A  with  the  BAM  value  from 
(BMPNT) ,Y;    {$6D,Y) .   If  the  value  is  not 
$00    (no  sectors  free) ,   branch  to  FNDNXT 
($F173)  . 

Load   .A  with  the  current  track  number 
from  TRACK    ($80) .   If  the  track  number 
is  #18    (directory  track) ,   branch  to 
NXTERR  to  abort. 

If  the  current  track  is   less  than  #18, 
branch  to  NXT2. 

Increment  the  track  number  in  TRACK ($80) 
Compare  the  value  of  TRACK  to  $2  4    (#36)  , 
the  maximum  track  value.    If  they  are  not 
equal,  branch  to  NXTl  to  check  out  this 
track . 

Load   .X  with  $12    (#18)  ,   the  directory 
track  number  from  DIRTRK    {$FE85) . 
Decrement  the  track  number  in  .X. 
Store  the  track  number    (in   .X)  into 
TRACK    ($80)  . 

Store  $0  0  as  the  sector  number  into 
SECTOR    ($81)  . 

Decrement  the  counter  in  TEMP    ($6F) . 
If  the  count  is  not  $00  yet,  branch  to 
NXTl . 

Load  .A  with  $72  to  indicate  a  DISK  FULL 
error  and  JSR  to  CMDERR    ($C1C8) . 

Decrement  the  track  number  in  TRACK ($80) 
If  the  value  in  TRACK  is  not  $00,  branch 
to  NXTl  to  check  out  this  track. 
Load   .X  with  $12    (#18)  ,    the  directory 
track  number  from  DIRTRK    {$FE85) . 
Increment  the  track  number  in  .X. 
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FNDNXT 


FNDNO 


FNDNl 
FNDN2 


$F167 

$F169 

$F16D 
$F16F 

$F171 


$F173 
$F175 


$F178 
$F17A 


$F17F 
$F185 


$F189 
$F18A 

$F18C 

$F191 

$F193 

$F195 

$F198 

$F19A 
$F19D 


Store  the  track  number    (in   .X)  into 
TRACK    ($80)  . 

Store  $00  as  the  sector  number  into 
SECTOR    ($81)  . 

Decrement  the  counter  in  TEMP  ($6F). 
If  the  count  is  not  $00  yet,   branch  to 
NXTl . 

If  the  count  is  $00,   branch  to  NXTERR. 

Find  the  optimum  next  sector  on  this 
track.   Next  sector=Current+change  (#10) 
Load   .A  with  the  sector  number  from 
SECTOR    ($81) . 

Clear  the  carry  flag  and  add  the  sector 
increment  from  SECINC    ($69).   The  normal 
increment   is  $0A    (#10) .    It  is  $03  for 
the  directory  track. 

Store  the  new  sector  number  into  SECTOR. 
Load   .A  with  the  current  track  number 
from  TRACK    ($80)    and  JSR  to  MAXSEC 
($F24B)    to  find  the  maximum  sector 
number  on  this  track    (returned  in   .A) . 
Store  the  maximum  sector  number  into 
LSTSEC    ($024E)    and  CMD  ($024D). 
Compare  the  maximum  sector  number  (in 
.A)   with  the  new  sector  value  in  SECTOR 
($81).    If  the  new  sector  value  is  less 
than  the  maximum,   branch  to  FNDNO. 

New  sector  number  too  big  so  subtract 
away  the  maximum  sector  number  on  track. 
Set  the  carry  flag. 

Load   .A  with  the  new  sector  number  from 
SECTOR    ($80) . 

Subtract  the  maximum  sector  number  on 
this  track  from  LSTSEC    ($024E)    and  store 
the  result  into  SECTOR    ($81)  . 
If  the  revised  sector  number  is  $00, 
branch  to  FNDNO. 

Decrement  the  revised  sector  number  in 
SECTOR    ($81)    by  1. 

JSR  to  GETSEC    ($F1FA)    to  set  the  BAM 
into  memory  and  find  the  first  available 
sector  following  the  revised  sector  #. 
If  no  sector  is  available  on  this  track 
(Z  flag  =   1),   branch  to  FNDN2 . 

Exit  with  a  JMP  to  WUSED    ($EF90)    to  set 
this  new  sector  as  in  use. 
Set  the  sector  number  in  SECTOR  ($81) 
to  $00. 
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INTTS 


ITS2 


ITS3 


$F1A1 

$F198 
$F1A6 

$F1A9 

$F1B1 
$F1B4 
$F1B8 
$F1BB 

$F1C0 

$F1C4 
$F1C7 
$F1C9 

$F1CB 

$F1CE 

$F1D3 
$F1D5 

$F1DA 

$F1DF 
$F1E2 


JSR  to  GETSEC    ($F1FA)    to  set  the  BAM 
into  memory  and  find  the  first  available 
sector  following  the  revised  sector  #. 
If  a  sector  is  available  on  this  track 
(Z   flag  =   0) ,   branch  to  FNDNl. 
JMP   to  DERR    ($F1F5)    to  abort. 


Find  optimum  initial   track  and  sector: 
Load   .A  with  $01,  OR  it  with  the  write- 
BAM  flag,  WBAM    ($02F9) ,   and  store  the 
result  back  in  WBAM  to  indicate  a  write 
of  BAM  is  pending. 

Load   .A  with  the  value  from  RO    ($86)  and 

save  it  onto  the  stack. 

Store  $01   into  RO    ($86) . 

NOTE:    TRACK   =   DIRECTORY  TRACK   -  RC 

Load   .A  with  the  directory  track  number 

($12)    from  DIRTRK    ($FE85) . 

Set  the  carry  flag,   subtract  the  counter 

in  RO  and  store  the  result  into  TRACK 

($80)  . 

If  the  value  in  TRACK  is   less  than  or 
equal   to  0,   branch  to  ITS2. 

Do  tracks  17  ->  1 

JSR  to  SETBAM  ($F011)  to  set  the  pointer 
to  the  BAM. 

Load   .A  with  the  number  of  blocks  free 
on  this  track  from    (BMPNT) ,Y;    ($6D,Y) . 
If  some  sectors  are  free  on  this  track 
(Z   flag  not  set) ,   branch  to  FNDSEC 
($F1E6)  . 

None  free  on  lower  track  so  try  a  higher 
one : 

Load  .A  with  the  directory  track  number 
($12)  from  DIRTRK  ($FE85) . 
Clear  the  carry  flag,  add  the  counter  in 
RO  and  store  the  result  into  TRACK  ($80) 
Increment  the  track  counter  in  RO  ($86). 
If  the  value  in  TRACK  is  greater  than  or 
equal  to  the  maximum  track  number  (#36), 
branch  to  ITS3. 

Load   .A  with  $67  to  indicate  a  SYSTEM 
TRACK   &   SECTOR  error  and  JSR  to  CMDER2 
($E645) . 

Do  tracks  19  ->  35 

JSR  to  SETBAM  ($F011)  to  set  the  pointer 
to  the  BAM. 

Load  .A  with  the  number  of  blocks  free 
on  this  track  from    (BMPNT) ,Y;    ($6D,Y) . 
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FNDSEC 


DERR 


GETSEC 


GSIO 


GS20 


GS30 


AVCK 


$F1E4 

$F1E6 

$F1E9 

$F1ED 

$F1F0 
$F1F2 

$F1F5 

$F1FA 
$F1FD 
$F1FF 
$F202 


$F20A 
$F20D 

$F214 

$F219 
$F21D 

$F21F 

$F220 


If  no  sectors  are  free  on  this  track 
(Z  flag  is  set) ,   branch  to  ITSl   to  try 
a   lower  numbered  track. 

Pull  the  original  value  of  RO  off  the 
stack  and  store  it  back  in  RO    ($86)  . 
Store  $00  as  the  sector  number  in 
SECTOR    ($81)  . 

JSR  to  GETSEC    ($F1FA)    to  set  the  BAM  and 
find  first  available  sector. 
If  no  sector  available,   branch  to  DERR. 
Terminate  routine  with  a  JMP  to  WUSED 
($EF90)    to  mark  sector  as  used  in  BAM. 


Error  in  BAM: 

Load  .A  with  $71  to  indicate  an  error 
in  the  BAM  and  JSR  to  CMDER2    ($E645) . 


Set  the  BAM  and  find  the  first  available 
sector  starting  at  SECTOR: 
JSR  to  SETBAM    ($F011)    to  set  the  pointer 
to  the  BAM. 

Transfer  the   .Y  value  into   .A  and  save 
it  onto  the  stack. 

JSR  to  AVCK  ($F220)  to  check  the  bit  map 
val idity . 

Load   .A  with  the  current   track  number 
from  TRACK    ($80)    and  JSR  to  MAXSEC 
($F24B)    to  find  the  maximum  sector 
number  allowed  on  this  track.   On  return, 
store  the  maximum  sector  number    (in  .A) 
into  LSTSEC    ($024E) . 

Pull   the  original    .Y  value  off  the  stack 

and  store  it  in  TEMP    ($6F)  . 

Compare  the  current  sector  number  from 

SECTOR    ($81)    with  the  maximum  sector 

count  in  LSTSEC    ($024E) .    If  the  current 

sector  number  is  too  large,   branch  to 

GS20. 

JSR  to  FREUS3    ($EFD5)    to  calculate  index 
into  the  BAM.   On  return,    if  the  Z  flag 
is  not  set,   the  sector  is  free  so  branch 
to  GS30. 

Sector  was  not  free: 

Increment  the  sector  number  in  SECTOR 
($81)    and  branch    (always)    to  GSIO. 
Load   .A  with  $00.   Note  that  this  sets 
the  Z  flag  to  indicate  that  a  free 
sector  was  not  found. 
Terminate  routine  with  an  RTS. 


Check  the  validity  of  the  bit  map: 

Load   .A  with  the  value  of  TEMP    ($6F)  and 

save  it  onto  the  stack. 
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AGIO 
AC20 


AC30 


AC40 

MAXSEC 
MAXl 


$F223 
$F227 

$F22A 

$F22B 
$F22D 


$F234 
$F236 
$F239 

$F23C 


KILLP 


$F242 
$F245 

$F246 

$F24B 
$F24E 

$F251 
$F252 

$F254 

$F257 

$F258 


Store  $00   into  TEMP    ($6F)  . 
Load   .Y  with  $04,   the  number  of  bytes 
per  track   in  the  BAM  from  BAMSIZ  ($FE86) 
Decrement   .Y  by  1    (now  $03). 

Load   .X  with  $07    (bit  counter). 
Load   .A  with  the  BAM  byte  for  this  track 
from    (BMPNT) ,Y;    ($6D,Y) ,   and  AND  the  BAM 
byte  with  the  bit  mask  from  BMASK,X 
($EFE9,X)    to  isolate  the  bit  for  this 
sector.    If  the  result  is  $00,   the  sector 
is  allocated  so  branch  to  AC30. 

Since  the  sector  is  free,    increment  the 
count  of  free  sectors  in  TEMP    ($6F) . 

Decrement  the  bit  counter    (1  bit/sector) 
in   .X.    If  the  count  is  greater  than  or 
equal   to  $00,   branch  to  AC20. 
Decrement  the  byte  counter    (8  sectors/ 
byte)    in   .Y.    If  the  count  is  not  $00, 
branch  to  AGIO. 

Gompare  the  number  of  bytes  free  on  the 
track  as  given  in  the  BAM  at   (BMPNT) ,Y 
($6D,Y)    with  the  count  we  did  in  TEMP 
($6F) .    If   the  counts  DO  NOT  MATGH, 
branch  to  AG40  to  abort. 

Pull   the  original  value  of  TEMP  off  the 
stack  and  restore  it  into  TEMP    ($6F) . 
Terminate  routine  with  an  RTS. 


Error  in  BAM: 

Load  .A  with  $71  to  indicate  an  error 
in  the  BAM  and  JSR  to  GMDER2    ($E645) . 


Returns  the  number  of  sectors  allowed 
on  this  track.   Track  number  in  .A. 
Load   .X  with  the  number  of  zones  ($04) 
from  NZONES    ($FED6) . 

Gompare  the  track  number    (in   .A)  with 
the  zone  boundary  value  from  TRKNUM-1,X 
($FED6 ,X) . 

Decrement  the  zone  count  in  .X. 
If  the  track  number  in   .A  is   less  than 
the  boundary  value,   branch  to  MAXl. 
Load   .A  with  the  number  of  sectors/track 
for  this  zone  from  NUMSEG,X  ($FED1,X). 
Terminate  routine  with  an  RTS. 


Kill  protection:  Does  NOTHING  on  1541! 
Terminate  routine  with  an  RTS. 
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CNTINT 


LCC 


TOP 

CONTIO 


CONT30 


$F259 
$F25B 

$F25E 

$F26C 

$F27B 
$F281 
$F286 

$F28E 

$F294 
$F298 
$F29C 

$F2A4 
$F2A8 
$F2AC 


$F2B0 
$F2B3 
$F2B6 

$F2BE 

$F2C3 

$F2C5 
$F2CA 
$F2CD 
$F2D1 


DISK  CONTOLLER  ROUTINES 

Controller  initialization 
Store  %01101111   in  DDRB2    ($1C02)    to  set 
the  data  direction  for  Port  B, 
Store  %01100000   in  DSKCNT    ($1C00)  to 
turn  off  the  motor  &  LED  and  set  phase  A 
Set  the  peripheral  control  register 
($1C0C)    for  neg  edge   latch  mode,  CA2  hi 
to  disable  the  SO  line  to  the  6502,  CBl 
is  input,   and  CB2   is  R/W  mode  control, 
set  T1HL2($1C07)    to  $3A  and  T1LL2($1C06) 
to  $00  so  there  is  20ms  between  IRQ's 
store  $7F  in  IER2    ($1C0E)    to  clear  all 
IRQ  sources. 

store  $C0   in  IFR2    ($1C0D)    to  clear  the 
bit  and  then  into  IER2    ($1C0E)    to  enable 
the  timer  IRQ. 

store  $FF  as  the  current  drive,  CDRIVE 
($3E)    and  as   init  flag,   FTNUM    ($51) . 
set  header  block  ID,   HBID    ($39)    to  $08 
set  data  block  ID,   DBID    ($47)    to  $07 
set  NXTST    ($62/3)    to  point  to  INACT 
($FA05) . 

set  MINSTP    ($64)    to  200  to  indicate  the 
minimum  number  of  steps  required  to 
invoke  the  fast  stepping  mode, 
store  4   into  AS    ($5E)    to  indicate  the 
number  of  steps  needed  to  accelerate 
and  decelerate  the  head, 
store  4  into  AF    ($5F)    as  the 
acceleration/deceleration  factor. 


Main  controller  loop: 
Scans  the  job  queue  for  job  requests 
Finds  job  on  current  track  if  it  exists 

Save  stack  pointer   in  SAVSP  ($49). 

reset  IRQ  flag 

set  bits  3,2,&  1  of  PCR2    ($1C0C)  to 
enable  S.O.   to  6502,   hi  output 
top  of  loop  to  scan  job  queue.   Load  .Y 
with  #$05  as  pointer  to  top  of  queue. 
Load   .A  with  byte  from  queue,  JOBS,Y 
($0000, Y).   Test  if  bit  7  is  set.    If  not, 
branch  to  CONT20  since  no  job  here. 
Check  if  job  is  a  jump  code    ($D0) . 
If  not,   branch  to  CONT30. 
Transfer  queue  position  from  .Y  to  .A 
and  JMP  to  EX2    ($F370)    to  do  jump  job. 
AND  job  code  with  $01.    If  result  is  0, 
the  drive  #  is  valid  so  branch  to  CONT35 
Load   .A  with  $0F  to  indicate  a  bad  drive 
number  and  JMP  to  ERRR  ($F969) 


404 


NAME 


ADDRESS 


DESCRIPTION  OF  WHAT   ROM  ROUTINE  DOES 


CONT3  5 


CONT40 


CONT20 


QUE 


QUE05 


QUE20 


GOTU 


EXE 


EX 


$F2D8 
$F2DB 


$F2DF 
$F2E2 

$F2E9 


$F2ED 

$F2F3 

$F2F9 
$F2FD 
$F306 
$F315 

$F320 

$F32A 
$F32D 

$F32F 

$F339 

$F33C 

$F34D 

$F35F 
$F363 
$F367 
$F36B 


$F367 
$F379 


Store  job  drive  #   in  DRIVE    ($3D) . 
Compare  job  drive  #  with  current  drive 
number   in  CDRIVE    ($3E) .    (CDRIVE   is  $FF 
if  the  drive  is  not  turned  on.)    If  they 
are  equal,   branch  to  CONT40 
JSR  to  TURNON    ($F97E)    to  turn  on  drive. 
Set  CDRIVE  to  job  drive  #  and  exit  for 
now  with  a  JMP  to  END    ($F99C) . 
Check  the  value   in  DRVST    ($20)    to  see  if 
the  drive  is  up  to  speed.    If  bit  7  is 
set,    it  isn't  so  JMP  to  END  ($F99C). 
Check  if  the  head  is  stepping.   If  it  is, 
exit  with  a  JMP  to  END    ($F99C) .    If  it  is 
not  stepping,  branch  to  QUE. 
Decrement   .Y  pointer  into  queue.    If  more 
locations  in  queue,   branch  back  to 
CONTIO.    If  none  left  JMP  to  END  ($F99C). 
Store  $20  in  DRVST    ($20)    to  set  drive 
status  to  running. 

Check  if  head  needs  to  be  stepped  for 
this   job.    If  not,   branch  to  QUE20. 
Check  other  jobs  to  see  if  one  for  this 
track.   If  not,   calculate  steps  needed. 
Store  $60   in  DRVST    ($20)    to  set  drive 
status  to  stepping,   store  destination 
track  in  DRVTRK    ($22)    and  exit  for  now 
with  a  JMP  to  END    ($F99C) . 
check  if  job  is  on  current  drive.  If 
not,   branch  back  to  QUE05. 
calculate  distance  to  track 
are  we  on  track  already?  if  so,  branch 
to  GOTU. 

store  number  of  steps  to  the  desired 
track  in  NXTRK  ($42) 

JMP  back  to  QUE05  to  check  if  another 
job  is  closer. 

Calculate  zone   (1-4)   of  the  desired 
track  and  store  the  number  of  sectors 
on  the  track  in  SECTR   ($43)  . 
Calculate  recording  density  and  set  the 
divide  by  N  counter  by  storing  a  value 
in  DSKCNT    ($1C00)  . 

Load   .X  with  drive  number  and   .A  with 
the  job  code. 

Compare  job  code  with  $40.    If  equal, 

branch  to  BMP  to  do  bump  job. 

Compare  job  code  with  $60.    If  equal, 

branch  to  EX  to  do  execute  job. 

Not  Bump  or  Execute,   JMP  to  SEAK  ($F3B1) 

Do  an  execute  job 

set  pointer  to  buffer  in  BUFPNT  ($30/1) 
do  indirect  JMP  via  BUFPNT  to  the  code 
that  starts  at  the  start  of  the  buffer. 
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BMP 


SETJB 


SEAK 


SEAK 


SEEK15 


SEEK30 


$F37C 

$F380 
$F388 

$F38C 
$F390 
$F393 


$F3B1 


$F3B1 

$F3B7 

$F3BB 
$F3BE 
$F3C4 
$F3C6 

$F3C8 

$F3D5 

$F3D8 

$F3E2 

$F3E6 
$F3EC 


Do  a  bump  to  track  #1 

Store  $60  as  the  drive  status,  DRVST 

(20)    to  indicate  head  is  stepping. 

Set  track  phase  to  phase  A 

Store  -45    ($A4)    as  the  number  of  tracks 

to  move  head  in  STEPS  ($4A). 

Set  DRVTRK    ($22)    to  1  as  new  track # 

Job  done  so  JMP  to  ERRR   ($F969) . 

Sub  to  set  pointer  to  buffer,  BUFPNT 

($30/31)    and  into  header  table,  HDRPNT 

($32)    for  this  position  in  job  queue. 


Search  for  a  valid  header  block  on  this 
track.   Up  to  90  header  and  data  blocks 
are  scanned  while   looking  for  a  valid 
header  block  before  this  routine  gives 
up.   A  valid  header  block  must  have: 
1)    a  SYNC  mark 

a  header  block  ID  ($08) 
a  valid  checksum    (EOR  of  sector, 
track,    IDl,   and  ID2) 
the  sector  number 
the  track  number 

the  second  disk  ID  character  given 
when  the  disk  was  formatted 
the  first  disk  ID  character  given 
when  the  disk  was  formatted 
NOTE:   The  actual  order  of  these  bytes 
is  as  given  above.  Not  as  listed 
in  the  1541  manual! 


2) 
3) 

4) 
5) 


7) 


Store  $5A    (90)    in  TMP    ($4B)    as  the  sync 
mark  counter    (quit  if  counts  down  to  0) 
Store  $52   into  STAB    ($24)    as  the  header 
block  ID  code  to  wait  for    (GCR  for  $08)  , 
JSR  to  SYNC    ($F556)    to  wait  for  sync 
Read  first  character  after  sync 
Compare  it  to  character  in  STAB  ($24) 
If  no  match,   this  is  not  a  header  block 
so  branch  to  SEEK20. 

Loop  to  read  in  the  next  7  characters 
and  store  in  STAB+1,X    ($25, X). 
JSR  to  CNVBIN    ($F497)    to  convert  the 
header  bytes  from  GCR  form  to  normal. 
Loop  to  compute  checksum  of  header  read 
EOR  checksum,   sector,   track,    IDl  &  ID2. 
If  computed  checksum  is  not  0,  branch 
to  CSERR   ($F41E)    to  report  error. 
Update  current  track  from  header  data 
Compare  job  code  in  JOB    ($45)    with  $30 
to  see  if  it  is  a  seek  job.    If  it  is, 
branch  to  ESEEK    ($F410)    to  do  it. 
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SEEK20 

ESEEK 
DONE 

BAD  ID 
CSERR 

WSECT 


L460 
L480 


L465 


$F3F2 

$F404 
$F407 

$F410 
$F418 

$F41B 
$F41E 


$F423 
$F427 

$F429 
$F42C 


$F432 

$F43A 
$F443 

$F447 

$F44F 

$F455 


$F45E 
$F461 


$F465 


Compare  master  disk  ID  in  $12/13  to  the 
disk  ID  from  the  header  in  $16/17.  If 
they  don't  match,   branch  to  BADID($F41B) 
to  report  a  disk  ID  mismatch  error. 
JMP  to  WSWCT    ($F423)    to  find  the  best 
sector  on  this  track  to  service  (usually 
the  current  sector  +  2) 

Decrement  SYNC  counter  in  TMP($4B)    by  1 
to  see  if  we  should  check  more  syncs.  If 
not  0  yet,   branch  back  to  SEEKIO.    If  0, 
load   .A  with  a  $02    (to  indicate  header 
block  not  found)    and  JMP  to  ERRR  ($F969) 
Change  master  disk  ID  in  $12/$13  to 
match  the  ID  read  in  from  $16/17 
Load   .A  with  a  $01    (to  indicate  job 
completed  OK)    and  exit  to  error  handler 


Load   .A  with  a  $0B    (to  indicate  disk  ID 
mismatch)    and  exit  to  error  handler 

Load   .A  with  a  $09    (to  indicate  a  bad 
checksum)    and  exit  to  error  handler 


Determine  best  sector  on  this  track  to 

service    (optimum  is  current  sector  +  2) 
Store  $7F  as  the  current  sector  in  $4C 
Load   .A  with  the  sector  number  from  the 
header  just  read  from  HEADER  +  3    ($19)  . 
Add  2 

Compare  sum  to  the  number  of  sectors  on 
this  track  in  SECTR   ($43).    If  sum  is  too 
big,   subtract  the  number  of  sectors. 
Store  sum  as  next  sector  to  be  serviced 
in  NEXTS    ($4D) . 

JSR  to  SETJB    ($F393)    to  set  pointers. 
Check  to  be  sure  job  is  for  this  drive. 
If  not,   branch  to  L470    ($F483) . 
Check  to  be  sure  job  is  for  this  track. 
If  not,   branch  to  L470    ($F483) . 
Compare  job  code  in  JOB    ($45)   with  $60 
to  see  if  it  is  an  execute  job.    If  it 
is,   branch  to  L465. 

Load   .A  with  job's  sector,  (HDRPNT),Y 
and  subtract  the  upcoming  sector  from 
NEXTS    ($4D) .    If  result  is  positive, 
branch  to  L465  since  sector  coming  up. 
Add  value  from  NEXTS    ($4D)    back  in. 
Compare  to  distance  to  other  sector 
request.    If  further  away,   branch  to  L470 
since  other  job  is  closer. 
Save  distance  to  sector  on  the  stack. 
Check  job  code  in  JOB    ($45).    If  a  read 
job,   branch  to  TSTRDJ. 
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DOITT 


TSTRDJ 


L47C 


rNVR.TN 


REED 

READOl 
READll 
READ20 


$F46A 


$F473 

$F47E 

$F483 
$F487 

<;f4Q7. 


$F4CA 
$F4D1 
$F4D4 
$F4DF 

$F4ED 
$F4F0 

$F4F4 


This  is  a  write  job.   Pull  distance  to 
sector  off  the  stack.   Since  a  write  job 
requires  set  up  time,   if  sector  is  less 
than  9  ahead  or  more  than  12  ahead,  we 
are  better  off  doing  another  job  so 
branch  to  L470. 

This  job  is  closer  than  others  so  set  up 
by  storing  distance  in  CSECT    ($4C)  and 
setting  BUFPNT  to  point  to  the  buffer. 
Branch  alv;ays  to  L470 


This  is  a  read  job.   Pull  distance  to 
sector  off  the  stack.   Since  a  read  job 
doesn't  need  much  set  up  time,   if  sector 
is   less  than  6  ahead,  we  better  do  it 
so  branch  to  DOITT. 

Decrement  queue  position  in  JOHN  {$3F) 
by  1 .    If  more  to  check  branch  to  L480. 
No  more  to  check.   Test  if  any  jobs  were 
found.    If  none,   JMP  to  END    ($F99C).  If 
yes,   set  up  job  and  JMP  to  REED  ($F4CA) 


^,(2rLp_ji,?iert  GCR-  i-rnao-e---Q'f  -header  into  the   

normal   8  bit  binary  and  move  the  values 
into  $16/7/8/9/A.   The  characters 
decoded  include: 

-Header  block  ID  code    (usually  $08) 
-Hdr  block  checksum   (EOR  of  T/S/ID1/ID2) 
-Sector  number 
-Track  number 

-ID2  (2nd  ID  chr  given  when  formatted) 
-IDl  (1st  ID  chr  given  when  formatted) 
-The  remaining  characters  are  junk! 

Read  in  the  track  and  sector  that  is 
specified  in  the  header  table 
Check  if  this  is  a  read  job.    If  not, 
JMP  to  WRIGHT  ($F4CE) 

JSR  to  DSTRT    ($F50A)    find  header  and  set 

up  to  the  start  of  the  data  block 

Loop  to  read  first  256  data  bytes  and 

store  them  in  the  data  buffer. 

Loop  to  read  the  last  70  data  bytes  and 

store  them  in  the  overflow  buffer  from 

$01BA  to  $01FF. 

JSR  to  GCRBIN    ($F8E0)    to  convert  the  326 
GCR  data  bytes   into  256  normal  bytes 
Compare  the  first  byte  in  the  data  block 
from  BID    ($38)   with  the  header  block  ID 
character    (normally  $07)    in  HDIB  ($47) 
to  check  if  this  is  a  legal  data  block. 
If  they  match,   branch  to  READ2  8. 
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READ28 


DSTRT 


SRCH 


SRCH20 
SRCH25 


SRCH30 

ERR 
SYNC 


$F5F6 
$F4FB 
$F4FE 

$F502 

$F504 
$F5F6 
$F507 
$F50A 


$F510 

$F529 

$F533 
$F536 
$F538 
$F53D 

$F54D 
$F54E 

$F551 
$F553 
$F556 


No  match,   so  load   ,A  with  a  4  to  flag  a 
DATA  BLOCK  NOT  FOUND  error  and  JMP  to 
ERRR    ($F969)  . 

JSR  to  CHKBLK    ($F5E9)    to  compute  the 
checksum  for  the  data  block  by  EORing 
all  the  256  data  bytes. 

Compare  the  computed  checksum  in   .A  v/ith 
with  the  checksum  read  from  the  disk  in 
CHKSUM    ($3A) .    If  equal,   branch  to  READ40 
No  match,   so  load  .A  v/ith  a  5  to  flag  a 
DATA  BLOCK  CHECKSUM  error 
Byte  $2C  to  skip  over  next  LDA 
Load   .A  with  a  1  to  indicate  a  good  read 
JMP  to  ERRR    ($F969)  , 
JSR  to  SRCH  ($F510) 
header  block. 
JMP  to  SYNC  ($F556) 


to  find  the  desired 


to  wait  for  the 


data  block  sync  character. 


Find  a  specific  header.   The  track  and 
sector  desired  must  be  stored  in  the 
header  table 

Use  values  from  the  header  table  and 
the  master  disk  ID   ($12/3)    to  set  up  an 
image  of  the  desired  header  $16-$19 
FOR  the  track,   sector,   and  ID  characters 
to  calculate  the  header  checksum  and 
store  it  in  $1A. 

JSR  to  CONHDR    ($F934)    to  convert  the 
header  image  into  its  GCR  image. 
Load   .X  with  $5A  as  a  counter  of  the 
number  of  sync  marks  checked. 
JSR  to  SYNC    ($F556)    to  wait  for  the 
next  sync  mark. 

Loop  to  scan  the  8  bytes  following  the 
sync  mark  to  attempt  to  find  a  match  to 
the  GCR  image  of  the  desired  header.  If 
any  character  does  not  match  the  image, 
branch  to  SRCH3  0. 

All  characters  match  so  exit  with  an  RTS 

Decrement  the  sync  mark  counter  in  .X 

If  counter  is  not  0  yet,   branch  back  to 

SRCH20  to  wait  for  next  sync. 

No  match,   so  load   .A  with  a  2  to  flag  a 

BLOCK  HEADER  NOT  FOUND  error. 

JMP  to  ERRR    ($F969) . 

Wait  for  SYNC  mark 
A  SYNC  mark  is  10  or  more  consecutive 
I's  bits  written  onto  the  disk.    It  is 
used  to  identify  the  start  of  a  block 
of  information  recorded  on  disk.  The 
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SYNCIO 


WRIGHT 


WRTIO 


WRTSNC 


$F556 

$F55B 
$F55D 

$F562 

$F567 

$F56E 
$F575 
$F5  7A 


$F586 
$F589 
$F58C 


$Ff".94 
$F599 

$F5A3 
$F5AP 


first  character  following  a  SYNC  mark 
is  used  to  determine  whether  this  is 
a  header  block    ($08)    or  a  data  block 
($07) . 

Store  $D0   in  TIMERl    ($1805)    to  allow  a 
maximum  wait  of  20  milliseconds  for  a 
sync  before  timing  out. 

Load   .A  with  $03    (the  error  code  for  a 
NO  SYNC  FOUND  error) 

Test  bit  7  of  TIMERl    ($1805)    to  check 
for  a  time-out.   If  time  is  up,  branch 
to  ERR    ($F553)    to  exit. 
Test  bit  7  of  DSKCNT    ($1C00)    to  check 
for  a  sync.   If  no  sync,  branch  back  to 
SYNCIO  to  wait  some  more. 

Load  .A  from  DATA2  to  reset  the  PA  latch 
clear  the  6502 's  overflow  flag,   and  RTS 


Write  contents  of  data  buffer  to  disk 
Compare  job  code  in   .A  with  $10  to  check 
if  this  is  write  job.    If  not,   JMP  to 
VERIFY    ($F691) . 

JSR  to  CHKBLK    ($F5E9)    to  compute  the 
checksum  for  the  data  block.  Store  the 
checksum  in  CHKSUM    ($3A) . 
Load   .A  from  DSKCNT  and  AND  it  with  $10 
to  check  for  write  protect  tab.    If  the 
result  is  not  $00,   OK  to  write  so  branch 
to  WRTIO. 

Load  .A  with  $08  to  flag  a  WRITE  PROTECT 
error  and  JMP  to  ERRR  ($F969) 


JSR  to  BINGCR    ($F78F)    to  convert  data 
in  the  buffer  into  GCR  form. 
JSR  to  SRCH    ($F510)    to  find  the  correct 
header  block 

V7ci.it  for  8  more  bytes  to  go  by.  This  is 
the  header  gap. 


NOTE:   The  header  gap  on  the  1541  is  8 
bytes   long.   The  gap  on  the  4040   is  9 
bytes  long.   This  is  the  main  reason  why 
the  drives  are  write  incompatible! 


Store  $FF  in  DDRA2    ($1C03)    to  make  Pert 
A  an  output  port 

Load   .A  from  PCR2    ($1C0C) ,  AND  the  value 
with  $1F,   OR  it  with  $C0,   and  store  the 
result  in  PCR2  to  turn  on  write  mode. 
Store  $FF  in  DATA2    ($1C01)    as  the  SYNC 
mark  character 

Loop  to  write  out  5  consecutive  $FF 
bytes    (5x8  =  4G     1 ' s) . 
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WRT3  0 


WRT4  0 


CHKBLK 


WTOBIN 


$F5B1 
$F5B3 

$F5BF 


$F5CA 
$F5CC 


$F5D4 
$F5D9 

$F5DC 
$F5E6 

$F5E9 
$F5F2 


$F5F2 
$F5FE 
$F604 


$F608 
$E'60A 


Load   .Y  with  $BB  to  pc.int  into  the 

overflow  buffer    ($01BB-01FF) . 

Load   .A  with  byte  from  overflow  buffer, 

wait  till   last  byte  is  out,    store  new 

byte  into  DATfl2    ($1C01) ,    increment  .Y 

pointer,   and  if  more  characters  to  do, 

branch  back  to  WRT3  0. 

Load   .A  with  byte  from  data  buffer, 

wait  till   last  byte  is  out,   store  new 

byte  into  DATA2    ($1C01) ,   increment  .Y 

pointer,   and  if  more  characters  to  do, 

branch  back  to  WRT40. 

Wait  for  final  byte  to  clear 

Load   .A  from  PCR2    ($1C0C) ,   OR  the  value 

with  $E0 ,   and   store  the  result  back  in 

PCR2  to  shift  to  read  mode. 

Store  $00   in  data  direction  register 

DDRA2  to  make  port  A  an  input  port. 

JSR  to  WTOBIN    ($F5F2)    to  convert  GCR 

data  in  buffer  back  into  its  normal  8 

bit  form  to  prepare  to  verify  it. 

Convert  the  write  job  number  in  the  job 

queue  into  a  verify  job. 

JMP  to  SEAK    ($F3B1)    to  scan  the  queue 

for  the  next  job. 

Calculate  data  block  checksum 

EOR  the  256  data  bytes.   Return  with  the 

checksum  in  .A 

Convert  the  10  bit  image  of  Ihe  data  to 
normal   8  bit  binary.   Since  5  encoded 
bytes    (40  bits)    are  converted  into  4 
normal  bytes    (32  bits) ,   the  encoded 
form  of  256  data  bytes  takes  up  320 
bytes.   At  the  start  of  this  routine 
the  first  6  4  encoded  b^^tes  that  were 
read  are  stored  in  the  overflow  buffer 
($01BA-FF)    and  the  remaining  256  bytes 
are  in  the  normal  data  buffer.   At  the 
end  of  the  routine  the  decoded  bytes 
are  stored  in  the  normal  data  buffer. 
Set  up  pointers  to  the  buffers 
Do  the  overflow  buffer    ($01BA-FF)  first. 
Store  $BB  in  GCRPNT    ($34)    so  it  points 
to  the  first  byte  in  the  overflow  buffer 
($01BB)    that  is  to  be  processed  by  the 
routine  GET4GB. 

Store  $BB  in  BYTCNT    ($52)    so  it  points 
to  the  location  where  the  first  decoded 
data  byte  is  to  be  stored. 
JSR  to  GET4GB    ($F7E6)    to  convert  the 
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WT0B14 


WT0B51) 
WTOB53 


WTOB5  2 


WTOB5  7 


VRFY 


$F60D 
$F611 


$F624 
$F629 


$F641 
$F643 
$F64F 


$F629 


$F66E 

$F683 
$F68E 
$F690 


$F691 


first  five  GCR  bytes  into  4  normal  bytes 
(the  data  block  ID  +  3  data  bytes) .  The 
decoded  bytes  appear  in  $52-5 
Store  data  block  ID  chr  in  BID    ($38)  . 
Move  decoded  data  b>tes  from  $53-$55  to 
the  buffer    {$01BB-D) .   Note  that  the 
decoded  bytes  are  put  back  into  the 
overflow  buffer. 

JSR  to  GET4BG    ($F7E6)    to  convert  the 
next  5  GCR  bytes  to  4  normal  bytes  and 
store  them  in  $52-5. 

Move  decoded  data  bytes  from  $53-$55  to 
the  buffer    ($01BB-D) .   Note  that  the 
decoded  bytes  are  put  back  into  the 
overflow  buffer. 

If  more  in  overflow,   branch  to  WT0B14 
Move  last  two  data  bytes   into  buffer 
Loop  to  convert  the  256  bytes  in  data 
buffer.   JSR  to  GET4BG    ($F7E6)    to  convert 
the  next  5  GCR  bytes  to  4  normal  bytes 
and  store  them  in  $52-5. 

Move  decoded  data  bytes  from  $53-$55  tc 
the  data  buffer.  Note  that  the  decoded 
bytes  are  put  back  in  the  data  buffer. 


At  this  point  the  data  bytes  have  all 
been  decoded.   Some  bytes  are  in  the 
overflow  buffer  and  some  are  in  the 
lower  part  of  the  data  buffer.  The 
following  routines  shift  the  bytes  in 
the  buffer  up  and  then  fill  the  lower 
part  of  the  buffer  with  the  bytes  from 
the  overflow  buffer. 


Move  decoded  bytes  in  lower  part  of  the 
data  buffer  up  into  their  proper  places 
in  the  buffer. 

Move  decoded  bytes  from  the  overflow 
buffer  to  the  bottom  of  the  data  buffer. 
Set  GCRFLG    ($50)    to  0  to  indicate  that 
the  data  in  buffer  is  in  normal  form. 
Exit  with  an  RTS. 


Verify  a  data  block 
This  routine  converts  the  data  in  the 
data  buffer  into  its  10  bit  encoded 
form   (GCR) .    It  then  compares  the  GCR 
image  with  what  is  recorded  on  the 
disk.  The  encoded  data  is  then  changed 
back  into  normal   8  bit  binary  form. 

Compare  job  code  in   .A  with  $20  to  check 
that  this  is  a  verify  job.   If  not,  JMP 
to  SECTSK    (F6CA)    to  do  a  sector  seek. 
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VRF15 


VRF30 


VRF20 


SECTSK 


PUT4GB 


$F698 

$F69D 
$F6A0 
$F6A3 

$F6B3 

$F6C2 
$F6C5 

$F6CA 

$F6D0 


JSR  to  CHKBLK    ($F5E9)    to  compute  the 
checksum  for  the  data  block.   Store  the 
checksum  in  CHKSUM    {$3A) . 
JSR  to  BINGCR   ($F78F)    to  convert  the 
data  to  its  GCR  image. 

JSR  to  DSTRT    ($F50A)    to  find  the  right 
sector  and  wait  for  data. 

Loop  to  read  64  data  bytes  from  disk  and 
compare  them  to  those  in  the  overflow 
buffer.   If  any  bytes  do  not  match, 
branch  to  VRF20  to  report  error. 
Loop  to  read  254  data  bytes  from  disk 
and  compare  them  to  those  in  the  data 
buffer.   If  any  bytes  do  not  match, 
branch  to  VRF20  to  report  .error . 
All  bytes  match  so  JMP  to  DONE  ($F418) 


Bad  byte,   so  load  .A  with  $07  to  flag  a 
WRITE-VERIFY  error  &  JMP  to  ERRR  {$F969) 

JSR  to  SRCH  to  do  a  sector  search 
JMP  to  DONE  ($F418) 

Convert  binary  to  GCR 

This  routine  is  used  to  convert  4  normal 
8  bit  bytes  into  the  10  bit  encoded  form 
used  for  recording  onto  disk.  Encoding 
involves  breaking  up  each  8  bit  normal 
byte  into  two  4-bit  nybbles.  The  5-bit 
equivalent  for  each  nybble  is  found  by 
looking  in  a  table.  The  10  bits  that 
result  are  stored  in  two  consecutive 
memory  locations.  When  four  8-bit  bytes 
are  encoded,   the  resulting  40  bits  are 
stored  like  this: 


Four  normal   8  bit  bytes  stored  in  $52/3/4/5 
AAAABBBB  CCCCDDDd' EEEEFFFF  GGGGHHHH 

Four  10  bit  encoded  bytes  stored  in  buffer 
aaaaabbb  bbcccccd  ddddeeee  efffffgg  ggghhhhh 


$F6D0 


$F6D8 


Clear  critical  areas  of  the  buffer  where 
the  encoded  bytes  are  to  be  stored. 
GTAB  to  GTAB+4  ($56-5A) 

Load  first  8-bit  byte    ($52) ,   AND  it  with 
$F0    (11110000)    to  mask  off  the  low 
nybble    (AAAAOOOO),   do  four  LSR ' s  to 
convert  the  hi  nybble  to  a  low  nybble 
(OOOOAAAA),    look  up  the  corresponding 
five  bit  GCR  value    (OOOaaaaa)    in  BGTAB 
BGTAB   ($F77F+) ,   do  three  ASL's  on  it 
(aaaaaOOO),  and  store  it  in  the  first 
position  in  the  encoded  data  area  ($56) 
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$F6E9 


$F6FE 


$F70F 


$F725 


$F73D 


$F74D 


Load  first  8-bit  byte    ($52) ,   AND  it  with 
$0F    (00001111)    to  mask  off  the  high 
nybble    (OOOOBBBB) ,   find  the  five  bit  GCR 
equivalent    (OOObbbbb)    in  BGTAB    ($F77F+)  , 
do  two  ROR's  on  it  alternated  with  ROR ' s 
on  $57    . A= (OOOOCbbb)    $57=bb000000 ,  AND 
the  value  in   .A  with  $07    (00000111) ,  OR 
the  value  in   .A  with  the  value  in  $52 

(aaaaaOOO) ,   and  store  the  result 

(aaaaabbb)    in  the  first  position  of  the 
GCR  data  buffer    (BUFPNT) ,Y    ($30, Y). 
Load  second  8-bit  byte    ($53) ,   AND  it 
with  $F0    (11110000)    to  mask  off  the  low 
nybble    (CCCCOOOO),   do  four  LSR's  to 
convert  the  hi  nybble  to  a  low  nybble 

(OOOOCCCC) ,    look  up  the  five  bit  GCR 
equivalent    (OOOccccc)    in  BGTAB    ($F77F+) , 
do  one  ASL  on  it    (OOcccccO) ,   OR  it  with 
the  contents  of  $57    (bbOOOOOO) ,   and  put 
the  result    (bbcccccO)    in  $57. 
Load  second  8-bit  byte    ($53),   AND  it 
with  $0F    (00001111)    to  mask  off  the  high 
nybble    (OOOODDDD) ,   find  the  five  tit  GCR 
equivalent    (OOOddddd)    in  BGTAB    ($F77F+) , 
do  four  ROL's  on  it    (ddddOOOO  C=d) , 
store  it  in  $58 (ddddOOOO) ,   do  one  more 
ROL    (dddOOOOd  C=d),   AND  it  with  $01,  OR 
it  with  the  value  in  $57 (bbcccccO)  and 
store  the  result    (bbcccccd)    into  the 
second  byte  of  the  GCR  buffer 
Load  third  8-bit  byte    ($54) ,   AND  it  with 
$F0    (11110000)    to  mask  off  the  low 
nybble    (EEEEOOOO),   do  four  LSR's  to 
convert  the  hi  nybble  to  a   low  nybble 

(OOOOEEEE) ,    look  up  the  five  bit  GCR 
equivalent    (OOOeeeee)    in  BGTAB    ($F77F+) , 
do  one  FOR  on  it   (OOOOeeee  C=e) ,   OR  it 
with  the  contents  of  $58    (ddddOOOO) , 
store  the  result    (ddddeeee)    in  the  third 
byte  of  the  GCR  buffer,   do  another  ROR 

(eCOOOeee) C=e ,   AND  it  with  $80(10000000) 
and  store  the  result    (eOOOOOOO)    in  $59. 
Load  third   8-bit  byte    ($54) ,   AND  it  with 
$0F    (00001111)    to  mask  off  the  high 
nybble    (OOOOFFFF) ,   find  the  five  bit  GCR 
equivalent    (OOOfffff )    in  BGTAB    ($F77F+)  , 
do  two  ASL's  on  it   (OfffffOO),   AND  it 
with  $7C    (01111100) ,   OR  it  with  the 
value  in  $59    (eOOOOOOO)  ,   and  store  the 
result    (efffffOO)    in  $59 

Load  the  fourth  8-bit  byte    ($55) ,   AND  it 
with  $F0    (11110000)    to  mask  off  the  low 
nybble    (GGGGOOOO),   do  four  LSR's  to 
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BGTAB 


$F76F 


$F77F 


convert  the  hi  nybble  to  a   low  nybble 
(OOOOGGGG) ,    look  up  the  five  bit  GCR 
equivalent    (OOOggggg)    in  BGTAB    ($F77F+)  , 
do  three  ROR ' s  on   .A  alternated  with 
ROR's  on  $5A   .A=(00000gg)    $5A= (gggOOOOO) 
AND   .A  with  $03    (00000011) ,   OR   .A  with 
the  contents  of  $59    (ef ffffOO) ,   &  store 
result   (efffffgg)    in  the  fourth  byte  of 
the  GCR  buffer. 

Load  the  fourth  8-bit  byte  ($55) ,  AND  it 
with  $0F  (00001111)  to  mask  off  the  high 
nybble  (OOOOHHHH) ,  find  the  five  bit  GCR 
equivalent  (OOOhhhhh)  in  BGTAB  ($F77F+) , 
OR  it  with  the  value  in  $59  (gggOOOOO) , 
and  store  the  result  (ggghhhhh)  in  the 
fifth  position  of  the  GCR  buffer. 


Table  of  5  bit  GCR  equivalents 

4  bit  nybble  5  bit  GCR  code 


$00 

0000 

$0A 

01010 

$G1 

0001 

$0B 

01011 

$02 

0010 

$12 

10010 

$03 

0011 

$13 

10011 

$04 

0100 

$0E 

OHIO 

$05 

0101 

$0F 

01111 

$oe 

0110 

$16 

10110 

$07 

0111 

$17 

10111 

$08 

1000 

$09 

01001 

$09 

1001 

$19 

11001 

$0A 

1010 

$1A 

11010 

$0B 

1011 

$1B 

11011 

$0C 

1100 

$0D 

01101 

$0D 

1101 

$1D 

11101 

$0E 

1110 

$1E 

11110 

$0F 

111] 

$15 

10101 

Note:    5  bits  are  used  t-O  ensure  that 
not  more  than  2  consecutive  O's 
are  recorded  on  disk. 


BINGCR 


Create  write  image  of  data 
This  routine  converts  260  normal  8-bit 
bytes  into  their  10-bit  equivalents  to 
produce  an  image  for  writing  to  disk.  A 
total  of  325  GCR  bytes  are  produced. 
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BING07 


GET4GB 


$F78F 
$F797 
$F7A5 


$F7BA 
$F7BC 

$F7BF 
$F7D7 
$F7D9 

$F7E3 


The  original   8-bit  bytes  are: 

1  data  block  ID  character  ($07) 
256  data  bytes    (stored  in  buffer  X) 

1  data  checksum 

2  off  bytes  ($00) 

260  8-bit  binary  bytes 


The  first  69  GCR  bytes  are  stored  in  the 
overflow  buffer    ($10BB-FF) .   The  rest  of 
the  GCR  bytes  are  stored  in  buffer  X  and 
replace  the  original  data  bytes 


Initialize  pointers  to  buffers 
Set  pointer  to  start  of  overflow  $01bb 
Move  data  block  ID  code  from  DBID  ($47) 
and  first  3  data  characters   into  a  work 
area    ($52/3/4/5)    for  input  by  the  PUT4GB 
routine  ($F6D0) 

Store  pointer  to  next  byte  to  convert 
(in   .Y)    into  BYTCNT    ($36)  . 
JSR  to  PUT4GB    ($F6D0)    to  convert  the 
four  bytes   in  $52/3/4/5   into  their  five 
GCR  equivalents  and  store  in  buffer.  Use 
the  overflow  buffer  first  and  then  use 
the  data  buffer. 

Move  next  four  bytes  into  the  work  area 
($52/3/4/5) . 

If  more  bytes  to  convert   (.Y  is  count) 
branch  back  to  BING07. 

Move  data  block  checksum  from  DBID  ($3A) 
and  two  off  bytes    ($00)    into  the  work 
area    ($53/4/5)    NOTE:    THE  LAST  DATA  BYTE 
IS   IN  $52. 

JSR  to  PUT4GB    ($F6D0)    to  convert  the 
four  bytes  in  $52/3/4/5   into  their  five 
GCR  equivalents  and  store  in  buffer. 


Convert  GCR  to  binary 

This  routine  is  used  to  decode  5  GCR 
bytes    (used  for  recording  on  disk)  into 
4  normal   8-bit  binary  bytes.  Decoding 
involves  extracting  5  bits  from  one  or 
two  GCR  bytes.   The  4-bit  nybble  that  is 
equivalent  to  it  is  found  by  looking  in 
a  table.  The  pattern  of  5-bit  segments 
in  the  5  GCR  bytes  and  the  equivalent 
4-bit  nybbles   in  the  four  binary  bytes 
are  indicated  below: 


Four  10  bit  encoded  bytes  stored  in  buffer 
aaaaabbb  bbcccccd  ddddeeee  efffffgg  ggghhhhh 
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Four  normal   8  bit  bytes  stored  in  $56/7/8/9 
AAAABBBB  CCCCDDDD  EEEEFFFF  GGGGHHHH 


$F7E6 

$F7F1 

$F7F9 
$F802 


$F80D 


$F814 


$F81F 


$F82B 


$F833 


$F840 


Load  the  first  GCR  byte    (aaaaabbb)  from 
(BUFPNT) ,Y,   AND   it  with  $F8  (11111000) 
to  mask  off  the  lov/  bits   (aaaaOOO)  ,  do 
three  LSR's  and  store  the  result 
(OOOaaaaa)    in  GTAB  ($56) 

Load  the  first  GCR  byte    (aaaaabbb)  from 
(BUFPNT) ,Y,   AND   it  with  $07  (00000111) 
to  mask  off  the  high  bits    (OOOOObbb) ,  do 
tv/o  ASL's  and  store  the  result  (OOObbbOO) 
in  $57. 

Increment  Y  and  check  if  Y=0.    If  so, 
change  BUFPNT  so  it  points  to  the  data 
buffer  rather  than  the  overflow  buffer. 
Load  the  second  GCR  byte    (bbcccccd)  from 

(BUFPNT) ,Y,    AND  it  with  $C0  (11000000) 
to  mask  off  the   low  bits    (bbOOOOOO) ,  do 
three  ROL ' s    (OOOOOObb),   OR  it  with  the 
value  in  $57    (OOObbbOO),   and  store  the 
result    (OOObbbbb)    back  in  $57. 
Load  the  second  GCR  byte (bbcccccd)  from 

(BUFPNT) ,Y,   AND   it  with  $3E  (00111110) 
to  mask  off  unwanted  bits    (OOcccccO) ,  do 
one  LSR  and  store  the  result  (OOOccccc) 
in  $58. 

Load  the  second  GCR  byte    (bbcccccd)  from 
(BUFPNT) ,Y,   AND  it  with  $01  (00000001) 
to  mask  off  unwanted  bits    (OOOOOOOd) , 
do  four  ASL's  and  store  the  result 
(OOOdOOOO)    in  $58. 

Load  the  third  GCR  byte    (ddddeeee)  from 
(BUFPNT) ,Y,    AND   it  with  $F0  (11110000) 
to  mask  off  the  low  bits    (ddddOOOO) ,  do 
four  LSR's    (OOOOdddd) ,   OR  it  with  the 
value  in  $59    (OOOdOOOO) ,   and  store  the 
result    (OOOddddd)    back  in  $59. 
Load  the  third  GCR  byte    (ddddeeee)  from 
(BUFPNT)  ,Y,   AND  it  with  $0F  (00001111)  to 
mask  off  hi  bits    (OOOOeeee) ,   do  one  ASL 
and  store  the  result    (OOOeeeeO)    in  $5A. 
Load  the  fourth  GCR  byte    (efffffgg)  from 
(BUFPNT) ,Y,   AND   it  with  $80  (10000000) 
to  mask  off  the  low  bits    (eOOOOOOO) ,  do 
two  ROL's    (OOOeOOOO) ,   OR  it  with  the 
value  in  $5A    (OOOOeeee) ,   and  store  the 
result    (OOOeeeee)    back  in  $5A. 
Load  the  fourth  GCR  byte    (efffffgg)  from 
(BUFPNT) ,Y,   AND  it  with  $7C  (01111100) 
to  mask  off  unwanted  bits    (OfffffOO),  do 
two  LSR's  and  store  the  result (OOOfffff ) 
in  $5B. 
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$F848 

$F854 
$F85A 


$F866 


$F86D 


$F87B 


$F887 


$F893 


Load  the  fourth  GCR  byte    (efffffgg)  from 
(BUFPNT) ,Y,   AND  it  with  $03  (00000011) 
to  mask  off  unwanted  bits    (OOOOOOgg) , 
do  three  LSR's  and  store  the  result 
(OOOggOOO)    in  $5C. 

Increment  Y.    If  Y=0  change  BUFPNT  to 

point  to  the  next  buffer. 

Load  the  fifth  GCR  byte    (ggghhhhh)  from 

(BUFPNT) ,Y,   AND  it  with  $E0  (11100000) 
to  mask  off  the  low  bits    (gggOOOOO) ,  do 
four  ROL's    (OOOOOggg) ,   OR  it  with  the 
value  in  $5C    (OOOggOOO) ,   and  store  the 
result    (OOOggggg)    back  in  $5C. 
Load  the  fifth  GCR  byte (ggghhhhh)  from 

(BUFPNT) ,Y,   AND  it  with  $1F  (00011111) 
to  mask  off  the  high  bits    (OOOhhhhh) , 
and  store  in  $50 


At  this  point  the  40  bits  that  made  up 
the  5  GCR  bytes  have  been  separated  into 
eight  5-bit  values  that  correspond  to 
the  eight  4-bit  nybbles  that  will  make 
up  the  four  normal  binary  bytes.   The  8 
5-bit  values  are  stored  in  $56-D.  The 
following  routines   look  up  the  4-bit 
hi  nybbles  in  GCRHI    ($F8A0)    and  the  low 
nybbles  in  GCRLO    (starts  at  $F8C0) 


Load   .X  with  the  first  5-bit  value  from 
$56,    load   .A  with  4-bit  high  nybble 
from  GCRHI, X,    load  X  with  a  second  five 
bit  value  from  $57,   OR   .A  with  the  four 
bit  low  nybble  from  GCRLO, X,   and  store 
the  result  in  $52. 

Load  X  with  the  third  5-bit  value  from 
$58,    load   .A  with  4-bit  high  nybble  from 
GCRHI, X,    load  X  with  the  fourth  5-bit 
value  from  $59,   OR   .A  with  the  4-bit  lov/ 
nybble  from  GCRLO, X  and  store  the  result 
in  $53. 

Load  X  with  the  fifth  5-bit  value  from 
$5A,    load   .A  with  4-bit  high  nybble  from 
from  GCRHI, X,    load  X  with  the  second 
five  bit  value  from  $5B,  OR  .A  with  the 
four  bit  low  nybble  from  GCRLO, X,  and 
store  the  result  in  $54. 
Load   .X  with  the  seventh  5  value  from 
$5C,    load   .A  with  4-bit  high  nybble  from 
GCRHI, X,    load  X  with  the  second  5-bit 
value  from  $50,   OR  .A  with  the  four  bit 
low  nybble  from  GCRLO, X,   and  store  the 
result  in  $55. 
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NOTE:   The  five  bit  to  four  bit  tables  below  have  many  $FF 
entries.   These  are  the  five  bit  codes  that  are  not  used. 
If  one  of  these  is  found,   it  causes  a  byte  decoding  error 


GCRHI($F8A0)    &  GCRLO($F8C0)    Tables  of  5  bit  GCR  to  binary 


5  bit  GCR  code     High  nybble    ($F8A0+)    Low  nybble  ($F8C0+) 


$00 

00000 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$01 

00001 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$02 

00010 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$03 

00011 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$04 

00100 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$05 

00101 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$06 

00110 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$07 

00111 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$08 

01000 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$09 

01001 

$80 

1000  

$08 

 1000 

$0A 

01010 

$00 

$00 

 0000 

$0B 

01011 

$10 

0001  

$01 

 0001 

$0C 

01100 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$0D 

01101 

$C0 

1100  

$0C 

 1100 

$0E 

OHIO 

$40 

0100  

$04 

 0100 

$0F 

01111 

$50 

0101  

$05 

 0101 

$10 

10000 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$11 

10001 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$12 

10010 

$20 

0010  

$02 

 0010 

$13 

10011 

$30 

0011  

$03 

 0011 

$14 

10100 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$15 

10101 

$F0 

1111  

$0F 

 1111 

$16 

10110 

$60 

0110  

$06 

 0110 

$17 

10111 

$70 

0111  

$07 

 0111 

$18 

11000 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$19 

11001 

$90 

1001  

$09 

 1001 

$1A 

11010 

$A0 

1010  

$0A 

 1010 

$1B 

11011 

$B0 

1011  

$0B 

 1011 

$1C 

11100 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

$1D 

11101 

$D0 

1101  

$0D 

 1101 

$1E 

11110 

$E0 

1110  

$0E 

 1110 

$1F 

11111 

$FF 

11111111 

ERROR 

$FF 

11111111 

ERROR 

GCRBIN 


$F8E0 
$F8E8 


Decode  GCR  data  image 

This  routine  decoded  the  69  GCR  bytes 
stored  in  the  overflow  buffer  ($10BB-FF) 
into  normal   8-bit  bytes.   The  decoded 
bytes  are  stored  in  a  data  buffer. 

Zero  byte  counter  &  lo  bit  of  pointers 
Set  lo  byte  of  pointer,  NXTBF    ($4E)  to 
$BA  and  set  the  hi  byte  NXTPNT    ($4F)  to 
$01  so  they  point  to  the  first  byte  of 
the  GCR  image  in  the  overflow  buffer. 
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GCRBIO 


GCRB20 


CONHDR 


$F8F0 


$F8F4 


$F8F7 
$F8FB 


$F90C 
$F90E 

$F913 
$F918 
$F91A 
$F929 
$F92B 
$F92F 


$F934 

$F938 
$F93C 
$F940 
$F944 
$F948 
$F94C 
$F950 


Set  SAVPNT+1    ($2F)    to  point  to  the  data 
buffer  where  the  8-bit  bytes  are  to  be 
stored . 

JSR  to  GET4GB    ($F7E6)    to  convert  the 
first  five  GCR  bytes  into  binary,  the 
header  block  ID,   the  header  checksum, 
the  sector  #,  and  the  track  #.  The 
decoded  bytes  appear  in  $52-5. 
Store  header  block  ID  code  in  BID  ($38) 
Move  the  three  decoded  bytes  from  $53-55 
into  the  buffer.  Note  that  these  bytes 
are  NOT  stored  in  the  overflow  buffer 
where  the  GCR  image  is  stored. 
Transfer  byte  pointer  from  .Y  into 
BYTCNT    ($36)  . 

JSR  to  GET4GB    ($F7E6)    to  convert  the 
next  five  GCR  bytes  to  normal  and  store 
them  in  $52-5. 

Move  decoded  data  byte  from  $52  into  the 
data  buffer. 

Test   .Y  to  see  if  entire  overflow  buffer 
has  been  done.    If  done,  branch  to  GCRB20 
Move  decoded  data  bytes  from  $53-5  into 
the  data  buffer. 

If   .Y  is  not  $00,  there  is  more  to  do 
so  branch  back  to  GCRBIO. 
Move  header  block  checksum  from  $53 
to  CHKSUM  ($3A) 

Restore  buffer  pointer  and  RTS. 

Convert  header  to  write  image 
This  routine  creates  a  GCR  image  of  a 
header  block.   It  uses  the  header  block 
ID  code  from  HBID    ($39)    and  the  header 
information  stored  in  $1A    (checksum) , 
$19    (sector),    $18    (track),   $17  (ID2), 
and  $16    (IDl) .   A  final   $00  byte  is  used 
as  a  final  off  byte.   Four  of  the  binary 
bytes  are  moved  into  a  staging  area  and 
the  subroutine  PUT4GB    ($F6D0)    is  used  to 
convert  these  bytes  to  their  GCR  image 
and  store  them  in  the  STAB  buffer ($24-D) 

Save  current  value  of  the  buffer  pointer 

BUFPNT+1    ($31)    in  SAVPNT+1    ($2F) . 

Make  BUFPNT+1    ($31)    point  to  >STAB  ($00) 

Make  GCRPNT    ($34)    point  to  <STAB  ($24) 

Move  hdr  blk  ID  from  HBID   ($39)    to  $52 

Move  checksum  from  $1A  to  $53 

Move  sector  from  $19  to  $54 

Move  track  from  $18  to  $55 

JSR  to  PUT4GB    ($F6D0)    to  convert  the 

four  bytes  in  $52-5  to  5  GCR  bytes  and 

store  them  at  the  start  of  STAB    ($24-8) . 
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ERRR 


ERRRIO 


TURNON 


TRNOFF 


$F953       Move  2nd  ID  chr  from  $17  to  $52 
$F957       Move  1st  ID  chr  from  $16  to  $53 
$F95B       Store  $00  off  bytes  into  $54  &  $55 
$F961       JSR  to  PUT4GB    ($F6D0)    to  convert  the 

four  bytes  in  $52-5  to  5  GCR  bytes  and 
store  them  in  STAB   ($29-D) . 
$F964       Restore  the  buffer  pointer  BUFPNT+1 ($31) 
to  its  previous  value  and  RTS. 

UTILITY  ROUTINES 


Disk  controller  error  handling 
This  routine  is  used  to  terminate  all 
of  the  major  disk  controller  routines. 
The  inputs  to  this  routine  are:  the 
error  code    (see  table)    in   .A,   the  job 
buffer  number  in  JOBN   ($3F) ,   and  the 
GCRFLG    ($50)    (tells   if  the  data  in  the 
buffer  has  been  left  in  write  image  (1) 
or  binary   (0)    form).   The  routine  stuffs 
the  error  code  into  the  job  queue, 
converts  the  data  back  to  binary  (if 
necessary) ,   starts  time-out  to  turn  off 
the  drive  motor,   resets  the  stack 
pointer,   and  exits  to  $F2BE  to  begin 
scanning  the  job  queue  again. 
Store  error  code  in   .A  into  job  queue 
Check  GCRFLG    ($50)    to  see  if  data  left 
in  GCR  format.    If  not,   branch  to  ERRRIO. 
JSR  to  WTOBIN   ($F5F2)    to  convert  data 
from  GCR  to  normal. 

JSR  to  TRNOFF    ($F98F)    to  start  the  time- 
out to  turn  off  the  drive  motor. 
Use  value  from  SAVSP    ($49)    to  reset  the 
stack  pointer. 

JMP  to  TOP    ($F2BE)    to  scan  job  queue. 
Turn  on  disk  drive  motor 

Store  $A0  into  drive  status,   DRVST  ($20) 
to  indicate  that  the  drive  is  ON  but 
not  yet  up  to  speed    (accelerating) . 
Set  bit  2    (00000100)    of  DSKCNT  ($1C00) 
to  turn  ON  the  drive  motor. 
Store  $3C  into  acceleration  timer, ACLTIM 

($48)    to  cause  drive  status  to  be  set 
to  up-to-speed  after  1.5  seconds. 

(60  interrupts  at   .025  seconds  each) 

Turn  off  disk  drive  motor 

Load   .X  with  current  drive  #  (0) 

Set  bit  4   (00010000)   of  the  drive  status 

DRVST    ($20)    to   indicate  DRIVE   IS  OFF! 


$F969 
$F96E 

$F972 

$F96E 

$F978 

$F97B 

$F97E 

$F982 
$F98A 


$F98F 
$F991 
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END 


END33X 
ENDIO 


END20 


$F997 


$F99C 
$F9A5 


$F9B1 


$F9CB 
$F9CF 

$F9D6 
$F9D9 


$F9E4 


Store  $FF  into  acceleration  timer  to 
cause  the  drive  to  be  turned  OFF  after 
6.4  seconds.    (255  interrupts  x   .025  sec) 


Drive  motor  and  head  stepper  control 
This  routine  is  the  last  part  of  the 
main  IRQ  routine.   As  a  result,    it  is 
executed  every  10  milliseconds.  Control 
is  transferred  to  the  routine  by  JMP 
instructions  at  the  conclusion  of  the 
main  disk  controller  routines.   The  RTS 
at  the  end  of  the  routine  transfers 
control  to  master  IRQ  routine  at  $FE7C. 

Move  value  in  the  6522 's  timer  #1  high 

latch   ($1C07)    into  timer  #l's  high  bit 

counter  ($1C05) 

Test  if  write  protect  status  has  changed 
by  loading  the  value  from  the  6522 's 
data  PORT  B($1C00),   ANDing  it  v;ith  $10 
and  comparing  it  to  the  value  in  LWPT 

($1E) .    If  not  equal,   set  flag  for  change 

in  status,  WPSW   ($1C)    to  $01. 

Test  whether  the  head  stepper  is  in 

(0  or  2)    or  out    (1)    of  phase.   The  head's 
stepper  motor  moves  half  a  track  at  a 
time.    If  the  head  is  halfway  between  two 
tracks,   the  value  stored  in  PHASE ($02FE) 
is  1.    If  the  value  in  PHASE  is  0,  branch 
to  END40    ($F9CB) .    If  PHASE   is   2,    set  it 
to  $00  and  branch  to  END40.    If  it  is  $01 
set  it  to  $02   &  branch  to  DOSTEP  ($FA2E) 
to  move  head  half  a  track. 
Check  CDRIVE    ($3E)    to  see  if  the  drive 
is  active.    If  not  active,   branch  to 
END3  3X  to  end  the  IRQ  routine. 
Load  DRVST    ($20)    to  see  if  the  motor  is 
ON  and  compare  value  with  $20.    If  there 
is  anything  to  do    (result  not  equal), 
then  branch  to  ENDIO. 
JMP  to  END 3 3    ($FABE)    to  end  IRQ. 


Something  doing,   so  decrement  the 
acceleration  timer,   ACLTIM    ($48) ,   and  if 
drive  is  not  yet  up  to  speed,   branch  to 
END3  0 . 

Since  drive  is  up  to  speed,   clear  the 
not-up-to-speed  bit    (bit  7)    of  the  drive 
status ,   DRVST    ($20) . 

AND  the  value  of  DRVST    ($20)   with  $10  to 
test  vjhether  a  time-out  has  occurred  and 
it  is  time  to  turn  off  the  drive  motor. 
If  not,   branch  to  END30    ($F9FA) . 
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END3  0 


$F9E8 

$F9F0 
$F9F4 

$F9FA 


INACI 


INACIO 


INAC20 


$FA05 


$FAOE 


$FA12 


$FA1C 


DOSTEP 


STPOUT 


$FA2E 
$FA32 


Turn  off  drive  motor  by  loading   .A  with 
the  value  of  DRVCNT ( $1C0 0 ) ,   ANDing  it 
with  $FB    (to  clear  bit  2)    and  storing 
the  result  back  in  DRVCNT, 
Store  $FF  in  CDRIVE    ($3E)    to  indicate 
there  is  no  currently  active  drive. 
Set  DRVST    ($20)    to  $0  to  indicate  that 
the  drive  is  switched  OFF.   Then  branch 
to  END33X    ($F9D6)    to  end   IRQ  routine. 
AND   .A    (contains  drive  status)   with  $40 
to  test  if  head  must  be  moved.    If  the 
result  is  0    (no  stepping  needed)    JMP  to 
END33    ($FABE)    to  end  the  IRQ  routine. 
If  stepping  is  required,   do  an  indirect 
JMP  via  NXTST    ($0062)    to  the  proper 
head  stepping  routine: 

SHORT  -  $FA3B  -  short  step  mode 
SETLE  -  $FA4E  -  settle  head  mode 
SSACL  -  $FA7B  -  accelerate  mode 
SSRUN  -  $FA97  -  fast  stepping  mode 
SSDEC  -  $FAA5  -  decelerate  mode 

Set  up  to  step  the  head: 

Load   .A  with  the  number  of  steps  to  move 
the  head  from  STEPS    ($4A).    If  negative 
0127),   find  the  absolute  value  using 
the  2's  complement. 

Compare  the  number  of  steps  to  the  value 
(usually  $C8)in  MINSTP    ($64)    to  see  if 
the  distance  is  big  enough  to  use  the 
fast  stepping  mode.    If  the  distance  is 
large  enough,   branch  to  INA20    ($FA1C) . 
Not  big  enough  so  set  up  the  pointer  in 
NXTST    ($62/3)    to  point  to  the  short  step 
routine,   SHORT    ($FA3B)    and  branch  to 
DOSTEP    ($FA2E) . 

Calculate  the  number  of  steps  to  do  in 
fast  stepping  mode  by  subtracting  the 
value  in  AS    ($5E)    from  .A  twice  (for 
acceleration  and  deceleration) .  Store 
the  result  in  RSTEPS    ($61) .   Then  move 
the  number  of  steps  needed  for  the  head 
to  accelerate  from  AS    ($5E)    to  ACLSTP 
($60) .   Finally  set  pointer  in  NXTST 
($62/3)    to  point  to  the  acceleration 
mode  routine  SSACL  ($FA7B) 
Load  value  from  STEPS    ($4A) .    If  positive 
(<127) ,   branch  to  STPIN    ($FA63)    to  step 
the  head  inwards. 

Increment  STEPS    ($4A)    to  reduce  number 
left  to  do  by  1,   load  .X  v/ith  the  value 
from  DSKCNT    ($1C00)    decrement  it  by  1, 
and  branch  to  STP    ($FA69) . 
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SHORT 


$FA3B 


SETLE 


$FA4E 


STPIN 


STP 


$FA63 
$FA69 


SSACL 


$FA7B 


SSAIO 
SSRUN 


$FA88 

$FA94 
$FA97 


Short  distance  head  stepping. 
Load  the  number  of  steps   left  to  do  from 
STEPS    ($4A) .    If  any  left,   branch  to 
DOSTEP    ($FA2E) .    If  not,    set  NXTST 
pointer ( $6 2/ 3 )    to  point  to  the  settle 
head  routine  SETLE    ($FA4E)    and  store  $05 
in  ACLSTP    ($60)    to  set  the  settle  time. 
Branch  to  END33    ($FABE)    to  end  IRQ. 
Settle  head  routine.   Decrement  ACLSTP 
($60)    and  if  non-zero,   brach  to  END33 
($FABE)    to  end   IRQ.    If  zero,   set  drive 
status,   DRVST    ($20),   to  indicate  that 
the  drive  is  available  for  use  by 
clearing  bit  6.   Set  NXTST  pointer ( $62/3 ) 
to  point  to  the  head  inactive  routine 
($FA0  5)    and  branch  to  END3  3    ($FABE) . 
Decrement  STEPS    ($4A)    to  reduce  number 
left  to  do  by  1,    load   .X  with  the  value 
from  DSKCNT ($1C00)    and  increment  it  by  1 
Transfer  the  value  in   .X  to   .A    (this  is 
DSKCNT+1  for  a  step  in  and  DSKCNT-1  for 
a  step  out) ,   AND  the  value  with  $03,  and 
store  it  in  TMP    ($4B)  .   Load  DSKCNT,  AND 
it  with  $FC  to  mask  off  bits  0   &   1 ,  OR 
it  with  TMP  to  set  the  new  values  for 
these  bits,  and  store  the  result  back  in 
DSKCNT.    JMP  to  END33    ($FABE)    to  end  IRQ. 


NOTE:    cycling  bits  0   &   1   of  DSKCNT 
($1C00)   will  move  the  head. 
00/01/10/11/00  will  move  head  in 
00/11/10/01/00  will  move  head  out 


Accelerate  head  routine. 

Set  carry  flag,    load  the  6522  Timerl  hi 
latch  T1HL2    ($1C07) ,   subtract  the  value 
in  AF    ($5F;   acceleration  factor),  and 
store  the  result  in  T1HC2    ($1C05;  timerl 
hi  counter) .   Decrement  the  number  of 
acceleration  steps   left  in  ACLSTP  ($60) 
and  if  any  steps   left,   branch  to  SSAIO. 
No  steps  left,   so  reset  the  number  of 
acceleration  steps   left  ACLSTP  ($60) 
using  the  value  in  AS    ($5E)    and  set  the 
NXTST  pointer    ($62/3)    to  point  to  the 
fast  stepping  routine,   SSRUN    ($FA97) . 
JMP  to  DOSTEP  ($FA2E) 


Fast  stepping  mode  routine. 
Decrement  number  of  steps  left  to  do  in 
RSTEPS    ($61)  .    If  any  left,   branch  to 
DOSTEP    ($FA2E) .   Since  none  left,   set  the 
NXTST  pointer    ($62/3)    to  point  to  the 
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SSDEC 


$FAA5 


END3  3 


$FABE 


FORMT 


$FAC7 


FORMT 


$FAC7 


$FAD7 

$FAE3 
$FAE8 


decelerate  routine  SSDEC    ($FAA5)  and 
branch  to  DOSTEP    ($FA2E) . 

Decelerate  head  routine. 
Load   .A  from  the  6522  Timerl  hi  latch 
T1HL2    ($1C07) ,   clear  the  carry  flag, 
add  the  acceleration  factor  AF    ($5F)  , 
and  store  the  result  in  T1HC2  ($1C05; 
timerl  hi  counter) .   Decrement  the  number 
of  deceleration  steps   left  ACLSTP  ($60) 
and  if  any  steps   left,   branch  to  SSAIO. 
Since  no  steps   left,   set  the  NXTST 
pointer    ($62/3)    to  point  to  the  settle 
routine,   SETLE    ($FA4E) .   Set  the  number 
of  acceleration  steps   left  to  $03  to 
allow  settling  time. 

Terminate  the  motor  and  stepper  control 
routine  by  clearing  bit  1  of  the  6522 's 
peripheral  control  register,  PCR2($1C0C) 
This  force  CA2   low  which  disables  the 
SO  line  to  the  6502.   Finally,   do  an  RTS 
to  transfer  control  back  to  the  main 
IRQ  routine  at  $FE7C. 

This  routine  is  used  to  format    (NEW)  a 
diskette.   The  code  is  executed  in  place 

(rather  than  moved  into  RAM  and  then 
executed  as  in  the  4040) .   The  IP  FORMAT 
routine    ($C8C6)    sets  up  a  JMP  $FAC7  at 
the  start  of  buffer  #0,   puts  an  EXECUTE 

($E0)  job  into  the  job  queue  at  $03,  and 
then  waits  for  the  job  to  be  completed. 

Load   .A  from  FTNUM    ($51)    to  check  if 
formatting  has  begun.    If  FTNUM>0,  the 
formatting  has  begun  so  branch  to  L213 
($FAF5).    If  not,   begin  formatting  by: 
Setting  DRVST($20)    to  $60    (head  is  now 
stepping) ,   storing  $01   into  DRVTRK  ($22) 
to  set  the  current  track  and  into  FTNUM 
($51;    format  begun  flag). 
Do  BUMP  to  track  1  by  stepping  head  out 
46  tracks.   Store  -92    (256-2*46)  into 
STEPS    ($4A)    and  clear  bits  0  &   1  of 
DSKCNT    ($1C00)    to  set  head  phase  to  00. 
Set  CNT    ($0620)    to  $0A  to  allow  up  to 
10  errors  before  abort. 

Set  NUM($0621/2)    to  4000    ($0FA0)    as  a 
first  guess  at  number  of  bytes  that  can 
be  recorded  on  half  a  track. 
Exit  with  a  JMP  to  END    ($F9  9C) 
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L213 


L214 


TOPP 


FWAIT 
FWAIT2 
FOOO 
FOOl 


$FAF5 


$FBOO 

$FBOC 
$FBOF 
$FB12 


$FB1A 
$FB1D 

$FB20 
$FB35 


$FB39 
$FB3E 
$FB43 
$F346 


On  re-entry   .A  holds  the  track  number 
(loaded  from  FTNUM) .   Compare  it  to  the 
track  in  HDRPNT($32).    If  they  match,  we 
are  on  the  correct  track  so  branch  to 
L214    ($FBOO) .    If  different,   put  the  .A 
value    (track  we  want)    into  HDRPNT  ($32) 
and  exit  with  a  JMP  to  END    ($F99C) . 
Test  bit  4  of  DSKCNT    ($1C00)    to  see  if 
write  protect  is  on.    If  1,   protect  is 
not  on  so  branch  to  TOPP    ($FBOC) .    If  0, 
load   .A  with  $08  to  indicate  a  WRITE 
PROTECT  error  &  JMP  to  FMTERR    ($FDD3) . 
JSR  to  SYNCLR    ($FDA3)    to  erase  the  track 
by  writing  28*256  SYNC  marks. 
JSR  to  WRTNUM    ($FDC3)    to  write  out  NUM 
($0621/22;   value   =   4000)    SYNC  marks. 
Store  a  non-sync  character    ($55)  into 
the  output  port  DATA2    ($1C01)    and  JSR  to 
WRTNUM    ($FDC3)    to  write  NUM  ($0621/2; 
value  =  4000)    non-sync  bytes. 

At  this  point  the  track  will  have  one 
area  that  contains  SYNC  and  another  area 
that  has  non-sync  characters   like  this: 
1111111100110011001100110011001111111 
SYNC         4000  non-sync  bytes  SYNC 
The  following  routines  time  the  SYNC  and 
non-sync  segments  to  determine  how  many 
characters  can  be  written  on  the  track. 
This  is  used  to  calculate  the  length  of 
the  gap  between  sectors  (inter-sector). 

JSR  to  KILL    ($FEOO)    to  kill  write  mode. 
JSR  to  SYNC    ($F556)    to  wait  for  the 
start  of  the  SYNC  section. 
Set  bit  6  of  the  6522 's  ACRl    ($180B)  to 
set  it  up  as  a  free  running  100  micro- 
second timer. 

Set   .X  and   .Y  to  $00.   They  will  hold  the 

timer  count.    .X=least  significant  byte 

.Y=most  significant  bit 

Loop  to  wait  for  SYNC  area 

Loop  to  wait  for  not-sync  area 

Reset   interrupt  flags  to  start,  the  timer 

Loop  to  time  the  non-sync  area. 

Check  if  SYNC  here  yet.    If  here,  branch 

to  F005    ($FB5C) .    If  no  SYNC  yet,  check 

IFRl    ($1804)    to  see  if  timer  has  timed 

out.    If  time  not  up  yet,   branch  back  to 

FOOl    ($FB46) .    If  time  is  up,  increment 

.X  by  1    (and   .Y  if   .X=0)    and  branch  back 

to  FOOO    ($FB43)    to  reset  the  timer.  If 

.Y   is  0,  we  have  a  count  of  65535  which 
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F005 


F006 
F007 


$FB5C 


$FB64 
$FB67 


F009 


$FB7D 


COUNT 


CNTIO 


$FBB6 
$FBBB 


CNT20 
DS08 


$FBCE 
$FBEO 


MAKIO 


$FC36 
$FC3F 


means  we  can't  find  a  sync  mark  so  abort 
by  loading   .A  with  $02  and  JMP  to  FMTERR 
Found  a  SYNC  so  store  the  non-sync  times 
in  T2    ($71/2)  .   Reset   .X  and   .Y  to  $00 
and  begin  timing  the  SYNC  area. 
Reset  interrupt  flags  to  start  the  timer 
Loop  to  time  the  SYNC  area: 
Check  if  not-sync  here  yet.    If  here,  go 
to  F009    ($FB7D) .    If  still  have  a  SYNC, 
check  IFRl    ($1804)    to  see  if  timer  has 
timed  out.    If  not  time  yet,  branch  back 
to  F007    ($FB67) ,    If  time  up,  increment 
.X  by  1    (and   .Y  if   .X=0)    and  loop  back 
to  F006    ($FB64)    to  reset  the  timer.  If 
•Y  is  0,  we  have  a  count  of  65535  which 
means  we  can't  find  no-SYNC.   So  abort: 
load   .A  with  a  $02  and  JMP  to  FMTERR 
Found  non-sync.   Calculate  the  difference 
between  the  SYNC  and  non-sync  times.  If 
the  difference  is   less  than  4,   branch  to 
COUNT    ($FBB6) .    If  the  difference  is  more 
than  4,   make  NUM    ($0261/2)    the  average 
of  the  two  times  and  branch  to  TOPP 
($FBOC)    to  try  again. 

Set  .X  and  .Y  to  $00  to  prepare  to  count 
the  number  of  characters  in  the  non-sync 
area . 

Test  bit  7  of  DSKCNT    ($1C00)    to  see  if 
SYNC  is  here  yet.    If  SYNC  here,  branch 
to  CNT20    ($FBCE) .    If  not,    test  the  timer 
If  not  time,   branch  back  to  CNTIO.  If 
time  for  one  character  is  up,  increment 
.X    (and    .Y  if  needed) ,   clear  the  timer 
flag    (.V)    and  branch  back  to  CNTIO.  If 
.Y=0  we  have  a  count  of  65535  so  abort: 
load   .A  with  $03   &  JMP  to  FMTERR  ($FDD3) 
Store  the  byte  count    (count*2)    in  TRAL 
($0624/5)    and  turn  off  the  6522's  timer 
Calculate  the  total  number  of  bytes  we 
need  to  record  on  this  track: 

(282  chr/sect  x  5/4  x  #sect) 
Subtract  this  from  the  total  we  found 
and  divide  by  the  number  of  sectors  to 
get  the  size  of  the  gap  between  sectors. 
If  the  calculated  gap  is   less  than  4,  it 
is  too  small  so  load   .A  with  $05  and  JMP 
to  FMTERR    ($FDD3) .    If   it   is  big  enough, 
store  inter-sector  gap  in  DTRCK  ($0626). 
Set  sector  counter  SECT    ($0628)    to  $00. 
Loop  to  create  sector  header  images  in 
buffer  0    ($0300+)    .Y  is  the  pointer 
into  the  buffer    (0   for  sect  #1)  . 
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$FC3F       Move  sector  ID  code  from  HBID   ($39)  to 

$0300+Y    ($0300  for  #1) . 
$FC44       Increment   .Y  twice  to  skip  the  checksum 
and  move  sector  number  from  SECT  ($0628) 
to  $0300+Y    ($0302  for  sector  #1). 
$FC4C       Increment   .Y  and  move  the  track  number 
from  FTNUM    ($51)    to  $0300+Y    ($0303  for 
sector  #1) 

$FC52       Increment   .Y  and  move  ID2  from  DSKID+1 

($13)    to  $0300+Y    ($0304  for  sector  #1) . 
$FC58       Increment   .Y  and  move  IDl  from  DSKID 

($12)    to  $0300+Y    ($0305  for  sector  #1). 
$FC5E       Increment   .Y  and  store  $0F  in  $0300+Y 

($0306  for  #1)    as  off  byte. 
$FC64       Increment   .Y  and  store  $0F  in  $0300+Y 

($0307  for  #1)    as  off  byte. 
$FC68       Increment   .Y,   calculate  the  header  blk 
checksum  and  store  it  in  $02F9+Y 
($0302  for  sector  #1) 
$FC7A       Increment  SECT    ($0628)    and  compare  it  to 

number  of  sectors  on  track  SECTR  ($43) 
$FC84       If  done  all  images,   save  the  number  of 
sectors  on  this  track  onto  the  stack. 
Increment   .X    (becomes  $01)    and  transfer 
it  to   .A    (dummy  data  character) . 

NOTE:    .X  should  really  be  $00.   Since  it 
is  $01,   all  the  data  blocks  on  a 
diskette  formatted  on  a  1541  drive 
have  1  garbage  character  followed 
by  255  $01 's  rather  than  256  $00' s 


CRTDAT 


$FC86 
$FC8E 

$FC95 


$FC9E 


Loop  to  put  255  dummy  data  bytes    ($01 's) 
into  data  buffer  #2  ($0500+) 
Set  the  buffer  pointer  BUFPNT    ($30/1)  to 
point  to  the  header  block  images  ($0300) 
and  JSR  to  FBTOG($FE30)    to  convert  the 
header  images  to  a  GCR  write  image  with 
no  header  block  ID  code. 
Pull   #  of  sectors  from  stack,  transfer 
the  value  to   .Y,   and  JSR  to  M0VUP($FDE5) 
to  move  the  GCR  header  image  stored  in 
in  buffer  #0  69  bytes  up  in  memory.  Then 
JSR  to  MOVOVR    ($FDF5)    to  move  the  6  9 
header  image  bytes  from  the  overflow 
buffer  into  the   low  end  of  buffer  #0. 
Set  the  buffer  pointer  BUFPNT    ($30/1)  to 
point  to  the  dummy  data  block,   JSR  to 
CHKBLK ($F5E9)    to  calculate  the  data  blk 
checksum,   store  it  in  CHKSUM,   and  JSR  to 
BINGCR ($F78F)    to  convert  the  dummy  data 
block  into  its  GCR  write  image. 
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WRTSYN 
WRTSIO 

WRTS20 
WRTS3  0 

DBSYNC 

WRTS4  0 
WRTS50 

WGP2 


$FCAA 


$FCAE 
$FCB1 


$FCB8 
$FCBE 


$FCC2 
$FCCF 


$FCD1 
$FCDC 


$FCEO 
$FCE9 


$FCEB 
$FCF9 
$FD04 
$FD09 
$FD12 

$FD19 


COMP 


$FD27 
$FD2C 


Begin  formatting  the  track  now! 

Set  the  pointer  to  the  header  GCR  image 
HDRPNT    ($32)    to  $00  so  it  points  to  the 
start  of  the  first  header  image. 
JSR  to  CLEAR   ($FEGE)    to  wipe  the  track. 
Store  $FF  in  P0RT2    ($lC01)^to  be  ready 
to  write  a  sync  character.  Load  .X  with 
$05    (5  SYNC'S  coming  up!) 
Write  out  5  sync  marks 

Initialize   .X  to  $0A    (output  10  bytes) 
and  set   .Y  with  the  value  from  HDRPNT 
($32)   so  it  points  to  the  start  of  the 
header  GCR  image. 

Write  out  the  10  header  characters 
Load    .X  with  $08    (HARD  SET  VALUE!) 
NOTE:   This  means  you  can  not  easily 
change  the  header  gap  size! 
Loop  to  output  eight  $55  bytes  to  form 
the  header  gap   (gapl) . 

Store  $FF  in  P0RT2    ($1C01)    to  be  ready 
to  write  a  sync  mark.   Load   .X  with  $05 
(5  sync's  coming  up!) 
Write  out  5  sync  marks 
Initialize   .X  to  $BB  to  point  to  the 
first  byte  of  the  overflow  buffer  (the 
start  of  the  dummy  data  block) 
Loop  to  write  out  the  69  GCR  bytes  in 
the  overflow  buffer 

Loop  to  write  out  the  256  GCR  bytes  in 
data  buffer  #2  ($0500+) 
Load   .A  with  $55  and   .X  with  the  tail 
(inter-sector)    gap  from  DTRCK  ($0626) 
Loop  to  write   .X  $55  characters  to 
form  the  tail    (inter-sector)  gap. 
Advance  the  header  pointer  HDRPNT ( $3 2/ 3 ) 
by  10  so  it  points  to  the  start  of  the 
next  header  image. 

Decrement  the  sector  counter  SECT  ($0628) 
by  1  and  test  to  see  if  any  more  sectors 
to  do.    If  more,   branch  back  to  WRTSYN 
to  do  the  next  sector.    If  no  more,  wait 
for  the  last  byte  to  be  written  out  and 
then  JSR  to  KILL   ($FEOO)    to  switch  to 
read  mode. 

Formatting  done.   Verify  it! 

Set  TRYS    ($0623)    to  $C8  to  limit  the 
number  of  attempts  to  verify  to  200. 
Set  BUFPNT    ($30/1)    to  point  to  the  start 
of  the  headers  in  buffer  #0    ($0300)  and 
set  SECT    ($0628)   with  the  #  of  sectors 
on  this  track  from  SECTR   ($43) . 
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CMPRIO 


CMPR15 


CMPR20 


$FD39 

$FD40 

$FD4E 
$FD55 
$FD58 


TSTDAT 


TST05 


TSTIO 


$FD62 

$FD67 
$FD75 
$FD77 
$FD86 


FMTEND 


$FD96 


SYNCLR 


$FDA3 


JSR  to  SYNC($F556)    to  wait  for  a  SYNC 
mark.   Once  found,   set   .X  to  $0A  (there 
are  9  header  characters  to  read)    and  .Y 
$00    (point  to  character  in  header  image) 
Loop  to  read  header  bytes  and  compare 
them  to  the  image  in  the  buffer.   If  any 
byte  doesn't  match,   branch  to  CMPR20. 
Header  reads  back  OK  so  add  10  to  BUFPNT 
($30)    so  it  points  to  next  header  image. 
JMP  to  TSTDAT  ($FD62) 

Bad  verify.   Decrement  TRYS    ($0623) .  If 
more  attempts   left,   branch  back  to  COMP 
($FD2C)    to  try  again.    If  we  have  tried 
200  times,   abort:    load   .A  with  $06  and 
JMP  to  FMTERR  ($FDD3) 

Header  OK  so  check  the  data  block. 
JSR  to  SYNC    ($F5  56)    to  wait  for  the  data 
block  SYNC  mark.   Once  found,   set   .Y  to 
$BB  to  point  to  the  start  of  the  data 
block  image  in  the  overflow  buffer 
Loop  to  read  and  verify  the  69  GCR  bytes 
in  the  overflow  buffer.    If  no  match, 
branch  to  CMPR20    ($FD58)    and  try  again. 
Overflow  buffer  OK  so  set   .X  to  $FC 
(255-3;   don't  bother  checking  the  OFF 
bytes  at  the  end) . 

Loop  to  read  and  verify  the  253  GCR 
bytes  in  data  buffer  #3.    If  no  match, 
branch  to  CMPR20    ($FD58)    and  try  again. 
Decrement  the  sector  counter  in  SECT 
($0628)    by  1  and  test  to  see  if  any  more 
to  do.    If  more,   branch  back  to  CMPRIO  to 
do  next  sector.    If  no  more,  increment 
the  track  counter  FTNUM    ($51)    and  test 
if  there  are  any  more  tracks  to  do.  If 
all  done,   branch  to  FMTEND    ($FD96) .  If 
more  to  do,   JMP  to  END    ($F99C)    to  step 
the  head  to  the  next  track. 

Set  the  track  counter,   FTNUM   ($51)  to 
$FF  and  the  GCRFLG    ($50)    to  0.   To  flag 
a  successful  completion  load   .A  with  $01 
and  JMP  to  ERRR  ($F969). 

Formatting  and  Verification  Completed! 

Formatting  Subroutines 

Wipe  track  by  writing  40*256  SYNC  marks 
Set  bits  6  &   7  of  the  6522 's  peripheral 
control  register  PCR2    ($1C0C) .  This 
latches  the  signal  on  the  CB2  line. 
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SYCIO 


WRTNUM 


WRTNIO 


FMTERR 


FMTEIO 


MOVUP 


MOVOVR 


KILL 


CLEAR 


$FDAD 

$FDB5 
$FDB9 
$FDC2 

$FDC3 
$FDC9 

$FDD2 

$FDD3 

$FDDB 

$FDE5 
$FDEE 


$FDF5 
$FDF7 


$FEOO 


$FEOE 
$FE18 

$FE22 


Store  $FF  in  the  data  direction  register 
DDRA2    ($1C03)    to  make  PORT  A  an  output 
port  and  put  $FF  in  the  data  port  DATA2 
($1C01)    to  produce  SYNC  characters. 
Initialize   .X  to  $28    (hi  counter)  and 
.Y  to  $00    do  counter)  . 
Loop  to  write  out  40*256  SYNC  marks 
using  .X  &   .Y  as  counters 

RTS     -*-  WARNING  WRITE  MODE  LEFT  ON  -*- 


Write  out  NUM    ($0621/2)  bytes 

Load   .X  with  the  LSB  and   .Y  with  the 

MSB  of  NUM    ($0621/2)  . 

Loop  to  v/rite  out  what  ever  is  in  the 
data  port  DATA2    ($1C03)   NUM  times  using 
.X  and   .Y  as  counters 
RTS 


Handles  format  errors 

Decrement  the  retry  counter  CNT  ($0620) 
and,    if  no  tries   left,   branch  to  FMTEIO. 
If  any  left,   JMP  to  END($F99C)    to  do  any 
stepping  required  and  try  again. 
Set  the  track  counter  FTNUM    ($51)    to  $FF 
and  the  GCRFLG    ($50)    to  0  and  JMP  to 
ERRR    ($F969)  , 


Move   .Y  bytes   in  buffer  #0  up  69  bytes 
Loop  to  move   .Y  characters  in  buffer  #0 
($0300+)    up  69  memory  locations  in  RAM. 
Move  byte  from  $0300  to  $0345.  RTS 

Move  69  bytes  from  overflow  buffer  into 
the  bottom  of  the  data  buffer  pointed 
to  by  BUFPNT  ($30/1) 
Load   .Y  with  $44  (68) 

Loop  to  move  69  bytes  from  $01BB+  into 
the  data  buffer.  RTS 


Disable  write  mode 

Set  bits  5,   6  and  7  of  the  6522 's  PCR2 
($1C0C)    to  set  CB2  high.   Store  0   in  the 
data  direction  register  DDRA2  ($1C03) 
to  make  PORT  A  an  input  port.  RTS 


Wipe  track  with  non-sync  characters 
Clear    (zero)    bit  5  of  the  6522 's  PCR2 
($1C0C) .   This  forces  CB2  low. 
Store  $FF  in  the  data  direction  register 
DDRA2    ($1C03)    to  set  output  mode  and  put 
$55  in  the  data  port  DATA2    ($1C01)  to 
write  non-sync  characters. 
Initialize   .X  to  $28    (hi  counter)  and 
•Y  to  $00    ( lo  counter) . 
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CLERIO 


FBTOG 


FBGIO 


$FE26 
$FE2F 
$FE30 
$FE30 

$FE38 

$FE3C 

$FE44 


Loop  to  write  out  40*256  non-sync 
characters  using   .X  &    .Y  as  counters. 
RTS     -*-  WARNING  WRITE  MODE  LEFT  ON  -*■ 


Convert  header  images  in  buffer  #0  into 
GCR  form  without  the  header  ID  code. 
Zero  the  low  byte  of  the  buffer  pointers 
pointers  BUFPNT($31)    and  SAVPNT  ($2E) 
and  the  byte  counter  BYTCNT    ($36)  . 
Set  the  GCR  pointer  GCRPNT    ($34)    to  $BB 
so  it  points  to  the  first  character  in 
the  overflow  buffer    ($01BB+) . 
Save  the  hi  byte  of  the  buffer  pointer 
BUFPNT    ($31)    into  SAVPNT    ($2F)    and  then 
set  BUFPNT  to  $01  to  point  to  the  over- 
flow buffer. 

Loop  to  move  4  bytes  at  a  time  into  the 
staging  area  $52-55  and  then  do  a  JSR 
to  PUT4BG    ($F6D0)    to  convert  them  into 
five  GCR  bytes  and  store  them  in  the 
overflow  or  data  buffer.   Terminate  the 
routine  with  a  JMP  to  PUT4BG  to  convert 
and  store  the  last  four. 


MAIN  SYSTEM   IRQ  ROUTINE    (IRQ  VECTOR  POINTS  HERE) 


SYSIRQ 


IRQIO 


IRQ20 


$FE67 


$FE67 
$FE6C 


$FE76 


$FE7F 


IRQ's  are  generated  in  two  ways: 

1)  by  an  ATN  signal   from  the  VIC-20 
or  the  C-64  on  the  serial  bus,  or 

2)  by  a  time  out  of  the  6  522 's  timer 
This  happens  every  10  milliseconds 

This  routine  tests  for  the  source  of  the 
IRQ  signal  and  branches  to  the  correct 
ROM  routine. 


Save   .A,    .X,   and   .Y  on  the  stack 
Test  if   IRQ  caused  by  an  ATN  signal  on 
the  serial  bus  by  checking  bit  1  of  the 
interrupt  flag  register  of  the  6522  that 
handles  the  bus   IFRl    ($180D) .    If  this 
bit  is  not  set    (1) ,   there  was  no  ATN 
signal   so  branch  to  IRQIO    ($FE76) .    If  it 
is  set,  JMP  to  the  bus  handling  routine 
ATNIRQ    ($E85F) . 

Test  if  the  6522   timer  has  timed  out  by 
testing  bit  7  of  the  interrupt  flag 
register  of  the  6522  that  serves  as  a 
disk  controller  IFR2    ($1C0D) .    If  the  bit 
is  not  set,   branch  to  IRQ20    ($FE7F) .  If 
it  is  set,   do  a  JSR  to  the  floppy  disk 
controller  routines,  LCC($F2B0). 
Pull    .A,    ,X,   and   .Y  from  the  stack  and 
do  an  RTI. 
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$FE85 
$FE86 
$FE87 
$FE88 


$12 
$04 
$04 
$90 


Directory  track  number  (18) 
Number  of  bytes/ track  in  BAM 
Offset  of  BAM  in  the  sector 
Offset  of  disk  name  in  BAM  sector 


Command  Search  Table 

$FE8  9 

$56 

V  = 

Validate  or  collect  disk 

$FE8A 

$49 

I  = 

Initialize  BAM  & 

directory 

$FE8B 

$44 

D  = 

Dupl icate 

or  backup  disk  (N.A.) 

$FE8C 

$4D 

M  = 

Memory  operation 

(M-R,M-W,M-E) 

$FE8D 

$42 

B  = 

Block  operation 

(B-R,B-A,B-VJ,etc) 

$FE8E 

$55 

U  = 

User  jump 

commands    (except  U+  &  U-) 

$FE8F 

$50 

P  = 

Position 

for  REL  files) 

$FE90 

$26 

&  = 

Utility  loader 

$FE91 

$43 

c  = 

Copy  file 

(copy 

disk  N.A.   on  1541) 

$FE92 

$52 

R  = 

Rename  file 

$FE93 

$53 

S  = 

Scratch  file 

$FE94 

$4E 

N  = 

Nev/  or  format  a 

diskette 

(Lo  Byte) 

(Hi 

Byte)  Command 

Jump  Table 

$FE95 

$84 

$FEA1 

$ED 

V  = 

Validate 

$FE96 

$05 

$FEA2 

$D0 

I  = 

Initialize  BAM 

$FE97 

$C1 

$FEA3 

$C8 

D  = 

Duplicate  (N.A.) 

$FE98 

$F8 

$FEA4 

$CA 

M  = 

Memory  operation 

$FE99 

$1B 

$FEA5 

$CC 

B  = 

Block  operation 

$FE9A 

$5C 

$FEA6 

$CB 

U  = 

User  jump  commands 

$FE9B 

$07 

$FEA7 

$E2 

P  = 

Position    (for  REL) 

$FE9C 

$A3 

$FEA8 

$E7 

&  = 

Utility  loader 

$FE9D 

$F0 

$FEA9 

$C8 

c  = 

Copy  file 

$FE9E 

$88 

$FEAA 

$CA 

R  = 

Rename  file 

$FE9F 

$23 

$FEAB 

$C8 

S  = 

Scratch  file 

$FEAO 

$0D 

$FEAC 

$EE 

N  = 

New  a  diskette 

STRUCTURE 

IMAGES   FOR  COMMANDS 

$FEAD 

$51 

%01010001     disk  copy 

$FEAE 

$DD 

%11011101     rename  a  file    (not  parsed) 

$FEAF 

$1C 

%00011100     scratch  a 

file   (not  parsed) 

$FEBO 

$9E 

%10011110  new 

a  diskette    (not  parsed) 

$FEB1 

$1C 

%00011100     load  a  file 

PGDRPGDR       Not  greater  than  one  file 

FSl 

FS2         Not  default  drive (s) 

Required 

filename 

MODE  TABLE  (R/W/A/M) 

$FEB2 

$52 

R  = 

Read  mode 

$FEB3 

$57 

W  = 

Write  mode 

$FEB4 

$41 

A  = 

Append 

$FEB5 

$4D 

M  = 

Modify    (read  improperly  closed  file) 

433 


ADDRESS 


VALUE 
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(1st  Byte) 


(Hi  Byte)       File  type  table 


$FEB6 

$44 

D 

$FEBB 

$44 

D 

$FECO 

$45 

E 

$FEC5 

$4C 

L 

DEL 

$FEB7 

$53 

S 

$FEBC 

$53 

S 

$FEC1 

$45 

E 

$FEC6 

$51 

Q 

SEQ 

$FEB8 

$50 

P 

$FEBD 

$50 

P 

$FEC2 

$52 

R 

$FEC7 

$47 

G 

PRC 

$FE39 

$55 

u 

$FEBE 

$55 

U 

$FEC3 

$53 

S 

$FEC8 

$52 

R 

USR 

$FEBA 

$4C 

L 

$FEBF 

$52 

R 

$FEC4 

$45 

E 

$FEC9 

$4C 

L 

REL 

$FECA 

$08 

LED  mask  for  drive  0 

$FECB 

$00 

LED  mask  for  drive  1    (N.A,   on  1541) 

ERROR  FLAG  VARIABLES   FOR  USE  BY  BIT 

$FECC 

$00 

EROO 

$FECD 

$3F 

ERO 

$FECE 

$7F 

ERl 

$FECF 

$BF 

ER2 

$FEDO 

$FF 

ER3 

NUMBER  OF   SECTORS / TRACK   IN  EACH  ZONE 

$FED1 

$11 

17  sectors/track  in  zone  4  (31-35) 

$FED2 

$12 

18  sectors/ track  in  zone  3  (25-30) 

$FED3 

$13 

19   sectors/ track  in  zone  2  (18-24) 

$FED4 

$15 

21  sectors / track  in  zone  1  (01-17) 

$FED5 

$41 

DOS  version  number  (65) 

$FED6 

$04 

Number  of  different  zones 

ZONE  BOUNDARIES    (HIGHEST  TRACK   #    +  1) 

$FED7 

$24 

Track  #36  -  end  of  zone  4  (31-35) 

$FED8 

$1F 

Track  #31  -  end  of  zone  3  (25-30) 

$FED9 

$19 

Track  #25  -  end  of  zone  2  (18-24) 

$FEDA 

$12 

Track  #18  -  end  of  zone  1  (01-17) 

OFFSETS  FOR  ERROR  RECOVERY 

$FEDB 

$01 

$FEDC 

$FF 

$FEDD 

$FF 

$FEDE 

$01 

$FEDF 

$00 

HI   BYTE  OF  POINTERS  TO  DATA  BUFFERS 

$FEEO 

$03 

Data  buffer  #0  ($0300-03FF) 

$FEE1 

$04 

Data  buffer  #1  ($0400-04FF) 

$FEE2 

$05 

Data  buffer  #2  ($0500-05FF) 

$FEE3 

$06 

Data  buffer  #3  ($0600-06FF) 

$FEE4 

$07 

Data  buffer  #4  ($0700-07FF) 

$FEE5 

$07 

Data  buffer  #5  ($0700-07FF) 

$FEE5 

$FD 

Checksum  for  $E  and  $F  ROMs 
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ADDRESS 


VALUE 


MISCELLANEOUS  CONSTANTS   &   TABLES   IN  ROM 


NMI   VECTOR  POINTS  HERE 


$FEE7 

NMI 

Do  indirect  jump  to  the  address  stored 
in  VNMI    ($0055) .   This  vector  points  to 
XXXXXX  ($XXXX) 

PATCH  FOR  POWER-ON  ERRORS 

$FEEA 

PEA7A 

Store  the  value  that  is  in   .A  on  entry 
into  the  6522 's  data  port  2,  LEDPRT 
($1C00;   also  called  DSKCNT)    and  in  the 
data  direction  register,   LEDOUT  ($1C02; 
also  called  DDRB2).   Exit  with  a  JMP  to 
REA7D    ($EA7D)    to  return  to  the  LED  blink 
routine . 

PATCH  FOR   1541   DISK  WITH  SLOW  SERIAL  RECEIVE 

$FEF3 

SLOWD 

Produce  a  40  microseconds  delay  with  a 
loop  that  counts   .X  down  from  5  to  1. 
Exit  with  an  RTS. 

$FEFB 
$FEFE 

JSR  $E9AE                 unused  junk 
JMP  $E99C                 unused  junk 

PATCH  TO  NMI   ROUTINE  TO  CHECK  FOR  U+   AND  U-  COMMANDS 

$FF01 
$FFOD 

NNMI 
NNMIIO 

Load  .A  with  the  second  character  in  the 
command  buffer  CMDBUF+2    ($0202) .  Compare 
it  with  "-"  and,    if  equal,   branch  to 
NNMIIO    ($FFOD) .    If  not  a  "-" ,  subtract 
a  "+"  from  it.   If  not  zero,  command  must 
be  a  real  UI  command  so  branch  back  to 
NMI    ($FEE7)    to  do  normal  NMI. 
Store   .A   (contains  zero  or  a  "-")  into 
DRVTRK+1    ($23)    and  do  an  RTS  to  continue 

$FF10   -   $FFE6  UNUSED  GARBAGE 

TABLE  OF  JUMP  VECTORS  TO  ROUTINES      (LO  BYTE/HI  BYTE) 


$FFE6 

$C6/$C8 

FORMAT  ROM  routine 

$C8C6 

$FFE8 

$8F/$F9 

TRNOFF  ROM  routine 

$F98F 

$FFEA 

$5F/$CD 

UBLKRD  ROM  routine 

$CD5F 

$FFEC 

$97/$CD 

UBLKWT  ROM  routine 

$CD97 

$FFEE 

$00/$05 

Link  to  buffer  #2 

$0500 

$FFFO 

$03/$05 

Link  to  buffer  #2 

$0503 

$FFF2 

$06/$05 

Link  to  buffer  #2 

$0506 

$FFF4 

$09/$05 

Link  to  buffer  #2 

$0509 

$FFF6 

$0C/$05 

Link  to  buffer  #2 

$050C 

$FFF8 

$0F/$05 

Link  to  buffer  #2 

$050F 

$FFFA 

$01/$FF 

NNMI  ROM  routine 

$FF01 

$FFFC 

$AO/$EA 

DSKINT  ROM  routine 

$EAAO 

$FFFE 

$67/$FE 

SYSIRQ  ROM  routine 

$FE67 
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APPENDIX  C 

PROGRAM  LISTIIMGS 
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NOTE:  Lines  830  and  930  contain  a  special  character  #166.  This  character  can  be  typed 
by  holding  down  the  Commodore  logo  key  in  the  lower  left  comer  and  pressing  the  +  key. 


100  REM  DISPLAY  A  BLOCK  AVAILABILITY  MAP 

-  1541 
110  DIMN*(16) 

120  DEFFNS  ( I )  =2'MS-INT  (S/8)  *8)  AND  <B  ( INT  ( 
S/8) ) ) 

130  PRINT"  <:CLR3  DISPLAY  A  BAM  -  1541" 

140  PRINT"  {:D0WN>  INSERT  DISKETTE   IN  DRIVE 

150  PRINT"  tDOWN>PRESS  <:RVS>RETURN<:R0FF> 
TO  CONTINUE" 

1 60  GETC* : I FC*= " " THEN 1 60 

170  IFC*<>CHR*(13)G0T0160 

180  PR I NT "OK" 

190  0PEN15,8, 15 

200  PRINT#15, "10" 

210  INPUT#15,EN*,EM*,ET*,ES* 

220   I FEN*= " 00 " OREN*= " 22 " OREN*= " 23 " G0T026 

O 

230  PR I NT " { DOWN> " EN* " ,    " EM* " , " ET* " , " ES* 
240  CLOSE 15 
250  END 

260  0PEN2,8,2, "#" 

270  PRINT#15, "Ui";2;o; 18;0 

280   INPUT#15,EN*, EM*,ET*,ES* 

290  REM  GET  DOS 

300  PRINT#15, "B-P";2;2 

310  GET#2,B* 

320   I FB*= " " THENB*=CHR* ( 0 ) 
330  D03=ASC<B*) 

340   IFD0S=65THEND0S*="V2. 6" : G0T0380 

350   I FDOS= 1 THENDOS*= " V 1 . 2 " : G0T0380 

360  DOS*="V?-?" 

370  REM  GET  BLOCKS  FREE 

380  BF=0 

390  B=4 

400  F0RI=1T035 
410  IFI=18THENI=I+l:B=B+4 
420  PRINT#15, "B-P";2;B 
430  GET#2,B* 

440   I FB*= " " THENB*=CHR* ( O ) 
450  A=ASC(B*) 
460  BF=BF+A 
470  B=B+4 
480  NEXT I 

490  REM  GET  DISK  NAME 
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5O0  PR I NT# 1 5 , " B-P " ; 2 ; 1 44 
510  F0RI=1T016 
520  GQSUB1140 
530  N*(I)=CHR*(A) 
540  NEXT I 

550  REM  BET  COSMETIC  ID 
560  ID*="" 

570  PRINT#15, "B-P";2; 162 

580  FQRI=1T02 

590  BQSUB1140 

600   ID*=ID*+CHR* <A) 

610  NEXTI 

620  PRINT"  tCLRD  <:RVS> TRACK {:RQFF>  11 
1 1 1 1 1 1 1 12222222222333333" 

630  PRINT"  123456789012345678901234567 
89012345" 

640  PRINT"  {:rvs>s<:roff>o 

"N*(l) ; 
650  PRINT"  CRVB3E<:R0FF3  1 

"N*(2) ; 

660  PRINT"  {:rvs>c<:roff>2 

"N*(3) ; 
670  PRINT"  {:rvs>t<:roff>3 

"N*<4) ; 
680  PRINT" <:rvs>o{:roff>4 

"N*(5) ; 
690  PRINT"  {:rvs>R{:roff>5 

"N*(6) ; 

700  PRINT"  6 

"N*  <7) ; 
710  PRINT"  7 

"N*  <8) ; 
720  PRINT"  8 

"N*<9) ; 
730  PRINT"  9 

"N*<10) ; 
740  PRINT" 10 

"N*<11) ; 
750  PRINT" 11 

"N*(12) ; 
760  PRINT" 12 

"N*<13) ; 
770  PRINT" 13 

"N* (14) ; 
780  PRINT" 14 

"N*<15) ; 
790  PRINT" 15 

"N*<16) ; 
800  PRINT" 16" 
810  PRINT" 17" 
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820  PRINT" 18 

";DOS*;"  ";left*<id*, 1) ; 

830  PRINT" 19  {R 
VS>    {R0FF>0R{#166>=EMPTY   "; RIGHT* ( ID*, 1 ) 

840  PR I NT "20 

850  BF*=RIGHT*("  "+RIGHT* (STR* (BF) , LEN ( 
STR*(BF) )-l)  ,3) 

860  IFBF=1THENPRINT"  ";BF*;"  BLOCK  FREE" 
: G0T0880 

870  PRINTBF*;"   BLOCKS  FREE" 
880  A*=". " 

890  CR*=" {RIGHT  35> " 
900  PRINT#15, "B-P";2;4 
910  F0RT=1T035 

920  IFT/2<>INT<T/2)THENF*="<:RVS>  <:roff>" 

: G0T0940 

930  F*="{#166>" 

940  GET#2,B* 

950  F0RI=0T02 

960  GET#2,B* 

970  IFB*=""THENB*=CHR*(0) 
980  B<I)=ASC(B*) 
990  NEXTI 

1000  PRINT"  <:H0ME>  {DOWN  2><:right  2>";LEFT 
*(CR*,T) ; 

1010  NS=20+2* (T>17) + (T>24) + (T>30) 
1020  F0RS=0T0NS 

1 030   I FFNS ( S ) =OTHENPR I NT A* ; : GOTO 1 050 

1040  PRINTF*; 

1050  PRINT"  {down><:left>"; 

1060  NEXTS 

1070  NEXTT 

1080  PRINT"  {  HOME  ><:  DOWN  22>"; 
109O  CL0SE2 

1100  INPUT#15,EN*,EM<i,ET*,ES* 
1110  CL0SE15 
1120  END 

1130  REM  GET  A  BYTE 

1140  GET#2,B* 

1 1 50   I FB*= " " THENB*=CHR*  < O ) 

1160  A=ASC(B*) 

1170  IFA>127THENA=A-128 

1180  IFA<320RA>95THENA=63 

1190  IFA=34THENA=63 

1200  RETURN 
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100  REM  VIRTUAL  DIRECTORY  -  1541 
110  CLR 

120  H*=" 01 23456789 ABCDEF" 
130  FORI=OT05 
140  READFT*(I) 
150  NEXTI 

160  PRINT" tCLRJ VIRTUAL  DIRECTORY  -  1541" 

170  PRINT"  <:D0WN>  INSERT  DISKETTE   IN  DRIVE 

180  PRINT"  <:D0WNJ PRESS   <:RVS> RETURN <:R0FF> 
TO  CONTINUE" 

1 90  GETC* : I FC* = " " THEN 1 90 

200  IFC*<>CHR*(13)G0T0190 

210  PRINT"OK" 

220  0PEN15,8, 15 

230  PRINT#i5, "10" 

240  INPUT#15,EN*,EM*,ET*,ES* 

250  IFEN«="00"G0T0300 

260  PRINT" tDOWNJ "EN*",    "EM*" , "ET*" , "ES* 
270  CLOSE 15 
280  END 

290  REM  FORMATTING  ID 

300  PR I NT# 1 5 , " M-R " CHR* ( 22 ) CHR* ( O ) CHR* ( 2 ) 

310  GET#15,B* 

320  G0SUB1370 

330  FI*=FI*+CHR*(A) 

340  GET#15,B* 

350  G0SUB1370 

360  FI*=FI*+CHR*(A) 

370  REM  BLOCKS  FREE 

380  PR I NT# 15," M-R " CHR* ( 250 ) CHR* ( 2 ) CHR* ( 3 
) 

390  GET#15,B* 

400  L=ASC ( B*+CHR* ( O ) ) 

410  GET#15,B* 

420  GET#15,B* 

430  H= ASC ( B*+CHR* ( O ) ) 

440  BF=L+(H*256) 

450  BA=664-BF 

460  0PEN4,3 

470  0PEN2,S,2, "#" 

480  0PEN3,S,3, "*0,P,R" 

490  GET#3,B* 

500  DOS=ASC ( B*+CHR* ( O ) ) 

510  F0RI=3T0143 

520  GET#3,B* 

530  NEXTI 

540  F0RI=144T0159 
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550  60SUB1360 

560  DN*=DN*+CHR*(A) 

570  NEXT I 

580  GET#3,B* 

590  GET#3,B* 

600  F0RI=162T0163 

610  G0SUB1360 

620  ID*=ID*+CHR*(A> 

630  NEXT I 

640  F0RI=164T0255 

650  GET#3,B* 

660  NEXTI 

670  F0RI=1T06 

680  PRINT#4 

690  NEXTI 

700  PRINT#4, "DISK  NAME:  "DN* 
710  PRINT#4, "DISK   ID:  "ID* 
720  PRINT#4, "FORMATTING   ID:  "FI* 
730  PRINT#4,"DOS  TYPE:  "DOS 
740  PRINT#4, "BLOCKS  ALLOCATED: "BA 
750  PRINT#4, "BLOCKS  FREE:  "BF 
760  PRINT#4 

770  PRINT#4, "BLOCKS  FILE  NAME  TYP 
E     T-S  LOAD" 

780  IFF/8=INT(F/8)THENPRINT#4 

790  GET#3,B* 

800  FT=ASC ( B*+CHR* ( O ) ) 

810  FT*=FT*(7ANDFT) 

820  GET#3,B* 

830  T= ASC ( B*+CHR* ( O ) ) 

840  T*=R I GHT* ( " O " +R I GHT* ( STR* ( T ) , LEN ( STR 

*(T) ,2) 

850  GET#3,B* 

860  S=ASC(B*+CHR*(0) ) 

870  S*=R I GHT* ( " O " +R I GHT*  <  STR* ( S ) , LEN ( STR 
*(S>  >-l)  ,2) 
880  LA*="" 

890  I F ( 7 ANDFT ) <  >0 AND ( 7 ANDFT ) <  >2GOTO 1 020 

900  PRINT#15, "Ui";2;o;T;s 

910  PRINT#15, "B-P"; 2;2 

920  GET#2,B* 

930  A=ASC(B*+CHR*(0) ) 

940  H=INT(A/16) 

950  L=A-16*H 

960  LA*=MID*(H*,H+1, 1 ) +MID* (H*, L+1 , 1> 

970  GET#2,B* 

980  A= ASC ( B*+CHR*  <  O ) ) 

990  H=INT(A/16) 

lOOO  L=A-16*H 

lOlO  LA*=MID*(H*,H+1, 1) +MID* <H*, L+1 , 1 ) +L 
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A* 

1020  F«="'" 
1030  NULL=0 
1040  F0RI=1TD16 
1050  GDSUB1360 

1 060   I FB*=CHR« ( O ) THENNULL=NULL+ 1 
1070  F«=F«+CHR«(A) 
1080  NEXTI 

1090  IFNULL=16G0T01270 

1100  FDRI=1T09 

1110  GET#3,B« 

1120  NEXTI 

1130  GET#3,B« 

1 1 40  B=ASC ( B«+CHR* ( O ) ) 

1150  GET#3,B» 

1 1 60  B=B+256*ASC  <  B*+CHR» ( O ) ) 

1170  B«=RIGHT*("      "+RIGHT«(STR«(B) ,LEN(S 

TR«(B) )-l) ,3) 

1180  IFST=64THENEDI=1 

1 190   IFFT< 128THENPRINT#4, " tRVSJ "  ; 

1200  PRINT#4, "    "B«"        "F«"      "FT«"  "T*"-" 

S«"  "LA* 

1210  F=F+1 

1220  IFF/3<  >INT (F/8) THENGET#3, B«: GET#3, B 
« 

1 230  GETC* : I FC*= " " GOTO 1 250 
1 240  GETC* : I FC«= " " THEN 1 240 
1250  IFEDI=1 GOTO 1270 
1260  G0T0780 
1270  CL0SE4 
1280  CL0SE3 
1290  CL0SE2 

1300  INPUT#15,EN*,EM«,ET«,ES« 
1310  CL0SE15 
1320  END 

1330  REM  FILE  TYPES 

1340  DATA  DEL,SEQ,PRG,USR,REL,??? 
1350  REM  GET  A  BYTE 
1360  GET#3,B* 

1 370   I FB«= " " THENB«=CHR« ( O ) 

1380  A=ASC(B«) 

1390  IFA>127THENA=A-128 

1400  IFA<320RA>95THENA=63 

1410  IFA=34THENA=63 

1420  RETURN 
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100  REM  FIND  A  FILE 

110  PRINT" <CLR>FIND  A  FILE  -  1541" 

120  PRINT" <DOWN> INSERT  DISKETTE   IN  DRIVE 

•I 

130  PRINT" tDOWNJ PRESS   <RVS> RETURN <ROFF> 
TO  CONTINUE" 

140  GETC* : I FC$= " " THEN 1 40 

150  IFC*<>CHR*(13)G0T0140 

160  PRINT"0K" 

170  0PEN15,8, 15 

180  PRINT#15, "10" 

190  INPUT#15,EN*,EM*,ET*,ES* 

200  IFEN$="00"G0T0240 

210  PRINT"  {:D0WN>  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 
220  CLOSE 15 
230  END 

240  INPUT"<:D0WN>FILENAME";F* 

250   I FLEN  <  F*  X  >OANDLEN ( F*  X 1 7GOT0280 

260  CLOSE 15 

270  END 

280  0PEN2, 8, 2, "0: "+F*+" , ?, R" 
290  INPUT#15,EN*,EM*,ET*,ES* 
300  IFEN*="00"G0T0320 
310  G0T0530 

320  PRINT#15, "M-R"CHR*(97)CHR*(2) 

330  GET#15,D* 

340  D=ASC(D*+CHR*<0) ) 

350  PRINT#15, "M-R"CHR* (24)CHR* (0)CHR*(2) 

360  GET#15,T* 

370  T=ASC<T*+CHR* (O) ) 

380  GET#15,S* 

390  S=ASC ( S*+CHR*  <  0 ) ) 

400  D*=RIGHT*(STR*(D) ,LEN(STR*(D) )-l) 
410   I FD< 1 OTHEND*= " O " +D* 

420  T*=RIGHT* (STR* (T) ,LEN(STR*(T) )-l) 
430   I FT< 1 0THENT*= " O " +T* 

440  S*=RIGHT*(STR*(S) ,LEN(STR*(S) )-l) 
450   I FS< 1 OTHENS*= " O " +S* 

460  PRINT" CD0WN3 TRACK   IS  -  SECTOR  "D* 
470  PRINT" CDOWNJTRACK   "T*"   -  SECTOR  "S* 
480  CL0SE2 

490   I NPUT# 1 5 , EN* , EM* , ET* , ES* 
500  CLOSE 15 

510  PRINT" <DOWN>DONE! " 
520  END 

530  PRINT" CDOWN>" EN* ",    "EM*" , "ET*" , "ES* 
540  CL0SE2 

550  INPUT#15,EN*,EM*,ET*,ES* 
560  CLOSE 15 

570  PRINT"  {:D0WN>  <RVS>FAILEDCR0FF>  " 
580  END 
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100  REM  DISPLAY  TRACK  ?<  SECTOR  -  1541 
no  CLR 

120  HD*="0123456789ABCDEF" 

130  PRINT"   CLR  J  DISPLAY  TRACK  &  SECTOR  - 

1541" 

140  PRINT"  <:D0WN>  INSERT  DISKETTE   IN  DRIVE 

II 

150  INPUT"  <:D0WN> DISPLAY  TRACK  &  SECTOR  ( 
T,S) ";t,s 

1 60   I FT< 1 ORT  >35THENEND 

1 70  NS=20+2» ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

180  IFS<OORS>NSTHENEND 

190   INPUT"  <:D0WN> OUTPUT  TO  SCREEN  OR  PRIN 

TER    (S/P)      StLEFT  31 " ; O* 

200   I F0*<  > " S " ANDO*<  > " P " THENEND 

210   INPUT"  <: DOWN > ARE  YOU  SURE     YtLEFT  3>  " 

;q$ 

220   I FQ*<  > " Y " THENEND 
230  0PEN15,8, 15 

240  T*=RIGHT*(STR*(T) ,LEN(STR*(T) )-l) 
250   I FT< 1 0THENT*= " O " +T* 

260  S*=RIGHT*(STR*(S) ,LEN(STR*(S) )-l) 

270   I FS< 1 0THENS*= " O " +S* 

280  REM  SEEK 

290  J0B=176 

300  G0SUB850 

310  IFEO1G0T0360 

320  REM  READ 

330  J0B=128 

340  G0SUB850 

350  IFE=lG0TO47O 

360  I FE  > 1 ANDE< 1 2THENEN*=R I GHT* ( STR* ( E+ 1 8 
) ,2) :G0T0380 

370  EN*= " 02 " : EM*= " ?T I MEOUT " : G0T0390 
380  EM*="READ  ERROR" 
390  ET*=T* 
400  ES*=S* 

410  PRINT" tDOWNl "EN*",    "EM*" , "ET*" , "ES* 

420  IFEO4ANDEO5G0TD450 

430  G0SUB1020 

440  G0T0470 

450  CLOSE 15 

460  END 

470  IF0*="S"G0T0550 
480  0PEN4,4 
490  F0RI=1T06 
500  PRINT#4 
510  NEXTI 

520  PRINT#4,"  DISPLAY  TRACK  8<  SE 

CTOR" 
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530  PRINT#4,"  TRACK   "T*"   -  SECT 

OR  "S* 

540  PRINT#4 

550  F0RK=0T01 

560  PRINT"  ^CLR><:RVS>  DISPLAY  TRA 

CK  &  SECTOR  CROFFD " 

570  PRINT" {:home><:down><:rvs>  tra 

CK   "T*"    -  SECTOR    "S*"  <:R0FF>" 

580  PRINT" <:home><:down  2>" 

590  F0RJ=0T015 

600  D=K*128+J*8 

61 O  GOSUB970 

620  BP*="    .    "+DH*+":  " 

630  H*="" 

640  A*="" 

650  F0RI=0T07 

660  PR I NT# 15," M-R " CHR* ( K* 1 28+ J *8+ 1) CHR* ( 
4) 

670  GET#15,B* 

680  D=ASC ( B*+CHR* ( O ) ) 

690  S0SUB970 

700  H*=H*+DH*+"  " 

710  IFD>127THEND=D-128 

720  IFD<320RD>90THEND=46 

730  A*=A*+CHR*(D) 

740  NEXTI 

750  printbp*;h*; A* 

760   I FO*= " P " THENPR I NT#4 , BP* ; H* ; A* 
770  NEXTJ 

780  IF0*="P"G0T0800 
790  G0SUB1020 
800  NEXTK 

81 O  IFO*="P"THENCLOSE4 

820  CLOSE 15 

830  GOTOllO 

840  REM  JOB  QUEUE 

850  TRY=0 

S60  PRINT#15, "M-W"CHR*(8)CHR*(0)CHR*(2>C 
HR*(T)CHR*(S) 

870  PRINT#15,  "M-W"CHR*  ( 1 )  CHR*  (O)  CHR*  (DC 

HR*(JOB) 

880  TRY=TRY+1 

890  PR I NT# 15," M-R " CHR* ( 1 ) CHR* ( O ) 

900  GET#15,E* 

910  IFE*=""THENE*=CHR*(0) 

920  E=ASC(E*) 

930  IFTRY=5O0GOTO95O 

940  IFE>127GOTOa80 

950  RETURN 

960  REM  DECIMAL  TO  HEXADECIMAL 
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970  H=INT(D/16)+1 
980  L=D-(H-1)*16+1 

990  DH*=MID*<HD*,H, 1 ) +MID* (HD*, L, 1) 
lOOO  RETURN 
1010  REM  DELAY 

1020  PRINT" <:down> PRESS  <:rvs>return<:roff> 

TO  CONTINUE" 
1 030  GETC* : I FC$= " " THEN 1 030 
1040   IFC*<>CHR*( 13) GOTO 1030 
1050  PR I NT "OK" 
1060  RETURN 


450 


100  REM  DISPLAY  A  CHAIN  -  1541 
no  CLR 

120  PRINT"<:CLR>DISPLAY  A  CHAIN  -  1541" 
130  PRINT" ^DOWN> INSERT  DISKETTE   IN  DRIVE 


140  INPUT"  <:D0WN>  TRACK  8<  SECTOR  (T,S)";T, 
S 

1 50  I FT< 1 CRT  >35THENEND 

160  NS=20+2*(T>17) + (T>24) + (T>30) 

170  IFS<OORS>NSTHENEND 

180  INPUT"  <:D0WN> OUTPUT  TO  SCREEN  OR  PRIN 

TER  (S/P)      SCLEFT  3> " ; 0* 

190  I F0*<  > " S " ANDO*<  > " P " THENEND 

200  INPUT"  <:down>are  you  sure    y<:left  3>" 

210  IFQ*<>"Y"THENEND 

220  0PEN15,8, 15 

230  PRINT#15, "10" 

240  INPUT#15,EN*,EM*,ET*,ES* 

250  IFEN*="00"G0T0290 

260  PRINT" tDOWNJ "EN*" ,    "EM*" , "ET*" , "ES* 
270  CLOSE 15 
280  END 

290  IF0*="S"G0T0390 

300  PRINT" <:down><:rvs>printing<:roffj  a  ch 

AIN" 

310  0PEN4,4 
320  F0RI=1T06 
330  PRINT#4 
340  NEXT I 

350  PRINT#4, "  DISPLAY   A  CHAI 


410  PRINT"  <:  HOME  ><:  DOWN  2>  " 

420  B=B+1 

430  G0SUB1030 

440  REM  SEEK 

450  J0B=176 

460  G0SUB910 

470  IFEO1G0T0520 

480  REM  READ 

490  J0B=128 

50O  G0SUB910 


N" 

360  PRINT#4, "  BLOCK 
CTOR" 

370  PRINT#4 
380  G0T0420 
390  PRINT"  <:CLR]  CRVS> 

A  CHAIN  tROFFD " 

400  PRINT"  ^HOME3  <:D0WN>  tRVS> 
K       TRACK  -  SECTOR 


<:roff> 


TRACK  -  SE 


DISPLAY 


BLOC 
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510  IFE=lGOT0630 

520  I FE  > 1 ANDE< 1 2THENEN$=R I GHT* ( STR* ( E+ 1 B 
) , 2) : G0T0540 

530  EN*= " 02 " : EM*= " ?T I MEOUT " : G0TG550 
540  EM*="READ  ERROR" 
550  ET*=T$ 
560  ES*=S* 

570  IF0*="P"THENPRINT#4,  ■'  "EN*" 
,    "  EM*  "  ,  "  ET*  "  ,  ■■  ES* :  G0T0590 

580  PR  I  NT  "  '■  EN*  "  ,    "  EM*  "  ,  "  ET*  "  ,  " 

ES* 

590  IFE=40RE=5G0T0630 
600  IFO*="P"GOT0810 
610  G0SUB1090 
620  G0T0820 

630  B*=R I GHT* ( STR* ( B ) , LEN ( STR* ( B ) ) - 1 ) 
640  IFB<10THENB*="  "+B* 
650  IFB<100THENB*="  "+B* 

660   IFO*="P"THENPRINT#4,  ■■  "B*" 

"T*"   -  ■'S*:G0T0680 
670  PRINT"  "B*"  "T*"   -  "S 

* 

680  PRINT#15, "M-R"CHR*<0)CHR*(4)CHR*(2) 

690  GET#15,T* 

700  T=ASC ( T*+CHR* ( O ) ) 

710  IFT=0G0T0760 

720  GET#15,S* 

730  S=ASC ( S*+CHR* ( O ) > 

740  I FT  >350RS  >20+2» ( T  > 1 7 )  +  <  T  >24  >  +  ( T  >30 ) G 
0T0850 

750  I F0*= " S " ANDB/ 1 6<> I NT ( B/ 1 6 ) G0T0420 

760  IF0*="P"G0T0780 

770  G0SUB1090 

780  IFT=0G0T0810 

790  IF0*="S"G0T0390 

800  G0T0420 

810  IF0*="P"THENCLDSE4 
820  CLOSE 15 
830  GOTOllO 

840  REM   ILLEGAL  TRACK  OR  SECTOR 
850  G0SUB1030 

860   IF0*="P"THENPRINT#4, "  66,  XL 

LEGAL  TRACK  OR  SECTOR, "T*" , "S*: G0T0810 

870  PRINT"  <:D0WN> 66,    ILLEGAL  TRACK  OR  SEC 

TOR, "T*", "3* 

880  G0SUB1090 

890  G0T0820 

900  REM  JOB  QUEUE 

910  TRY=0 

920  PRINT#15, "M-W"CHR*(8)CHR*(0)CHR*(2)C 
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HR*(T)CHR*(S) 

930  PRINT#15,  "M-W"CHR*(1)CHR*(0)CHR$(1)C 

HR«(JOB) 

940  TRY=TRY+1 

950  PR I NT# 15," M-R " CHR* ( 1 ) CHR* ( O ) 

960  GET#15,E* 

970  IFE*=""THEh4E*=CHR*(0) 

980  E=ASC(E*) 

990  IFTRY=500G0T01010 

lOOO  IFE>127G0T0940 

10 lO  RETURN 

1020  REM  STR«(T,S) 

1030  T*=RIGHT*<STR*<T) ,LEN<STR*(T) )-l) 
1 040   I FT< 1 OTHENT*= " O " +T* 

1 050  S*=R I GHT  * ( STR* ( S ) , LEN ( STR* ( S ) ) - 1 ) 
1 060   I FS< 1 OTHENS* = " O " +S* 
1070  RETURh4 
1080  REM  DELAY 

1090  PRINT" ^DOWN> PRESS  ^RVS>RETURN^ROFF> 

TO  CONTINUE" 
1 1 00  GETC* : I FCt= " " THEN 1 1 00 
1110  IFC*<>CHR*(13)G0T01100 
1120  RETURN 
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100  REM  EDIT   TRACK  St  SECTOR  -  1541 

110  P0KE56,159 

120  CLR 

130  HD*=" 01 23456789 ABCDEF" 

140  CD*="  t HOME ><: DOWN  20>  " 

150  PRINT"  <:CLR>EDIT  A  SECTOR  -  1541" 

160  PRINT"  <:D0WN3  REMOVE   ^RVS>WRITE  PROTEC 

T  tab<:roff>" 

170  PRINT"  <:D0WN>  INSERT  DISKETTE   IN  DRIVE 

II 

180   INPUT"<:D0WN>EDIT  TRACK  &  SECTOR  (T,S 

)  ";T,s 

190  IFT<10RT>35G0T01580 

200  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

210  IFS<00RS>NSG0T01580 

220  INPUT" ^DOWN>STARTING  BYTE  (00/80) ";S 
B* 

230   I FLEN ( SB* ) =OGOTO 1 580 
240  SB=VAL(SB*) 

250   I FSB<  >OANDSB<  >80G0T0 1 530 
260   I FSB=OTHENBP=0 : G0T02S0 
270  BP=128 

280  INPUT" ^DOWN> ARE  YOU  SURE  Y^LEFT  33" 
;Q* 

290  IFQ*<>"Y"G0T01580 
300  0PEN15,8, 15 

310  T*=RIGHT$(STR*(T) ,LEN(STR*(T) )-l) 
320   I FT< 1 OTHENT*= " O " +T* 

330  S$=RIGHT*(STR*(S) ,LEN(STR*(S) )-l) 

340   I FS< 1 OTHENS*= " O " +S* 

350  REM  SEEK 

360  J0B=176 

370  G0SUB1620 

380  IFEO1G0T0430 

390  REM  READ 

400  J0B=128 

410  G0SUB1620 

420  IFE=1G0T0520 

430  I FE  > 1 ANDE< 1 2THENEN*=R I GHT* ( STR* ( E+ 1 8 
) ,2) :G0T0450 

440  EN*= " 02 " : EM*= " ?T I MEOUT " : G0T0470 

450   IFE=70RE=8THENEM*="WRITE  ERROR": GOTO 

470 

460  EM*="READ  ERROR" 
470  ET$=T* 
480  ES*=S* 

490  PRINT" ^DOWN> "EN*",    "EM*" , "ET*" , "ES* 
500  CLOSE 15 
510  GOTO 1530 

520  PRINT"  {:CLR>-[RVS>  EDIT  TRACK 
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3(  SECTOR  <:R0FF>" 

530  PRINT"  {:home3  <:down><rvs>  tra 

CK   "T*"   -  SECTOR   "S*"  {ROFFJ " 

540  PRINT"  <:  HOME  ><:  DOWN  2>  " 

550  F0RJ=0T015 

560  D=J*8+BP 

570  G0SUB1740 

580  BP$="    .    "+DH$+":  " 

590  H*="" 

600  A*="" 

610  F0RI=0T07 

620  PRINT#15, "M-R"CHR* ( J»8+I+BP) CHR*  <4) 

630  GET#15,B* 

640  D=ASC(B*+CHR*<0) ) 

650  P0KE<40704+J*8+I)  ,D 

660  G0SUB1740 

670  H*=H*+DH*+"  " 

680  IFD>127THEND=D-128 

690  IFD<320RD>95THEND=46 

700  IFD=34THEND=46 

710  A*=A*+CHR*(D) 

720  NEXTI 

730  PRINTBP*H*" <RVS> "A*" CROFFl  " 
740  NEXTJ 

750  PRINT"  <:D0WN>{:RV3>EDIT^R0FF>    TRACK  "T 

*"   -  SECTOR   "S*"  <Y/N)?" 

760  G0SUB1790 

770  IFQ*<>"Y"G0T01390 

780  PRINTCD*"PRESS  £RVS>CLR<:R0FF>  TO  EX  I 
T 

790  PRINT"  t HOME 3- <: DOWN  3>  BRIGHT  73  "; 
800  S=1151 
810  C=l 

820  A=PEEK (S) : IFA>127THENA=A-12S 
830  M=S 

840  P0KEM,A+128 

850  GET  I  *  :  I F I      "  "  THEN850 

860  I=ASC<I$) 

870   I F I = 1 47THENP0KEM , A : GOTO 1 360 
880   IFI=19THENP0KEM, A:G0T0790 
890  IFI=141THENI=13 
900  IFI013GOT0930 

910  IFC=23ANDS<>1773THENPRINT" CRIGHT3 "; : 
GOTO 1230 

920  I FS< 1751 THENPOKEM , A : FOR I =CT023 : PR I NT 
" CRIGHT>"; ;S=S+l: NEXTI :S=S-l:C=23:G0T012 
30 

930   I F I =32THEN I =29 : I $=CHR$ ( 29 ) 
940   I F I<  >29G0T0970 

950   IFC<  >23THENC=C+1 : S=S+1 : GOTO 1290 
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960  IFS<  >1773THENPRINT"  <:RIGHT>  "  ;  :  GOTO  123 

0 

970  IFI0157GOT01000 

980  I FC<  > 1 THENC=C- 1 : S=3- 1 : GOTO 1 290 

990  I FC= 1 AWDS<  > 1 1 5 1 THENFOR I  =  1 TO 1 8 : PR I NT " 

<:left>  " ; :  nexti  : c=23:  s=s-i8: gotoisoo 

1 000   I F I <  > 1 7G0T0 1 020 

1010   I FS+40< 1 774THENS=S+40 : GOTO 1 290 
1020  IFI0145GOT01040 

1 030   I FS-40  > 1 1 50THENS=S-40 : GOTO 1 290 

1040  IFA=320RA=160G0T0850 

1 050   I F I< 480R I >57AND I < 650R I >70G0T0S20 

1060  PRINTI*; 

1 070  A=  I :  I F I  >ib4THENA=A-64 

lOSO  IFA<7THENL=A+9 

1090  IFA>47THENL=A-48 

1  100   IFINT(  (C+1)  /3)  =  (C+1)  /3THENR==PEEK(S- 

1) :G0T01120 

1110  R=PEEK(S+1) 

1120   I FR  > 1 27THENR=R- 123 

1 1 30   I  FR<  7THEr4R=R+9 

1140   I FR  >47THENR=R-48 

1150   IFINT( (C+1) /3)<>(C+1) /3THENI=L*16+R 
: GOTO 1170 
1160  I=R*16+L 

1170  P0KE40704+8*INT( (M-1 151 ) /40) +INT (C/ 
3)  ,  I 

1180  IFI>127THENI=I-12S 
1190   IFK320RI  >95THENI=46 
1200  IFI=34THENI=46 

1210  IFI >64THENP0KEM+25-C+INT (C/3) , 1-64+ 
128: GOTO 1230 

1220  P0KEM+25-C+INT (C/3) , I +128 

1230   IFC=23ANDS<  >1773THENF0RI  =  1T017: PRIN 

T  ■'  <:r  I  GHT> " ; :  NE X T I :  c=  1 :  s=s+ 1 8 :  goto  1 300 

1240   IFS=1773THENPRINT"  <:LEFT>  "  ;  :  GOTO  1300 

1250  S=S+1 
1260  C=C+1 
1270  POKEM,A 
1280  G0T0820 
1290  PRINTI*; 

1 300  A=PEEK ( M ) : I F A  > 1 27THEN A= A- 128 
1310  POKEM,A 
1320  GOT082O 

1330  PRINTCD*"EXIT  (Y/N)?" 

1340  G0SUB1790 

1350  IFD$="N"GOT0780 

1360  PRINTCD*"<:RV3>REWRITECR0FF>   TRACK  " 
T*"   -  SECTOR   "S*"  (Y/N)?" 
1370  G0SUB1790 
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1380  IFQ*="Y"G0T01450 
1390  CLOSE 15 

1400  PR I NTCD*" ATTEMPT  TO  EDIT  A  SECTOR  ^ 
RVS>  F  A I  LED  {:R0FF> 

1410  PRINT"  ^DOWh4>PRESS   <: RVS> RETURN {iROFF}- 

TO  CONTINUE" 
1420  GETC*: IFCS=""THEM1420 
1430  IFC*<>CHR*(13)G0T01420 
1440  GOTO 120 

1450  PRINTCD*"{:RVSDREWRITING^RCFF>  TRACK 

"T*"   -  SECTOR  "S*" 
1460  FORI=OT0127 

1470  PRINT#15, "M-W"CHR*(I+BP)CHR$(4)CHR* 

( 1 ) CHR* (PEEK (40704+I )  ) 

1480  NEXT I 

1490  REM  WRITE 

1500  T=VAL(T*) 

1510  S=VAL<S*) 

1520  J0B=144 

1530  G0SUB1620 

1540  CLOSE 15 

1550  IFE01GOT01400 

1560  PR I NTCD*" ATTEMPT  TO  EDIT  A  SECTOR  C 

OMPLETE" 

1570  G0T01410 

1580  P0KE56, 160 

1590  CLR 

1600  END 

1610  REM  JOB  QUEUE 
1620  TRY=0 

1630  PRINT#15, "M-W"CHR*(8)CHR$(0)CHR*(2) 
CHR$<T)CHR* <S) 

1640  PRINT#15, "M-W"CHR* ( 1 ) CHR* (0) CHR* ( 1 ) 

CHR*(JOB) 

1650  TRY=TRY+1 

1 660  PR I NT# 1 5 , " M-R " CHR* ( 1 ) CHR* ( O ) 

1670  GET#15,E* 

1680   IFE*=""THENE*=CHR* (O) 

1690  E=ASC(E*) 

1700  IFTRY=500G0T01720 

1710  IFE>127G0T01650 

1720  RETURN 

1730  REM  DECIMAL  TO  HEXADECIMAL 
1740  H=INT(D/16)+1 
1750  L=D-(H-1)*16+1 

1760  DH*=MID*(HD*,H, 1 ) +MID* (HD*, L, 1) 

1770  RETURN 

1780  REM  QUERY 

1 790  GETQ$ : I FQ* = " " THEN 1 790 

1 800   I FQ*<  > " Y " ANDQ*<  > " N " GOTO 1 790 

1810  RETURN 
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100  REM  EDIT  DOS  VERSION 

110  PRINT"  <:CLR>EDIT  DOS  VERSION  -  1541" 
120  PRINT" CDOWNJ REMOVE   CRVSJWRITE  PROTEC 

T  tab<:roff>" 

130  PRINT"  <:D0WND  INSERT  DISKETTE   IN  DRIVE 

II 

140  PRINT"  tDOWND  PRESS   <:RVS> RETURN CROFFJ 
TO  CONTINUE" 

1 50  GETC* : I FC*= " " THEN 1 50 

160   I FC*<  >CHR* (13) GOTO 1 50 

170  PR I NT "OK" 

ISO  0PEN15,8, 15 

190  PRINT#15, "lO" 

200  INPUT#15,EN*,EM*,ET*,ES$ 

210  IFEN*="00"G0T0250 

220  PRINT"  <:D0WN>  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 
230  CLOSE 15 
240  END 

250  PR I NT# 1 5 , " M-R " CHR* ( 1 ) CHR* ( 1 ) 
260  GET#15,D0S* 

270   IFDCS*=" "THENDOS*=CHR* (O) 
280  ODV=ASC(DOS*) 

290  PRINT"  <:D0WN3  OLD  DOS  VERSION:  ";  ODV 
300  NDV=-1 

310   INPUT"  <:D0WNJNEW  DOS  VERSI0N";NDV 
320   I FNDV<  OORNDV  >255G0T0500 

330  INPUT" CDOWNJARE  YOU  SURE  (Y/N)  Y<LE 
FT  33 ";Q* 

340   I FQ*<  > " Y " G0T0500 

350  T=18 

360  S=0 

370  REM  SEEK 

330  JOB=176 

390  G0SUB530 

400  REM  READ 

410  J0B=128 

420  G0SUB530 

430  PRINT#15, "M-W"CHR*(2)CHR*(4)CHR*(1)C 

HR*(NDV) 

440  REM  WRITE 

450  JOB=144 

460  GOSUB530 

470  CLOSE 15 

430  PR  I  NT  "  {DOWND-  DONE  !  " 

490  END 

500  CLOSE 15 

510  END 

520  REM  JOB  QUEUE 
530  TRY=0 

540  PRINT#15, "M-W"CHR*(S)CHR*(0)CHR*(2)C 
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HR*<T)CHR*(B) 

550  PRINT#15,  "M-W"CHR*  <  1 )  CHR*  (O)  CHR$  (DC 

HR*(JOB) 

560  TRY=TRY+1 

570  PR I NT# 15," M-R " CHR* ( 1 ) CHR*  <  O ) 

580  GET#15,E* 

590   I  FE*=  "  "  THEIME*=CHR*  ( O ) 

600  E=ASC(E$) 

610  IFTRY=500G0T0630 

620  IFE>127G0T0560 

630  IFE=1THENRETURN 

640  CLOSE 15 

650  PRINT" tDOWN>  tRVS3  FAILED<ROFF> " 
660  END 
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lOO  REM  VALIDATE  A  DISKETTE  -  1541 
110  CLR 

120  CD*="<DOWN  21 >" 

130  DIMF*(143)  ,T7.<143)  ,S7.<143) 

140  PRINT"  <:CLR> VALIDATE  A  DISKETTE  -  154 

1" 

150  PRINT" { DOWN > INSERT  DISKETTE   IN  DRIVE 

II 

160  PRINT"  <: DO WN> PRESS  <:rvsj return<:roff> 

TO  CONTINUE" 

170  GETC*:IFC*=""THEN170 

ISO  IFC*<>CHR*(13)G0T0170 

190  PRINT"OK" 

200  0PEN15,e, 15 

210  PRINT#15, "10" 

220   I NPUT# 1 5 , EN* , EM* , ET* , ES* 

230  IFEN*="00"GOT027b 

240  PR I NT " { DOWN J " EN* " ,    " EM* " , " ET* " , " ES* 
250  CLOSE 15 
260  END 

270  PRINT"  <D0WN><:RVSJFETCHING<:R0FF>  DIRE 
CTORY" 

230  0PEN2,8,2, "*0,S,R" 

290   I NPUT# 1 5 , EN* , EM* , ET* , ES* 

300   I FEN*= " OO " G0T0320 

310  G0T0240 

320  F0RI=0T0253 

330  GET#2,B* 

340  NEXT I 

350  N=0 

360  F0RJ=0T07 

370  6ET#2,B* 

380   I FB*= " " THENB*=CHR* ( O ) 
390  A=ASC<B*) 

400   I F A  > 1 27 ANDA< 1 33G0T05 1 0 
410  F0RI=0T02 
420  GET#2,B* 
430  NEXT I 

440  IFB*=""THENB*=CHR*<0) 
450  A=ASC(B*) 

460   IFA=0THENJ=7: NEXTJ:G0T0a20 

470  F0RI=0T025 

480  GET#2,B* 

490  NEXT I 

500  G0T0750 

510  GET#2,B* 

520   I FB*= " " THENB*=CHR*  <  O ) 
530  Ty.(N)=ASC(B*) 
540  GET#2,B* 

550   I FB*= " " THENB*=CHR* ( O ) 
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560  Sy.  (N)=ASC(B*) 
570  F*="" 
580  NULL=0 
590  FOR I =07015 
600  GET#2,B* 

610  IFB*=""THENB*=CHR*<0> 
620  A=A5C(B*) 
630  IFA=0THEMNULL=NULL+1 
640  IFA>127THENA=A-128 
650  IFA<320RA>95THENA=63 
660  IFA=34THEMA=63 
670  F*=F*+CHR$<A> 
680  NEXTI 

690   IFNULL=16THENJ=7: NEXTJ : G0T0820 

700  F*(N)=F* 

710  N=N+1 

720  F0RI=0T010 

730  GET#2,B* 

740  NEXTI 

750  IFJ=7G0T0790 

760  F0RI=0T01 

770  GET#2,B* 

780  NEXTI 

790  NEXTJ 

800  IFST=64G0T0820 
810  G0T0360 
820  CL0SE2 

830  INPUT#15,EN»,EM*,ET*,ES* 
840  IFN>0GDT0880 

850  PRINT" CDOWN>NO  CLOSED  FILES  ARE   IN  T 
HE  DIRECTORY" 
860  CLOSE 15 
870  END 
880  I=0 

890  PRINT" <CLR>" 

900  N»=R I GHT*  < " 00 " +R I GHT* ( STRS ( N ) , LEN ( ST 
R*(N) )-l) ,3) 
910  F0RJ=0T0N-1 

920  J*=RIGHT*<"00"+RIGHT*(STR*(J+1) , LEN < 
STR*(J+1> )-l) ,3) 

930  PRINT" <:home><rvs>validating<:roffj  #" 
j$"/"N*":  "F*(J) 

940  PRINT"<:H0ME:  ";LEFT*<CD*,  1+2)  ;F$(J)  ;  " 

II  m 

950  NB=1 
960  T=T-/.(J) 
970  S=S'/.  (J) 
980  G0SUB1640 

990  PRINT"<H0ME>"LEFT$(CD*, I+2}F* (J)NB 
lOOO  J0B=176 
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1010  GDSUB1520 
1020  IFE=1G0T01040 
1030  GDT01170 
1040  JOB=128 
1050  G0SUB1520 
1060  IFE=1G0T010S0 
1070  G0T01170 

1030  PRINT#15, "M-R"CHR*(0)CHR*<4)CHR*<2) 

109O  GET#15,B* 

1 100  T=ASC (B*+CHR$ (O) ) 

1110  IFT=0G0T01170 

1120  GET#15,B* 

1 1 30  S=ASC ( B*+CHR$  <  O ) ) 

1140   I FT  >350RS  >20+2* ( T  > 1 7 )  +  <  T  >24 )  +  ( T  >30 ) 

THEN I=I+2:R*="{ R VS J " : GOTO 1 230 

1150  NB=NB+1 

1160  G0T0980 

1170  1=1+2 

1180  R$="tROFF>" 

1190  IFE=1G0T01240 

1200  R*="tRVS>" 

1210  G0SUB1700 

1220  GOTO 1250 

1230  E*=" ILLEGAL  TRACK  OR  SECTOR CLEFTJ " : 
GOTO 1250 

1240  E$="00,   OK, 00,00 " 

1250  PRINT"  <:H0ME>"R*;  LEFT*  (CD*,  I)  ;F*(J)  " 
"E*"tROFF>" 

1260  F* < J)  =" tHCME> <:rvs> <:roff> "+R*+ 

LEFT*(CD*,  I)+"tLEFT  3>"+F*(J)+"  "+E*+"<:R 
0FF>  " 

1 270   I F I =20 AND J <  >N- 1 THENFORD= 1 TO 1 000 : NEX 
TD:PRINT"tCLR>": 1=0 
1280  NEXT J 
1290  CLOSE 15 

1 300    I FN< 1 1 THENS=N : GOTO 1 500 

1310   INPUT"  iDDWN3- SUMMARY   INFORMATION  (Y/ 

N)      YtLEFT  3>";Q* 

1320   IFD*<>"Y"GOT01 10 

1330  SI$="^CLR>^RVS>        /■■+N$+"  SUMMAR 

Y   INFORMATION  <;R0FF>  " 

1340  S=0 

1350  PRINTSI* 

1360  F0RI=0T09 

1370  PRINTF*<S) 

1380  S=S+1 

1390  IFS=NTHENI=9 

1400  NEXT I 

1410   I FS<  >NGOTO 1 460 
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1 420  I FS=NTHENPR I NT " t DOWN>  t R VSD 

TYPE   =-C'    TO  CONTINUE  tROFF>  " 

1 430  GETC* : I FC$= " " THEN 1 430 

1440  IFC$<>"C"G0T01430 

1450  GOTO  no 

1460  PRINT" tDOWN>tRVS>      TYPE   'C    TO  CONT 

INUE  OR   'S'    TO  STOP        CR0FF3 " 

1470  GETC*: IFCS=""THEN1470 

1 480  I  FC*<>  ■■  C  ■'  ANDC$<  >  "  S  "  GOTO  1470 

1490  IFC*="C"G0T01350 

1500  GOTO 110 

1510  REM  JOB  QUEUE 

1520  TRY=0 

1530  PRINT#15,  •"M-W"CHR*(8)CHR*(0)CHR*  (2) 
CHR*(T)CHR$(S) 

1 540  PR I NT# 15," M-W " CHR* ( 1 ) CHR* ( O ) CHR* ( 1 ) 

CHR*(JOB> 

1550  TRY=TRY+1 

1560  PRINT* 15, "M-R"CHR* ( 1 ) CHR* (O) 

1570  GET#15,E* 

1580  IFE*=""THENE*=CHR*(0) 

1590  E=ASC(E*) 

1600  IFTRY=500G0T01620 

1610  IFE>127G0T01550 

1620  RETURN 

1630  REM  STR*(T,S) 

1640  T*=RIGHT*(STR*(T) ,LEN(STR*(T) )-l) 

1 650  I FT< 1 0THENT*= " O " +TS 

1660  SS=RIGHT*(STR*(S) ,LEN(STRS (S) )-l) 

1670  IFS<10THENS*="0"+S* 

1680  RETURN 

1690  REM  ENS,EM*,ETS,ESS 

1 700  I FE  > 1 ANDE< 1 2THENENS =R I GHTS ( STR* ( E+ 1 
8) ,2) :G0T01720 

1710  EN*="02":EMS="?TIME  OUT" : GOTO 1730 

1720  EM*="READ  ERROR" 

1730  ET*=TS 

1740  ESS=SS 

1 750  E*=EN*+ " ,    " +EM*+ " , " +ETS + " , " +ES% 

1760  RETURN 
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100  REM  DUPLICATE  TRACK  8c  SECTOR  -  1541 
110  PRINT"  <:CLR  J  DUPLICATE  TRACK  8t  SECTOR 
-  1541" 

120  PRINT"  <:D0WN>  INSERT  DISKETTE   IN  DRIVE 

II 

130   INPUT"  <:D0WN> SOURCE  TRACK  AND  SECTOR 
(T,S) ";T,S 
140  GOSUB5BO 
150  tr=t:t=o 
160  SR=S:S=0 

170   INPUT"  <: DOWN > TARGET  TRACK  AND  SECTOR 
<T,S)  ";T,S 
ISO  G0SUB5B0 
190  TW=T 
200  SW=S 

210  INPUT"  <:D0WN>  ARE  YOU  SURE  Y^LEFT  3> " 
;Q* 

220  IFQ*<>"Y"THENEND 

230  0PEN15,8, 15 

240  PRINT#i5, "10" 

250  INPUT#15,EN»,EM*,ET*,ES* 

260  IFEN*="00"G0T0310 

270  PRINT"  <:D0WN>"EN»",    "EM*"  ,  "ET«"  ,  "ES* 

280  CLOSE 15 

290  END 

300  REM  SEEK 

310  T=TR 

320  S=SR 

330  J0B=176 

340  G0SUB630 

350  IFE=lGOT03BO 

360  G0T0750 

370  REM  READ 

380  J0B=128 

390  G0SUB630 

400  IFE=1G0T0430 

410  G0T0750 

420  REM  SEEK 

430  T=TW 

440  S=SW 

450  J0B=176 

460  G0SUB630 

470  IFE=1G0T0500 

480  G0T0750 

490  REM  WRITE 

500  J0B=144 

510  G0SUB630 

520  IFE=1G0T0540 

530  G0T0750 

540  CLOSE 15 
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550  PRINT" ^ DOWN > DONE ! " 
560  END 

570  REM   ILLEGAL  TRACK  OR  SECTOR 

580   I FT< 1 ORT  >35THENEND 

590  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

600  IFS<OORS>NSTHENEND 

610  RETURN 

620  REM  JOB  QUEUE 

630  TRY=0 

640  PRINT#15, "M-W"CHR$ (8) CHR* (O) CHR* (2) C 
HR*(T>CHR*(S) 

650  PR  I  NT#  1 5 ,  "  M-W  "  CHR*  ( 1 )  CHR*  ( O  >  CHR*  (DC 

HR* (JOB) 

660  TRY=TRY+1 

670  PRINT#15, "M-R"CHR* ( 1 ) CHR* (0) 

680  GET#15,E* 

690  IFE*=""THENE*=CHR*(0) 

700  E=ASC(E$) 

710  IFTRY=500GOT0750 

720  IFE>127G0T0660 

730  RETURN 

740  REM  ERROR  HANDLER 

750  ET*=RIGHT* (STR* (T) , LEN (STR* (T) ) -1 ) 
760   I FT< 1 0THENET*= " O " +ET* 

770  ES*=RIGHT*(STR*(S) ,LEN(STR*(S) )-l) 
780   I FS< 1 OTHENES*= " O " +ES* 

790  I FE  > 1 ANDE< 1 2THENEN*=R 1 6HT* ( STR* ( E+ 1 8 
) ,2) :G0T0810 

800  EN*="02":EM*="?TIME  0UT":60T0830 
810   IFE=70RE=8THENEM*="WRITE  ERROR": GOTO 

830 

820  EM*="READ  ERROR" 

830  PRINT" tDOWN> "EN*",    "EM*"  ,  "ET$"  ,  "ES* 
840  PRINT" CDOWN>  ^ RVSi  FAI LED ^R0FF3 " 
850  CLOSE 15 
860  END 
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100  REM  COPY  TRACK  8<  SECTOR  -  1541 

110  PRINT" <CLR> COPY  TRACK  &  SECTOR  -  154 

1" 

120  PRINT" <DOWN> INSERT  MASTER   IN  DRIVE" 
130   INPUT" <DOWN J TRACK  AND  SECTOR  <T,S)"; 
T,S 

140   I FT< 1 ORT  >35THENEND 

150  NS=20+2» (T>17)  +  <T>24)  +  (T>30) 

160  IFS<OORS>NSTHENEND 

170   INPUT" tDOWN>ARE  YOU  SURE     YtLEFT  3> " 

180  IFD*<>"Y"THENEND 

190  0PEN15,8, 15 

200  PRINT#15, "10" 

210  INPUT#15,EN*,EM*,ET*,ES* 

220  IFEN*="00"G0T0270 

230  PRINT"  <:D0WN>  "EN*"  ,    "EM*"  ,  "ET*"  ,  "ES* 

240  CLOSE 15 

250  END 

260  REM  SEEK 

270  J0B=176 

280  G0SUB570 

290  IFE=1G0T0320 

300  G0T0690 

310  REM  READ 

320  J0B=128 

330  G0SUB570 

340  IFE=1G0T0360 

350  G0T0690 

360  CLOSE 15 

370  PRINT" <DOWN> INSERT  CLONE   IN  DRIVE" 
380  PRINT"PRESS   <:RVS> RETURN <:R0FF>   TO  CON 
TINUE" 

390  GETC* : I FC*= " " THEN390 

400   I FC*<  >CHR*  < 1 3  >  G0T0390 

410  PR I NT "OK" 

420  0PEN15,a, 15 

430  REM  SEEK 

440  J0B=176 

450  G0SUB570 

460  IFE=1G0T0490 

470  G0T0690 

480  REM  WRITE 

490  J0B=144 

500  GOSUB570 

510  IFE=lGOT0530 

520  G0T0690 

530  CLOSE 15 

540  PR I NT " ^ DOWN J  DONE ! " 
550  END 
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560  REM  JOB  OUEUE 
570  TRY=0 

580  PRINT#15, "M-W"CHR*(8)CHR*(0)CHR*(2)C 
HR*(T)CHR*(S) 

590  PR  I  NT#  1 5 ,  ■•  M- W  "  CHR*  ( 1 )  CHR*  ( O )  CHR*  (DC 

HR*(JOB) 

600  TRY=TRY+1 

610  PRINT#15, "M-R"CHR*(1)CHR*(0) 

620  GET#15,E* 

630  IFE*=""THENE*=CHR*(0) 

640  E=ASC(E*) 

650  IFTRY=500G0T0690 

660  IFE>12760T0600 

670  RETURN 

680  REM  ERROR  HANDLER 

690  ET*=RIGHT* (STR* (T) , LEN (STR* (T) ) -1 ) 
700   I FT< 1 OTHENET*= " O " +ET* 
710  ES*=RI6HT*(STR*(S) , LEN (STR* (S) )-l) 
720  I FS< 1 0THENES*= " O " +ES* 

730  I FE  > 1 ANDE< 1 2THENEN*=R 1 6HT* ( STR* ( E+ 1 8 
) ,2) :60T0750 

740  EN*="02":EM*="?TIME  0UT":G0T0770 
750  IFE=70RE=8THENEM*="WRITE  ERROR": GOTO 
770 

760  EM*="READ  ERROR" 

770  PRINT" {DOWN} "EN*",    "EM*" , "ET*" , "ES* 
780  PRINT" tDOWNJ  ^RVS>FAILEDtROFF} " 
790  CLOSE 15 
800  END 
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100  REM  RECOVER  TRACK  &  SECTOR  -  1541 
110  PRINT"  <:CLR3  RECOVER  TRACK  St  SECTOR  - 
1541" 

120  PRINT"  <:D0WN>  INSERT  DISKETTE   IN  DRIVE 

II 

130   INPUT"  <:D0WN3  RECOVER  TRACK  AND  SECTOR 

<T,S)  ";T,S 
140  IFT<10RT>35THENEND 
1 50  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  <  T  >30 ) 
160  IFS<OORS>NSTHENEND 

170   INPUT" CDOWNDARE  YOU  SURE     YtLEFT  3> " 

;q% 

1 80   I FQ*<  > " Y " THENEND 

190  0PEN15,8, 15 

200  PRINT#15, "10" 

210  INPUT#15,EN*,EM*,ET*,ES* 

220  IFEN*="00"G0T0290 

230  PRINT"  <:D0WN>  "EN*",    "EM*"  ,  "ET*"  ,  "ES* 

240  PRINT"  <:down> PRESS  <:rvs>return<:roff> 

TO  CONTINUE" 

250  GETC*: IFC*=""THEN250 

260   I FC*<  >CHR* (13) G0T0250 

270  PR I NT "OK" 

280  REM  SEEK 

290  J0B=176 

300  G0SUB520 

31 O  IFE=1G0T0340 

320  GOT0640 

330  REM  READ 

340  J0B=12S 

350  G0SUB520 

360  IFE=4G0T0420 

370  IFE=5GOT0440 

380  IFEO1G0T0640 

390  PRINT" tDOWNJOO,    OK, 00, 00" 

400  CLOSE 15 

41 O  END 

420  PRINT#15, "M-W"CHR*<71)CHR*<0)CHR*<1) 

CHR*(7) 

430  REM  WRITE 

440  J0B=144 

450  G0SUB520 

460  IFE=1G0T04S0 

470  G0T0640 

480  CLOSE 15 

490  PRINT"  <:D0WNJ  DONE  !  " 

500  END 

510  REM  JOB  QUEUE 
520  TRY=0 

530  PR I NT# 15," M-W " CHR*  <  8 ) CHR*  <  O ) CHR*  <  2 ) C 
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HR*(T)CHR*(S) 

540  PR  I  NT#  15,"  M-W  "  CHR*  ( 1 )  CHR*  ( 0 )  CHR*  (DC 

HR*(JOB) 

550  TRY=TRY+1 

560  PR I NT# 15," M-R " CHR* ( 1 ) CHR* ( O ) 

570  GET#15,E* 

580   IFE*=""THENE*=CHR* (O) 

590  E=ASC(E*) 

600  IFTRY=500G0T0640 

610  IFE>127G0T0550 

620  RETURN 

630  REM  ERROR  HANDLER 

640  ET*=RIGHT*(STR«(T) ,LEN(STR*(T) )-l) 
650  I FT< 1 0THENET*= " O " +ET* 
660  ES*=R I GHT* ( STR* ( S ) , LEN ( STR* ( S ) ) - 1 ) 
670   I FS< 1 0THENES*= " O " +ES* 

680  I FE  > 1 ANDE< 1 2THENEN*=R I GHT* ( STR* ( E+ 1 8 
) ,2) :G0T0700 

690  EN*="02";EM*="?TIME  0UT":G0T0720 
700   I FE=70RE=aTHENEM*= " WR I TE  ERROR " : GOTO 
720 

710  EM*="READ  ERROR" 

720  PRINT" {D0WN> "EN*",    "EM*" , "ET*" , "ES» 
730  PRINT" {DOWN> {RVS>FAILED^ROFF> " 
740  CLOSE 15 
750  END 
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100  REM  LAZARUS  -  1541 

110  PRINT"  <:CLR>LAZARUS  -  1541" 

120  PRINT"  <:  DOWN  >  INSERT  DISKETTE   IN  DRIVE 

II 

130   INPUT"  tHOMEXDOWN  4>ATTEMPT  A  RESURR 

ECTION    (Y/N)      YtLEFT  3> " ; Q* 

140  IFQ«<>"Y"THENEND 

150  0PEN15,8, 15 

160  REM  SEEK 

170  F0RT=1TG35 

1 80  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

190  T*=RIGHT* (STR* (T) , LEN (STR* (T) ) -1 ) 

200  IFT<10THENT*="0"+T* 

210  J0B=176 

220  G0SUB510 

230  IFE=1G0T0250 

240  BD=BD+ 1 : R=R+NS : G0T0420 

250  REM  READ 

260  FORS=OTONS 

270  S*=R I GHT* ( STR* ( S ) , LEN ( STR* ( S ) ) - 1 ) 
280   I FS< 1 OTHENS*= " O " +S* 

290  PRINT"  <:  HOME  ><:  DOWN  6><:RVS>RESURRECTIN 

g<:roff>  track  "t*"  -  sector  "s* 

300  J0B=12e 
310  G0SUB510 
320  IFE=1G0T0410 
330  R=R+1 

340   I FE<  >4ANDE<  >5G0T04 1 0 
350  IFE=5G0T03S0 

360  PRINT#15, "M-W"CHR*(71)CHR*(0)CHR*(1) 

CHR*(7) 

370  REM  WRITE 

380  J0B=144 

390  G0SUB510 

400  IFE<>1THENW=W+1 

410  NEXTS 

420  NEXTT 

430  CLOSE 15 

440  PRINT" < HOME X DOWN  6> 

II 

450   IFBD=35THENPRINT"  {HOMEXDOWN  6>?BAD 
DISK": END 

460  PRINT"  < HOME X DOWN  6>READ  ERRORS  "R 
470  PRINT" tDOWNJWRITE  ERRORS: "W 
480  PRINT"  <:D0WN>D0NE  !  " 
490  END 

500  REM  JOB  QUEUE 
510  TRY=0 

520  PRINT#15, "M-W"CHR«(8)CHR*(0)CHR*(2)C 
HR* (T)CHR* (S) 
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530  PRINT#15, "M-W"CHR*(1)CHR*(0)CHR*(1)C 

HR*(JOB) 

540  TRY=TRY+1 

550  PR I NT# 1 5 , " M-R " CHR* ( 1 ) CHR* ( O ) 

560  GET#15,E* 

570   I FE*= " " THENE*=CHR* ( O ) 

580  E=ASC(E*) 

590  IFTRY=500G0T0610 

600  IFE>127G0T0540 

610  RETURN 
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lOO  REM  INTERROGATE  FORMATTING  ID'S  -  15 
41 

no  DIMT(35) 
120  F0RI=1T035 
130  T(I)=1 
140  NEXT I 

150  PRINT"  <:CLR>  INTERROGATE  FORMATTING  ID 
'S  -  1541" 

160  PRINT"  <:D0WN>  INSERT  MASTER  IN  DRIVE" 
170  PRINT"  {DOWN>PRESS  <:RVS>RETURN<:R0FF> 
TO  CONTINUE" 

1 80  GETC* : I FC*= " " THEN 1 SO 

190  IFC*<>CHR*<13)G0T0180 

200  0PEN15,8, 15 

210  PRINT" {CLR>" 

220  REM  SEEK 

230  F0RT=1T035 

240  IFT<T)=0G0T0440 

250  G0SUB550 

260  IFE01GOT0410 

270  PRINT*»15,  "M-R"CHR*(22)CHR*<0) 

280  GET#15, I* 

290  IFI*=""THENI*=CHR*<0) 

300  I=ASC(I*) 

310   I*=RIGHT*<STR*(I) ,LEN(STR*(I) )-l) 

320  PR I NT# 1 5 , " M-R " CHR*  <  23 ) CHR* ( O ) 

330  GET#15,D* 

340   I FD*= " " THEND*=CHR*  <  O ) 

350  D=ASC(D*) 

360  D*=RIGHT*<STR*(D) ,LEN<STR*<D) )-l) 
370   I *= " CHR*  < "  + 1 *+ " ) " 
380  D*= " CHR* ( " +D*+ " ) " 
390   ID*=I*+"   +  "+D* 
400  G0T0450 

410   IFE=3THENID*="?NO  SYNC  MARKS" : G0T045 

O 

420  IFE=2THENID*="?HEADER  BLOCKS  NOT  PRE 
SENT":G0T0450 

430   IFE=9THENID*="?CHECKSUM  ERROR   IN  HE A 

DERS":G0T0450 

440    ID*="?TIME  OUT" 

450  T*=RIGHT* (STR* (T) , LEN (STR* (T) ) -1 ) 

460   IFT<10THENT*="  "+T* 

470  PR I NT "TRACK   "T*"   =  "ID* 

480  REM  PAUSE 

490  GETC* : I FC*= " " 60T05 1 O 

500  6ETCS : I FC*= " " THEN500 

510  NEXTT 

520  CLOSE 15 

530  END 
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540  REM  JOB  QUEUE 
550  TRY=0 

560  PRINT#15, "M-W"CHR*<8)CHR*<0)CHR$(2)C 
HR*  <T)  CHR*  <0) 

570  PRINT#15,  ■■M-W"CHR*(1)CHR*<0)CHR*(1)C 

HR*  < 176) 

580  TRY=TRY+1 

590  PR I NT# 15," M-R " CHR* ( 1 ) CHR*  <  O ) 

600  GET#15,E* 

6 1 0   I FE*= " " THENE*=CHR*  <  O ) 

620  E=ASC<E*) 

630  IFTRY=500G0T0650 

640  IFE>127G0T0580 

650  RETURN 
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100  REM   INTERROGATE  A  TRACK  -  1541 

110  PRINT"  <:CLR>  INTERROGATE  A  TRACK  -  154 

1" 

120  PRINT"  <:D0WN>  INSERT  MASTER   IN  DRIVE" 
130   INPUT"  <:D0WN>  INTERROGATE  TRACK"  ;T 
140  IFT<10RT>35THENEND 

150   INPUT"  <:D0WN>  ARE  YOU  SURE     Y CLEFT  3>  " 

;q* 

1 60  i fq*<  > " y " thenend 

170  0PEN15,a, 15 

1 80  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  <  T  >30 ) 

190  REM  SEEK 

200  J0B=176 

210  G0SUB370 

220  REM  READ 

230  PRINT"  {:CLR>" 

240  FORS=OTONS 

250  J0B=12a 

260  G0SUB370 

270  S*=RIGHT*(STR*(S) ,LEN<STR*<S) )-l) 
280   IFS<10THENS*="  "+S* 
290  PRINT" TRACK " ; T ; " -   " ; 

300  IFE=1THENPRINT"SECT0R  "S*"  =  OK": GOT 
0330 

310  IFE>1ANDE<12THENEM*=STR* (E+18)+"  REA 
D  ERROR" 

320  PR I NT "SECTOR   "S*"  ="EM* 
330  NEXTS 
340  CL0SE15 
350  END 

360  REM  JOB  QUEUE 
370  TRY=0 

380  PRINT#15, "M-W"CHR*(8)CHR*(0)CHR*(2)C 
HR*<T)CHR*(S) 

390  PRINT#15, "M-W"CHR*(1)CHR*<0)CHR*<1)C 

HR* (JOB) 

400  TRY=TRY+1 

410  PRINT#15, "M-R"CHR*<1)CHR*(0) 

420  GET#15,E* 

430   I FE*= " " THENE*=CHR*  <  O ) 

440  E=ASC(E*) 

450  IFTRY=500G0T0480 

460  IFE>127G0T0400 

470  RETURN 

480  EM*="?TIME  OUT" 

490  RETURN 
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100  REM  SHAKE,   RATTLE,   &  ROLL  -  1541 
110  PRINT"  <:CLR  J  SHAKE,   RATTLE,   &  ROLL  -  1 
541" 

120  PRINT"  <:D0WN>  INSERT  DISKETTE  IN  DRIVE 

II 

130  INPUT" tDOWN J CLATTER  TRACK" ;T 
140  1 FT< 1 ORT  >35THENEND 

150  INPUT"  <: DOWN > ARE  YOU  SURE     Y<LEFT  3J  " 

;q$ 

160  IFQ*<>"Y"THENEND 
170  0PEN15,S, 15 
180  0PEN2,S,2, "#" 
190  PRINT"  <:CLR>" 
200  REM  SEEK 
210  G0SUB360 

220  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 
230  FORS=OTONS 
240  REM  READ 

250  PRINT#15, "Ui";2;0;T;s 
260  INPUT#15,EN*,EM*,ET*,ES* 

270  PRINT"TRACK";T; "- 

280  I FEN*= " CO " THENPR I NT " SECTOR " ; S ; " =  OK " 
: G0T0300 

290  PR I NT "SECTOR  "ES*"  =  "EN*"  "EM* 
300  NEXTS 
310  CL0SE2 

320  INPUT#15,EN*,EM*,ET*,ES* 
330  CLOSE 15 
340  END 

350  REM  JOB  QUEUE 
360  TRY=0 

370  PRINT#15, "M-W"CHR*(8)CHR*(0)CHR*(2>C 
HR*(T)CHR*(S> 

380  PRINT#15, "M-W"CHR*(17CHR*(0>CHR*( DC 

HR*( 176) 

390  TRY=TRY+1 

400  PRINT#15, "M-R"CHR* ( 1 ) CHR* (0) 

410  GET#15,E* 

420   I FE*= " " THENE*=CHR* ( O  > 

430  IFTRY=500G0T0460 

440  I F ASC ( E* ) > 1 27G0T0390 

450  RETURN 

460  CL0SE2 

470  INPUT#15,EN*,EM*,ET*,ES* 
480  CLOSE 15 

490  PRINT"  <DOWN>  <RVSJFAILED<:R0FFJ  " 
500  END 
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100  REM   INTERROGATE  A  DISKETTE  -  1541 
110  DIMT(35) 
120  F0RI=1T035 
130  T(I)=1 
140  NEXT I 

150  PRINT" <CLR> INTERROGATE  A  DISKETTE  - 
1541" 

160  PRINT" tDOWN> INSERT  MASTER  IN  DRIVE" 
170  PRINT"  CDOWNJPRESS  <:RVS> RETURN <:R0FF> 
TO  CONTINUE" 

180  GETC*: IFC*=""THEN180 

190  IFC*<>CHR*(13)G0T0180 

200  PR I NT "OK" 

210  PRINT 

220  0PEN15,8, 15 

230  F0RT=1T035 

240  IFT(T)=OGOT0390 

250  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  ( T  >30 ) 

260  REM  SEEK 

270  J0B=176 

280  G0SUB430 

290  REM  READ 

300  F0RS=0T0NS 

310  J0B=128 

320  G0SUB430 

330  IFE=1G0T0330 

340  S$=RIGHT$ (STR* (3) ,LEN(3TR$<S) )-l) 
350   IF3< 10THENS*="  "+S* 

360  I FE  > 1 ANDE< 1 2THENEM*=STR* ( E+ 1 8 ) + "  RE A 
D  ERROR" 

370  PRINT"TRACK";T; "-  SECTOR   "3*"  ="EM* 
380  NEXTS 
390  NEXTT 
400  CLOSE 15 
410  END 

420  REM  JOB  QUEUE 
430  TRY==0 

440  PR I NT# 15," M-W " CHR* ( 8 ) CHR* ( O ) CHR* ( 2 ) C 
HR*(T)CHR*(S) 

450  PRINT#15, "M-W"CHR*(1)CHR*(0)CHR*(1)C 

HR* (JOB) 

460  TRY=TRY+1 

470  PRINT#15, "M-R"CHR$(1)CHR*(0) 

480  GET#15,E* 

490   I FE$= " " THENE*=CHR$ ( O ) 

500  E=ASC(E*) 

510  IFTRV=500G0T0540 

520  IFE>127G0T0460 

530  RETURN 

540  EM*="?TIME  OUT" 

550  RETURN 
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100  REM  DUMP  TRACK  &  SECTOR  -  1541 
110  P0KE56, 159 
120  CLR 

130  PRINT"  tCLR J- DUMP  TRACK  &  SECTOR  -  154 
1" 

140  PRINT" tDOWN> INSERT  DISKETTE   IN  DRIVE 

II 

150  INPUT"  ^D0WN3  TRACK  8<  SECTOR  (T,S)";T, 
S 

1 60   I FT< 1 ORT  >35G0TO63O 

1 70  NS=20+2* ( T  > 1 7 )  +  ( T  >24 )  +  <  T  >30 ) 

180  IFS<00RS>NSG0T0630 

190  INPUT"  <: DO WN> ARE  YOU  SURE  YtLEFT  3>" 
;Q$ 

200   I FQ*<  > " Y " G0T0630 

210  0PEN15,8, 15 

220  PRINT#15, "10" 

230  INPUT#15,EN*,EM*,ET*,ES* 

240  IFEN*="00"G0T0290 

250  PRINT"  <:D0WN>  "EN*",  "EM*",  "ET*",  "ES* 
260  PRINT" tDOWN> PRESS  tRVS>RETURN<ROFF> 
TO  CONTINUE" 

270  GETC* : I FC*= " " THEN270 

280   I FC*<  >CHR*  < 1 3 ) G0T0270 

290  T*=RIGHT*(STR*<T) ,LEN<STR*<T) ) -1 ) 

30O   I FT< 1 OTHENT*= " O " +t* 

310  S*=RIGHT*(STR*(S) ,LEN(STR*<S) )-l) 

320   I FS< 1 OTHENS*= " O " +S* 

330  REM  SEEK 

340  J0B=176 

350  G0SUB670 

360  IFE=<>1G0T0410 

370  REM  READ 

380  J0B=128 

390  G0SUB670 

4O0  IFE=10RE=40RE=5G0T0510 

410  I FE  > 1 ANDE< 1 2THENEN*=R I GHT*  <  STR* ( E+ 1 8 
) ,2) :G0T0430 

420  EN*="02":EM*="?TIME  0UT":G0T0440 
430  EM*="READ  ERROR" 
440  ET*=T* 
450  ES*=S* 

460  PRINT" tDOWNl "EN*", "EM*", "ET*", "ES* 

470  CLOSE 15 

480  P0KE56, l60 

490  CLR 

500  END 

510  F0RJ=0T031 

520  FORI=OT07 

530  PR I NT# 15," M-R " CHR*  <  J  ^8+ 1 ) CHR* ( 4 ) 
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540  GET#15,D* 

550  D= ASC ( D*+CHR* ( O ) ) 

560  POKE (40704+ J *8+ I ) , D 

570  NEXT I 

580  NEXTJ 

590  CL0SE15 

600  PRINT" tDOWN> DONE! " 

610  PRINT" tD0WN>P0KE56, 160: CLR" 

620  END 

630  P0KE56, 160 
640  CLR 
650  END 

660  REM  JOB  QUEUE 
670  TRY=0 

680  PR I NT# 15," M-W " CHR* ( 8 ) CHR* ( O ) CHR* ( 2 ) C 
HR*(T)CHR*(S) 

690  PRINT#15, "M-W"CHR*(1)CHR*(0)CHR*(1)C 

HR*<JOB) 

700  TRY=TRY+1 

710  PRINT#15, "M-R"CHR*<1)CHR*(0) 

720  GET#15,E* 

730   I FE*= " " THENE*=CHR* ( O ) 

740  E=ASC(E*) 

750  IFTRY=5OOG0TO77O 

760  IFE>127G0T0700 

770  RETURN 
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100  REM  BULK  ERASER  -  1541 

110  PRINT"  <:CLR> BULK  ERASER  -  1541" 

120  PRINT" CDOWNJ INSERT  DISKETTE  IN  DRIVE 

II 

130  input"<:downj<:rvs>erase<:roff>  this  di 
SKETTE    y<:left  3>";Q* 

140  IFQ*<>"Y"THENEND 

150  INPUT"  <: DOWN >  ARE  YOU  SURE  Y CLEFT  3>  " 
;Q$ 

1 60   I FQ*<> " Y " THENEND 

170  0PEN15,8, 15 

180  F0RI=0T023 

190  RE ADD 

200  D*=D*+CHR*(D) 

210  NEXTI 

220  PRINT#15, "M-W"CHR* (O) CHR* (4) CHR* (24) 
D* 

230  F0RT=1T035 

240  PRINT"  t  HOME  ><:  DOWN  8>  CRVS>  ERASING  CROP 

F>  TRACK "T 

250  REM  SEEK 

260  J0B=176 

270  GOSUB360 

280  REM  EXECUTE 

290  J0B=224 

300  GOSUB360 

310  NEXTT 

320  PRINT" CHOMEJCDOWN  8>DONE! 

II 

330  CLOSE 15 
340  END 

350  REM  JOB  QUEUE 
360  TRY=0 

370  PRINT#15, "M-W"CHR*(8>CHR*<0)CHR*(2)C 
HR*<T)CHR*<0) 

380  PRINT#15, "M-W"CHR*(1)CHR*(0)CHR*(1)C 

HR*(JOB) 

390  TRY=TRY+1 

400  PRINT#15, "M-R"CHR*(1)CHR*<0) 

410  GET#15,E* 

420  IFE*=""THENE*=CHR*(0) 

430  E=ASC<E*) 

440  IFTRY=500G0T0470 

450  IFE>127G0T0390 

460  RETURN 

470  CLOSE 15 

480  PRINT"  {:down>  {:rvs>failed{:roff> " 

490  END 

500  REM  21  ERROR 
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51 O  DATA  32,163,253,169,  85,141,  1,  28 
520  DATA  162,255,160,  48,  32,201,253,  32 
530  DATA       0,254,169,      1,  76,105,249,234 
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APPENDIX  D 

MATHEMATICAL  COIMVERSIOIM  ROUTINES 
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100  REM  DECIMAL  TO  HEXADECIMAL 

110  H*=  ■■  0 1 23456789 ABCDEF  " 

120  PRINT"<:CLR>DECIMAL  TO  HEXADECIMAL 

130  D=-l 

140   INPUT" £DOWN> DECIMAL  "  ;  D 

150  IFD<00RD>255THENEND 
160  H=INT(D/16) 
170  L=D-(H*16) 

180  HD*=MID*(H*,H+1, 1 ) +MID* (H*, L+1 , 1) 
190  PR  I  NT     DOWN  >  HEXADECIMAL:  "HD* 
200  GOTO 130 
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100  REM  HEXADECIMAL  TO  DECIMAL 

110  H*= "01 23456789 ABCDEF " 

120  PR  I  NT  "<:CLR>  HEXADECIMAL  TO  DECIMAL" 

130  HD*="" 

140  INPUT"  <:down>hexadecimal";hd* 

150  IFLEN(HD*)=OTHENEND 
1 60  I FLEN ( HD* ) <  >2THENEND 
170  H=0 

ISO  F0RI=1T016 

190  IFLEFT*(HD*, 1)=MID*(H*, I, 1)THENH=I 
=  16 

200  NEXT I 

210  IFH=0G0T0130 

220  H=H-1 

230  L=0 

240  F0RI=1T016 

250  IFRIGHT*(HD*, 1)=MID*(H*, I, 1)THENL= 
1  =  16 

260  NEXT I 

270  IFL=0G0T0130 

280  L=L-1 

290  D=H*16+L 

300  PR INT" C DOWN 3  DECIMAL         : "D 
310  G0T0130 
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100  REM  DECIMAL  TO  BINARY 
1 10  DEFFNB  (B)  =2-^  (B-INT  (B/8)  *8)  ANDD 
120  PRINT"  <:CLR> DECIMAL  TO  BINARY" 
130  D=-l 

140  input"<:downjdecimal";d 

150  IFD<00RD>255THENEND 
160  PRINT"  <:D0WN> BINARY   :  "j 
170  F0RB=7T00  STEP-1 

ISO   I FFNB ( B ) =0THENPR I NT " O " ; : G0T0200 
190  PRINT" 1"; 
200  NEXTB 
210  PRINT 
220  G0T0130 


491 


100  REM  BINARY  TO  DECIMAL 

110  PRINT"  <:CLR> BINARY  TO  DECIMAL" 

120  B*="" 

130  INPUT"  <:D0WN3  BINARY  (E.G.,  lOlOlOlO) 
;B$ 

140  IFLEN(B*)=0THENEND 

1 50   I FLEN ( B*  X  >aTHENEND 

160  B=0 

170  D=0 

ISO  FDRI=lTOa 

190  IFMID*(B*,  I,  l)="l"THENB=B+l:D=D+2'^( 
-I) :G0T0210 

200  IFMID*(B*, I, 1)="0"THENB=B+1 

210  NEXTI 

220  IFB<>aGGT0120 

230  PRINT"  <:D0WN>DECIMAL 

"D 

240  GOTO 120 
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100  REM  HEXADECIMAL  TO  GCR 

110  H*= " O 1 23456789 ABCDEF " 

120  DIMB*<15) 

130  B*(0) ="01010" 

140  B*(l)="01011" 

150  B* (2) ="10010" 

160  B* (3) ="10011" 

170  B*<4)="01110" 

180  B*(5)="01111" 

190  B*(6)="lO110" 

200  B*(7)="10111" 

210  B* (8) ="01001" 

220  B* (9) ="11001" 

230  B*( 10) ="11010" 

240  B*(ll)="11011" 

250  B*(12)="01101" 

260  B*(13)="11101" 

270  B*(14)="11110" 

280  B*( 15) ="10101" 

290  PR  I  NT  "<:CLR>  HEXADECIMAL  TO  GCR" 
300  HG*="" 

310  INPUT"  <:D0WN3  HEXADECIMAL  (E.G.,  034A0 
023) "; HG* 

320   I FLEN ( HG* ) =0THENEND 
330   I FLEN ( HG* ) <  >8THENEND 
340  F0RI=1T04 

350  HG* ( I) =MID*(HG*, 1*2-1,2) 

360  NEXT I 

370  F0RJ=1T04 

3B0  H(J)=0 

390  F0RI=1T016 

400   IFLEFT*(HG*(J) , 1)=MID*(H*, I, 1 ) THENH ( 
J)=l: 1=16 
410  NEXTI 

420  IFH<J)=0G0T0300 
430  H(J)=H(J)-1 
440  L(J)=0 
450  FDR 1=1 TO 16 

460   IFRIGHT* (HG* ( J) , 1)=MID*(H*, I, 1 ) THENL 
(J)=l: 1=16 
470  NEXTI 

480   IFL (J)=0G0T0300 

490  L(J)=L(J)-1 

500  NEXTJ 

510  F0RI=1T04 

520   I MAGE*= I MAGE*+B* ( H ( I) ) 

530   I MAGE*= I MAGE*+B* ( L ( I ) ) 

540  NEXTI 

550  PRINT"  <:DDWN3  "  IMAGE* 
560  PRINT"  <:up>"; 
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570  FQRI=1TQ8 
5SO  PR  I  NT  "-^  "; 
590  NEXT I 
600  PRINT"  <: UP >" 
610  F0RI=1T05 

620  BD*(I)=MID*(IMAGE*, 1*8-7,8) 

630  NEXT I 

640  F0RJ=1T05 

650  F0RI=1T08 

660   IFMID*(BD*<J) , I, 1 ) =" 1 "THEND ( J ) =D < J ) + 

2-^(8-1) 

670  NEXTI 

680  NEXTJ 

690  F0RI=1T05 

700  H=INT(D(I) /16)+1 

710  L=D(I)-(H-1)*16+1 

720  DH*(I)=HID*<H*,H, 1 ) +MID* (H*,  L,  1) 
730  NEXTI 

740  PRINT"  <:down>hexadecimal: 

750  F0RI=1T04 

760  PRINTHG*(I) ; "  "> 

770  NEXTI 

780  PRINT 

790  PRINT"  <:down>gcr  :  "; 

800  F0RI=1T05 

810  PRINTDH*(I) ; "  "; 

820  NEXTI 

830  PRINT 

840  PR I NT " CDOWNJ  DONE ! " 
850  END 
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lOO  REM  GCR  TO  HEXADECIMAL 

110  H*= " O 1 23456789ABCDEF " 

120  DEFFNB  <B)  =2'MB-INT  (B/8)  *8)  ANDD 

130  DIMB*<15) 

140  B* <0) ="01010" 

150  B*<1)="01011" 

160  B* (2) ="10010" 

170  B*<3)=" 10011" 

180  B* <4) ="01 1 10" 

190  B*<5)="01111" 

200  B*<6)="10110" 

210  B*(7)="10111" 

220  B*<8)="01001" 

230  B* (9) ="11001" 

240  B*< 10) ="11010" 

250  B*<11)="11011" 

260  B*<12)="01101" 

270  B*<13)="11101" 

280  B*<14) ="11110" 

290  B*<15)="10101" 

300  PRINT" CCLR>GCR   TO  HEXADECIMAL" 

31 O  GH*="" 

320  INPUT"  <:D0WN>GCR  (E.G.,  525DA52A53 )  "  ; 
GH* 

330  I FLEN  <  GH* ) =0THENEND 

340  I FLEN  <  GH* ) <  > 1 OTHENEND 

350  F0RI=1TD5 

360  GH*<I)=MID*(GH*, 1*2-1,2) 

370  NEXT I 

380  F0RJ=1T05 

390  H<J)=0 

4O0  FDRI=1T016 

410  IFLEFT*<GH*<J) , 1)=MID*<H*, I, 1 ) THENH < 
J)=l: 1=16 

420  NEXT I 

430  IFH< J)=0G0TO31O 

440  H<J)=H<J)-1 

450  L<J)=0 

460  FORI=lT016 

470  IFRIGHT* (GH*<J) , 1)=MID*<H*, I, 1 ) THENL 
< J) =1 : 1=16 

480  NEXTI 

490  IFL<J)=0G0T0310 

500  L<J)=L(J)-1 

510  NEXT J 

520  FDRI=1T05 

530  HD<I)=H(I)*16+L(I) 

540  NEXTI 

550  IMAGE*="" 

560  F0RI=1T05 
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570  D=HD(I) 

580  F0RB=7T00  STEP-1 

590  I FFNB ( B ) =OTHEN I M AGE*= I M AGE*+ " O " : GOTO 
610 

600   I MAGE*= I MAGE*+ " 1 " 
610  NEXTB 
620  NEXT I 

630  PRINT" tDDWN>" IMAGE* 

640  PRINT"  •CUP>"; 

650  F0RI=1T05 

660  PRINT"'"  "; 

670  NEXT I 

680  PRINT"  •CUP>" 

690  FDRI=1TD8 

700  H* ( I )=MID$< IMAGE*, 1*5-4,5) 
710  NEXTI 
720  FDRJ=1T08 
730  FDRI=0T015 

740   IFH*(J)=B*(I)THEND(J)=I+l: 1=15 

750  NEXTI 

760  NEXTJ 

770  F0RI=1T08 

780   I FD  < I) =OTHENBDE= 1 

790  NEXTI 

800  IFBDE=lGOT094O 

810  PRINT"  <: DOWN >GCR  :  "j 

820  F0RI=1T05 

830  PRINTGH*(I) "  "; 

840  NEXTI 

850  PRINT 

860  PRINT" cdown>hexadecimal: 

870  F0RI=1T08 

880  PRINTMID*(H*,D(I) , 1) ; 

890   IFI/2=INT(I/2)THENPRINT"  "; 

900  NEXTI 

910  PRINT 

920  PRINT"  <:DGWN>D0NE  i  " 

930  END 

940  F0RI=1T08 

950   IFD  ( I )  =OTHENPRINT"  <RVS>  "H*  <  I )  "  {ROFF}- 

" ; : G0T0970 

960  PRINTH*(I)  ; 

970  NEXTI 

980  PRINT"  CD0WN>{:RVS> BYTE  DECODING  ERROR 

CROFF>" 

990  END 
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INDEX 
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I 


INDEX 


A 


aborted  validate  routine  27 

asterisks  in  file  names  24-25 

autoinitialization  feature  22 

B 

B-A     72 

B  E    72 

B  F    72 

BP    71 

bad  sectoring   122 

backup  of  a  protected  diskette   162 

BAM   21,  26,  36-40 

binary  to  GCR  conversion   115-116 

bit  copying   122 

bit  manipulation   115 

block  allocate  map  26 

block  availability  map  21 

block,  data   113 

header   113 

block-allocate  command  89,  113 

block-execute  command  72,  97 

block-fi-ee  71,  72,  94 

block-read      71,  98 

block-write  command    71,  77,  100 

buffer  82 

buffer  areas,  organization  of  82 

buffer-pointer  command    71,  75 

bugs  in  DOS  2.6    206-208 

bump   112 

byte  separation    114 

bytes,  determining   116 

bytes  in  the  header  block  32 

bytes  per  diskette   31 

C 

C     23 

cards,  wild  23,  24 

carriage  return  as  a  delimiter   55 

chaining   42 

characters,  sychronization   113-114 

checksum,  header  block   32 
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checksums  -     118-119 

clock  rates  30-31 

close    —    19 

coda  obscura     122 

codes,  FDC  job    109,  112 

command  channel   16 

command,  validate   -  26-27 

commands, 

block-allocate    :  89 

block-execute   97 

block-free   94 

block-read   98 

block-write   77,  100 

buffer-pointer    75 

copy   23 

direct-access     71-72 

DOS      -   15  16 

initialize    21 

LOAD   -  -  -    16 

memory-execute    96 

memory-write    85 

rename   22-23 

SAVE    -  16 

scratch   24 

validate       26-27 

VERIFY     16 

Commodore  encoding  scheme      113 

Commodore  file  types    43 

communications,  computer-disk  drive   183 

controller,  floppy  disk      103 

coping  a  locked  file     70 

copy  command     23 

D 

data  block    31,  113 

data  communication  channel   16 

DEL    69 

deleted  file     69-70 

delimiter    55 

determining  bytes     116 

DIR     49,  51 

direct  access   89 

direct-access  commands     71-72 

direct-access  data  channel   72 

disk  commands,  execution  83-184 

disk  drives,  incompatability   208 

disk,  full    91 

disk  ID    21 
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disk  interrogation   122 

disk  management   35 

disk  protection  schemes    122 

diskette,  recovering  a  physically  damaged   177 

diskette,  recovering  an  entire   177 

DOS  bugs   206-208 

DOS,  definition  of   15 

DOS  error  messages    119-121 

DOS  protection    113 

DOS,  tasks  of   15 

DOS  2.6  sync  mark   114 

duplicating  a  protection  scheme     123 

E 

encoding  scheme,  Commodore   113 

end  or  identify   99 

EOI    99 

EOR    118 

EOR  truth  table   118 

error  messages,  DOS   104,  119-121 

error,  illegal  track  or  sector  91 

illegal  quantity   74 

no  channel   83 

recovery  hard   175-176 

recovery  soft    175 

time  out   112 

write   112 

errors,  hard   175 

read   120 

read/write   175 

soft  -   175 

write    120 

execute   112 

execution  of  disk  commands   183-184 

F 

FDC    103,  182 

FDC  formatting  routine    193 

FDC  job  codes      109,  112 

FDC  main  loop   189-190 

FDC  major  entry  points   190 

FDC  read  routine      191 

FDC  routines,  major   188-193 

FDC  routines,  using   193-199 

FDC  write  routine   192 

fields  of  a  directory     36 
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1541  binary  to  GCR  look  up  table   114-115 

file,  deleted  69-70 

file  management    184-185 

file  name  limits  23 

file  open  error   19 

file  padding    53 

file,  random  access  56 

relative    56 

sequential  data  56 

side  sector   56 

user  storage    69 

file  storage,  program  48 

sequential    53 

file  types.  Commodore  43 

files,  locked    70 

fixed  record  length    66 

floppy  disk  controller   103,  182 

formatting  a  diskette  29 

forward  pointer  42,  48 

full  disk  91 

full  new,  recovering  from   179-180 

G 

GCR  conversion   114-115 

group  coded  recording   114 

H 

hard  error,  recovery   175-176 

hard  errors   175 

header  block   31,  32-33,  113 

header  block,  byte  makeup  32-34 

header  block  checksum  32 

header  block  ID  32 

header  block  layout  32 

I 

I    22 

ID  character  -2  32 

ID  HI    32 

illegal  quantity  error   74 

illegal  track  or  sector  error  91 

incompatability,  write   208-209 

initialize  command    21 

initializing  a  disk  21-22 
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inter-sector  gap   34,  117 

inter-sector  tail   117 

interface  processor   103,  182 

IP   103,  182 

IP  error  codes   103-104 

IP  routines   182-185 

J 

job  codes   107 

job  queue   105 

jobs   103 

jump    112 

L 

last  block  signal  49 

layout  of  a  header  block  32 

length,  fixed  record   66 

LOAD   16 

load  address  48 

locating  particular  relative  files    68-69 

locked  file,  coping  70 

locked  file,  renaming   70 

locked  files    70 

M 

M  E    72 

M-mode    177-178 

M  R    72 

M  W   72 

magnetic  domains   199 

major  FDC  routines   188-193 

memory-execute  command   72,  96 

memory-read  command  71,  81 

memory -write  command   71,  85 

merging  sequential  files  with  copy  command  23-24 

IM 

N    21 

naming  a  file  20-21 

NEW    21 

newing  a  diskette   29 

no  channel  error   83 

null  directory  entry   47 
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o 


organization  of  buffer  areas  82 

P 

padding  the  last  block  in  a  file   53 

parser  routine    104-105 

pointer,  forward  42,  48 

PRG  48 

processor,  interface   182 

program  file  storage  48 

programmer's  aid  24 

protected  diskette,  analyzing   122-123 

protected  diskette,  backup  of  a   162 

protection,  DOS    113 

protection  scheme,  duplication   123-124 

Q 

question  marks  in  file  names  25 

R 

random  access  file  56 

read  errors   119 

read  mode  200 

read/write  errors   175 

reallocating  sectors    173 

record  size  56 

recording  process   199 

recovering  a  hard  error   175-176 

recovering  a  physically  damaged  diskette   177 

recovering  a  relative  file    176 

recovering  a  scratched  file   173-175 

recovering  a  soft  error   175 

recovering  an  entire  diskette   177 

recovering  an  unclosed  file    177-178 

recovering  from  a  full  new   179-180 

recovering  from  a  short  new   178-179 

recovering  scratched  files  26 

recovery,  relative  file    176 

relative  file  56 

relative  file  entries   44 

relative  files   56 

relative  file,  recovery    176 

rename  command   22-23 

renaming  a  locked  file   70 

reset,  warm   100 


506 


s 


SAVE   16 

save  and  replace  operation  44-45 

scratch  command    24 

scratched  files    27 

scratched  files,  recovering  26 

scratching  a  file    24 

scratching  an  unclosed  file  27 

sector  31 

sector  filling  sequence  42 

sector  layout    31 

sector  number  32 

sectors    29 

sequential  data  file    56 

sequential  file  storage    53 

short  new,  recovering  from    178-179 

side  sector   56 

side  sector  file  56 

signal,  last  block  49 

soft  error,  recovery   175 

soft  errors    175 

ST   99 

status  variable   99 

stopgap  measure    117 

sychronization  characters   113-114 

sync  mark   31-32,  115 

sync  mark,  placement   114 

sync  mode   114 

T 

tail  gap    34,  117 

time  out  error   112 

tracing  a  file  26-27 

track  number   32 

tracks    29 

tracks  on  a  formatted  diskette  —  29 

U 

U2  71 

Ul   71 

unclosed  file,  recovering  

177-178unclosed  files  -  --  27 

unscratching  a  file   173 

user  file  storage  -  69 

using  IP  routines   185 

using  the  FDC  routines   193-199 

USR   -   69 
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V 


V  26 

validate  command    25,  26-27 

validate  routine,  aborted   27 

variable,  status   99 

VERIFY    16 

W 

warm  reset    100 

wild  cards   23 

wild  cards  in  file  names  24 

write  error  112,  120 

vmte  mode   114,  200 
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WHEN  IT  COMES  TO  BOOKS, 
WE'VE  GOT  YOU  COVERED! 

NOW  THAT  YOU'VE  GOTTEN  INSIDE"  COMMODORE  DOS . . .  ^ 

1541  User's  Guide  —  Written  by  one  of  the  authors  of  Inside 
Commodore  DOS,  this  book  proves  to  be  the  perfect  complement  to 
Inside  Commodore  DOS.  This  book  shows  you  how  to  make  more 
effective  use  of  your  1541  disk  drive.  It  expands  the  documentation 
that  came  with  your  1541  disk  drive.  Practical  information  on  setting 
up  and  operating  the  disk  drive  as  well  as  the  DOS  which  came  with 
your  drive  is  included.  Diskette  housekeeping  is  throughly  discussed 
including  how  to  format  or  initialize  a  disk,  and  renaming,  copying, 
and  combining  files.  Complete  your  knowledge  of  the  1541  with  the 
1541  User's  Guide.  $19-95 


The  Elementary  Commodore 

Explains  the  Commodore  64  in 
simple,  everyday  language.  How  to 
hook  it  up,  use  the  keyboard,  and 
program  in  BASIC.  Teaches  about 
word  processing,  utilities  and 
peripherals.  S  14.95 

Games  Commodores  Play 

A  collection  of  classic  computer 
games  that  teaches  BASIC  using  a 
games  and  graphics  approach. 
Simply  type  them  in  and  make  your 
own  modifications.  S  14.95 

Intermediate  Commodore 

Takes  you  from  being  a  fledging 
programmer  and  teaches  important 
principles  so  you  can  handle  more 
complicated  problems.  Helps  you 
take  that  step  from  elementary 
BASIC  programming  to  machine 
language  programming.  S14.95 

The  Musical  Commodore 

Introduces  you  to  music  theory  and 
computing  at  the  same  time.  For 
beginners  as  well  as  pros,  this  book 
helps  you  turn  your  C-64  into  a 
musical  instrument.  S14.95 

Computers  &  Writing 

An  innovative  approach  to  teaching 
children  to  write  using  the 
computer.  Topics  discussed  include 
computers  in  the  classroom, 
adapting  traditional  teaching 
methods  to  include  computers, 
setting  up  a  creative  environment  at 
home  and  more.  For  both  parents 
and  teachers.  S9-95 

A  Shortcut  Through 
Adventureland,  Volume  I 

Contains  answers  to  14  of  the  most 
popular  hi-res  puzzle  solving 
adventures  including  Wizard  and  the 
Princess,  Cranston  Manor,  The  Dark 
Crystal,  Escape  from  Rungistan, 
Time  Zone  and  more.  S9-95 


Available  at  better  book  and 
computer  stores,  or  contact  Datamost 


The  C-64  Home  Companion 

This  is  the  book  that  should  have 
come  with  your  Commodore  64. 
Straight  answers  to  home  computing 
questions,  dozens  of  software 
reviews,  BASIC  and  more!  S19.95 

C-64  Game  Construction  Kit 

Shows  you  how  to  write  your  own 
BASIC  games!  This  unique  book 
gives  examples  of  different  games 
and  teaches  fundemental  lessons  of 
quality  game  programming.  S  14.95 

Super  Computer  Snooper  (C-64) 

Learn  how  the  computer  "thinks." 

Investigate  memory,  screens, 
programs  and  variables,  keyboards, 
printers,  and  expansion  boards,  and 
much  more!  S14.95 

Programming  for  Profit 

Aimed  at  the  programmer  who 
wants  to  get  his  or  her  software 
published.  This  is  a  unique 
guidebook  through  the  maze  of 
traditions,  rules  and  standards  in  the 
software  industry.  Contains  hints 
and  tricks  of  the  trade 
and  much  more!  S14.95 

C-64  Logo  Worlcboolc 

Teaches  children  in  grades  2-6 
how  the  Logo  language  can  be  used 
for  problem  solving.  Learn  about  the 
"turtle,"  variables,  geometry  and 
recursion.  S12.95 

Kids  to  Kids  on  tlie  C-64 

Written  by  kids  for  kids,  explains 
BASIC  programming  in  simple, 
straightforward  language.  Two 
chapters  arc  devoted  to  sound  and 
graphics,  and  another  shows  how  to 
write  an  original  game.  S9.95 

A  Shortcut  Through 
Adventureland,  Volume  II 

The  cheater's  guide  to  all  of 
Infocom's  text  adventures  to  date: 
The  Zork  Trilogy.  Infidel,  The 
Witness,  Deadline  and  Enchanter  to 
name  a  few.  S9.95 


SMART  PERIPHERALS  FOR  THE 
COMMODORE  64! 


KWIK-LOAD! 
KWIK-PAD! 


$19.95  Each 


KWIK-WRITE! 
KWIK-PHONE! 


Tired  of  paying  850,  875  or  even  8100  for  quality 
products  for  your  Commodore  64?  If  so,  try  our 
KWIK-WARE!  line.  At  just  « 19.95,  each  KWIK-WARE! 
product  delivers  high  quality  at  an  unbeatable  price, 
and  all  KWIK-WARE!  products  are  fully  compatable 
with  one  another. 


KWIK-LOAD!,  winner  of  Softsel's  award  for  the  hottest 
selling  new  utility  of  1984,  is  the  basis  for  all  KWIK-WARE! 
products,  all  of  which  have  the  extra  speed  of  KWIK-LOADl 
built-in.  KWIK-LOAD]  loads  and  copies  files  over  300%  faster 
than  normal  Commodore  DOS.  It  includes  KWIK-COPYl,  a 
menu  driven  group  of  utilities  which  lets  you  perform  DOS 
commands,  check  drive  speed,  edit  sectors  on  disk,  and 
alphabetize  disk  directories. 

KWIK-PAD!,  a  co-resident  secretary  program.  This  handy 
utility  features  a  built-in  calculator  mode,  memo  pad, 
appointment  book,  calendar,  address  book  and  more! 

KWIK-WRITE!  offers  all  the  features  of  more  costly  word 
processors  for  a  fraction  of  the  price.  Fully  menu  driven, 
KWIK-WRITBl  features  full  fledged  help  screens,  cut  and  paste, 
search  and  replace,  print  preview,  screen  displays  up  to  132 


characters  wide,  a  full  range  of  embedded  printer  commands, 
and  much  more. 

KWIK-PHONE!,  a  complete  telecommunications  package 
featuring  simple  command  menus.  It  is  compatible  with 
acoustic  or  direct-connecl  modems.  The  exclusive,  built-in 
KWIK-MAIV.  feature  will  answer  your  phone  automatically  to 
send  or  receive  text,  programs  or  hi-res  graphics  and  a 
built-in  phone  book  stores  thousands  of  phone  numbers. 

Be  sure  to  watch  for  KWIK-CALC!,  a  complete  spreadsheet 
package  with  over  2,500,000  available  cells.  KWIK-CALC! 
offers  the  versatility  of  the  more  expensive  spreadsheet 
programs.  KWIK-CALC!  is  priced  at  824.95. 

At  DATAMOST,  we  didn't  just  ask  why  software  is  so 
expensive,  we  did  something  about  it.  KWIK-WARE!  only 
$19.95  per  package. 


EIGHT  FUN  WAYS  TO  START  ENJOYING  YOUR  0-64 


Ankh  —  Dare  to  adventure  in  the  MetaReal  world,  guiding 
your  "Surrogate  Other"  through  a  maze  of  64  rooms.  Test 
your  reasoning,  logic,  and  intellect  in  this  hi-res  arcade-action 
puzzle.  Can  you  find  the  answer,  using  only  your  "other"  and 
your  wits?  $19.95 

Aztec  —  Guide  your  intrepid  adventurer  through  eight  levels 
of  an  ancient  Aztec  ruin,  in  quest  of  the  elusive  golden  idol. 
Use  your  wit,  dexterity,  and  weapons  to  fight  off  spiders, 
scorpions,  cobras,  natives,  and  worse.  $19.95 

Jet-Boot  Jack  —  Help  jack  gather  up  all  the  notes  using  only 
his  custom  Jet-Boots  and  your  dexterity,  in  his  adventure 
through  the  wonderous  Music  Machine.  A  10-screen,  multi- 
skill  level  obstacle  course  guaranteed  to  test  the  expertise  of 
even  the  most  seasoned  game  player.  S  19.95 

Mabel's  Mansion  —  in  this  hl-res,  real  time  adventure, 
Barney  the  Bellhop  must  find  his  inheritance  in  his  Aunt 
Mabel's  haunted  house.  Hidden  among  the  90  rooms  of  her 
house  are  numerous  treasures,  guarded  by  hundreds  of  ghosts, 
ghouls,  and  monsters.  $19-95 

Available  at  better  computer  stores,  or 
contact  Datamost. 


Mr.  Robot  and  His  Robot  Factory  —  a  22-screen 

challenge.  Jump  from  the  treadmill  to  ladder  to  trampoline 
gathering  power  pills  and  bonus  robots  by  avoiding  bombs  and 
the  dreaded  alienfire.  Design  and  save  up  to  26  screens  per 
disk.  S19.95 

MycheSS  II  —  The  only  chess  program  with  stunning  3-D, 
B&W  or  color  graphics!  Play  against  your  C-64  or  another 
person.  Includes  possible  moves,  search  for  checkmate,  hint, 
and  examine  square  (to  check  for  safe  moves).  Includes  128 
games  on  disk  as  played  by  former  masters.  S29.95 

Paint  Magic  —  The  ultimate  graphics  utility.  Quickly  draw 
circles,  lines  and  boxes  with  one  command.  Infinite  fills.  Grab 
and  draw  any  image,  shrink  and  enlarge,  or  use  the  micro- 
scopic mode.  16  colors.  $39.95 

Poiar  Pierre  —  The  first  two  player  game  where  two  players 
can  play  at  the  same  time!  Guide  Pierre  or  Jacques  through 
a  multiple  screen  obstacle  course,  avoiding  snowballs, 
lightning,  stompers,  and  deadly  falls.  S19.95 


Commodore  64  and  1 54 1  art  registered  trademarks  of  Commodore  Business  Machines, 
Inc.  KWIK-LOAD!.  KWIK-COPYf.  KWIK-WRITE!,  KWIK-MAIL!.  KWIKPAD!. 
KWIK-PHONE!.  KWIK-CALC!,  and  KWIK-WARE!  arc  all  registered  trademarks  of 
DATAMOST,  Inc. 


Inside 
Commodore  DOS 


All  the  programs  listed  in  Inside  Commodore 
DOS  on  one  diskette!  Save  yourself  hours  of  typ- 
ing and  de-bugging. 

Only  $24.95  with  this  coupon! 

Available  only  to  readers  of  this  book.  Send  $24.95 
plus  $2.00  for  shipping  and  handling  (California 
residents  add  6^2%  sales  tax)  to: 


m  DATAMOST 


19821  Nordhoff  Street,  Northridge,  CA  91324 


Please  RUSH  me  Inside  Commodore  DOS  diskette.  I 
have  enclosed  my  check  or  money  order  for  $24.95  plus 
$2.00  shipping  and  handling  (California  residents  add  $1.62 
for  sales  tax). 


Name   

Address   

City  State   Zip 

Phone  (  )   


